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

raeburn raeburn at source.lon-capa.org
Sat Apr 19 16:48:43 EDT 2014


raeburn		Sat Apr 19 20:48:43 2014 EDT

  Modified files:              
    /loncom/interface	createaccount.pm loncoursequeueadmin.pm 
  Log:
  - Correct name of inststatus item stored during account creation process 
    for e-mail address as username.
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.62 loncom/interface/createaccount.pm:1.63
--- loncom/interface/createaccount.pm:1.62	Sun Mar 30 23:44:50 2014
+++ loncom/interface/createaccount.pm	Sat Apr 19 20:48:43 2014
@@ -4,7 +4,7 @@
 # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as
 # username may be processed automatically, or may be queued for approval.
 #
-# $Id: createaccount.pm,v 1.62 2014/03/30 23:44:50 raeburn Exp $
+# $Id: createaccount.pm,v 1.63 2014/04/19 20:48:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -991,8 +991,8 @@
         $middlename = $dataref->{'middlename'};
         $lastname   = $dataref->{'lastname'};
         $generation = $dataref->{'generation'};
-        $inststatus = $dataref->{'usertype'};
-       
+        $inststatus = $dataref->{'inststatus'};
+
         my $currhome = &Apache::lonnet::homeserver($username,$domain);
         unless ($currhome eq 'no_host') {
             $output = &mt('User account requested for username: [_1] in domain: [_2] already exists.',$username,$domain);
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.45 loncom/interface/loncoursequeueadmin.pm:1.46
--- loncom/interface/loncoursequeueadmin.pm:1.45	Wed Apr 16 13:32:43 2014
+++ loncom/interface/loncoursequeueadmin.pm	Sat Apr 19 20:48:43 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests
 #
-# $Id: loncoursequeueadmin.pm,v 1.45 2014/04/16 13:32:43 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.46 2014/04/19 20:48:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -886,7 +886,7 @@
                 $middlename = $curr{$uname}{'middlename'};
                 $lastname   = $curr{$uname}{'lastname'};
                 $generation = $curr{$uname}{'generation'};
-                $inststatus = $curr{$uname}{'usertype'};
+                $inststatus = $curr{$uname}{'inststatus'};
 
                 my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});
                 if ($caller eq 'createaccount') {




More information about the LON-CAPA-cvs mailing list