[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface createaccount.pm

[raeburn]

raeburn		Wed Dec  1 22:56:12 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	createaccount.pm 
  Log:
  - Customization for GCI_3
     - Backport 1.43.
     - More comprehensive feedback when faculty attempts to sign-up for a 
       new GCI WebCenter account when one has already been created for him/her.
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.37.2.3 loncom/interface/createaccount.pm:1.37.2.4
--- loncom/interface/createaccount.pm:1.37.2.3	Mon Nov 29 15:13:08 2010
+++ loncom/interface/createaccount.pm	Wed Dec  1 22:56:12 2010
@@ -3,7 +3,7 @@
 # institutional log-in ID (institutional authentication required - localauth
 #  or kerberos) or an e-mail address.
 #
-# $Id: createaccount.pm,v 1.37.2.3 2010/11/29 15:13:08 raeburn Exp $
+# $Id: createaccount.pm,v 1.37.2.4 2010/12/01 22:56:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -520,7 +520,7 @@
             my $uhome = &Apache::lonnet::homeserver($useremail,$domain);
             if ($uhome ne 'no_host') {
                 $output = &invalid_state('existinguser',$domdesc,
-                                         $contact_name,$contact_email);
+                                         $contact_name,$contact_email,'',$useremail);
                 return $output;
             } else {
                  my $captcha = Captcha::reCAPTCHA->new;
@@ -1129,18 +1129,21 @@
 }
 
 sub invalid_state {
-    my ($error,$domdesc,$contact_name,$contact_email,$msgtext) = @_;
+    my ($error,$domdesc,$contact_name,$contact_email,$msgtext,$useremail) = @_;
     my $msg = '<h3>'.&mt('Account creation unavailable').'</h3><span class="LC_error">';
     if ($error eq 'baduseremail') {
         $msg .= &mt('The e-mail address you provided does not appear to be a valid address.');
     } elsif ($error eq 'existinguser') {
-        $msg .= &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');
+        my $uname = &HTML::Entities::encode($useremail);
+        $msg .= &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.').'<br />'.&mt('You can either:').'<ul>'.
+                '<li>'.&mt(Return to the [_1]log-in page[_2] and enter your password.','<a href="/adm/login?username="'.$uname.'">','</a>').'</li>'.
+                '<li>'.&mt('or, if you do not remember your password, visit the "[_1]Forgot your password?[_2]" page.','<a href="/adm/resetpw?uname="'.$uname.'&useremail='.$uname.'&referrer=createaccount">','</a>');
     } elsif ($error eq 'userrules') {
         $msg .= &mt('Username rules at this institution do not allow the e-mail address you provided to be used as a username.');
     } elsif ($error eq 'userformat') {
         $msg .= &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');
     } elsif ($error eq 'captcha') {
-        $msg .= &mt('Validation of the code your entered failed.');
+        $msg .= &mt('Validation of the code you entered failed.');
     } elsif ($error eq 'noemails') {
         $msg .= &mt('Creation of a new user account using an e-mail address as username is not permitted at this LON-CAPA institution.');
     }