Minor package fix; move Register up into GeniUser.

protogeni/lib/GeniUser.pm.in

 #!/usr/bin/perl -wT
 #
-# Copyright (c) 2008-2012 University of Utah and the Flux Group.
+# Copyright (c) 2008-2013 University of Utah and the Flux Group.
 # 
 # {{{GENIPUBLIC-LICENSE
 # 
@@ -589,6 +589,21 @@ sub ListAll($$)
     return 0;
 }
 
+#
+# Register this local user at the ClearingHouse.
+#
+sub Register($)
+{
+    my ($self) = @_;
+
+    my $clearinghouse = GeniRegistry::ClearingHouse->Create();
+    return -1
+	if (!defined($clearinghouse));
+
+    return $clearinghouse->RegisterUser($self->name(), $self->email(),
+					$self->cert());
+}
+
 ############################################################################
 #
 # Wrapper for local users.
@@ -659,21 +674,6 @@ sub urn($)
     return GeniHRN::Generate("@OURDOMAIN@", "user", $self->uid());
 }
 
-#
-# Register this local user at the ClearingHouse.
-#
-sub Register($)
-{
-    my ($self) = @_;
-
-    my $clearinghouse = GeniRegistry::ClearingHouse->Create();
-    return -1
-	if (!defined($clearinghouse));
-
-    return $clearinghouse->RegisterUser($self->name(), $self->email(),
-					$self->cert());
-}
-
 #
 # Get the key bundle for a local user, which are just sshkeys. 
 # This function is intended to be used only by the SA to get the