[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm

[raeburn]

raeburn		Sun Dec 30 21:28:12 2007 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  Bug 5507. Re-use functionality in breadcrumbs, and provide two links: Modify this user:  and  Create/Modify Another User after results text.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.225 loncom/interface/loncreateuser.pm:1.226
--- loncom/interface/loncreateuser.pm:1.225	Sun Dec 30 20:58:17 2007
+++ loncom/interface/loncreateuser.pm	Sun Dec 30 21:28:12 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.225 2007/12/31 01:58:17 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.226 2007/12/31 02:28:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2029,6 +2029,7 @@
     }
     if ($env{'form.action'} eq 'singlestudent') {
         &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser);
+        $r->print('<p><a href="javascript:backPage(document.userupdate)">'.                  &mt('Enroll Another Student').'</a></p>');
     } else {
         my @rolechanges = &update_roles($r);
         if ($namechanged) {
@@ -2046,6 +2047,9 @@
                 }
             }
         }
+        my $userinfo = &Apache::loncommon::plainname($env{'form.ccuname'},
+                                                     $env{'form.ccdomain'}); 
+        $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'.&mt('Modify this user: <span class="LC_cusr_emph">([_1])</span>',$userinfo).'</a>'.('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a></p>');
     }
     $r->print(&Apache::loncommon::end_page());
 }