[BACK]Return to Enrollment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / enrollment

Diff for /loncom/enrollment/Enrollment.pm between versions 1.4 and 1.19

version 1.4, 2003/12/05 19:07:19 version 1.19, 2004/12/07 06:40:09
Line 1 Line 1
   # Automated Enrollment manager
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 package LONCAPA::Enrollment;  package LONCAPA::Enrollment;
   
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonmsg;
 use HTML::Entities;  use HTML::Entities;
 use XML::Simple;  
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
   use Time::Local;
   use lib '/home/httpd/lib/perl';
   
 use strict;  use strict;
   
 sub update_LC {  sub update_LC {
     my ($dom,$crs,$adds,$drops,$startdate,$enddate,$authtype,$autharg,$classesref,$groupref,$logmsg,$context) = @_;       my ($dom,$crs,$adds,$drops,$startdate,$enddate,$authtype,$autharg,$classesref,$groupref,$logmsg,$newusermsg,$context) = @_; 
   # Get institutional code and title of this class
       my %courseinfo = ();
       &get_courseinfo($dom,$crs,\%courseinfo);
 # Get current LON-CAPA student enrollment for this class  # Get current LON-CAPA student enrollment for this class
     my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');      my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');
     my $cid = $dom."_".$crs;      my $cid = $dom."_".$crs;
Line 20  sub update_LC { Line 50  sub update_LC {
     my $sec=&Apache::loncoursedata::CL_SECTION;      my $sec=&Apache::loncoursedata::CL_SECTION;
     my $status=&Apache::loncoursedata::CL_STATUS;      my $status=&Apache::loncoursedata::CL_STATUS;
     my $type=&Apache::loncoursedata::CL_TYPE;      my $type=&Apache::loncoursedata::CL_TYPE;
       my $lockedtype=&Apache::loncoursedata::CL_LOCKEDTYPE;
     my @localstudents = ();      my @localstudents = ();
       my @futurestudents = ();
       my @activestudents = ();
       my @excludedstudents = ();
     my $currlist;      my $currlist;
     foreach my $uname (keys %{$roster} ) {      foreach my $uname (keys %{$roster} ) {
         if ($uname =~ m/^(.+):$dom$/) {          if ($uname =~ m/^(.+):$dom$/) {
             if ($$roster{$uname}[$status] eq "Active") {              if ($$roster{$uname}[$status] eq "Active") {
                   push @activestudents, $1;
                   @{$$currlist{$1}} = @{$$roster{$uname}};
                 push @localstudents, $1;                  push @localstudents, $1;
               } elsif ( ($$roster{$uname}[$cstart] > time)  && ($$roster{$uname}[$cend] > time || $$roster{$uname}[$cend] == 0 || $$roster{$uname}[$cend] eq '') ) {
                   push @futurestudents, $1;
                 @{$$currlist{$1}} = @{$$roster{$uname}};                  @{$$currlist{$1}} = @{$$roster{$uname}};
                   push @localstudents, $1;
               } elsif ($$roster{$uname}[$lockedtype] == 1) {
                   push @excludedstudents, $1;
             }              }
         }          }
     }      }
Line 41  sub update_LC { Line 82  sub update_LC {
     my $enrollcount = 0;      my $enrollcount = 0;
     my $dropcount = 0;      my $dropcount = 0;
   
   # Get role names
       my %longroles = ();
       open(FILE,"<$$configvars{'lonTabDir'}.'/rolesplain.tab");
       my @rolesplain = <FILE>;
       close(FILE);
       foreach (@rolesplain) {
           if ($_ =~ /^(st|ta|ex|ad|in|cc):([\w\s]+)$/) {
               $longroles{$1} = $2;
           }
       }
   
       srand( time() ^ ($$ + ($$ << 15))  ); # Seed rand in case initial passwords have to be generated for new users.
   
 # Get mapping of IDs to usernames for current LON-CAPA student enrollment for this class   # Get mapping of IDs to usernames for current LON-CAPA student enrollment for this class 
     my @LCids = ();      my @LCids = ();
     my %unameFromLCid = ();      my %unameFromLCid = ();
Line 87  sub update_LC { Line 141  sub update_LC {
 # Check for multiple sections for a single student   # Check for multiple sections for a single student 
     my @okusers = ();      my @okusers = ();
     foreach my $uname (@reg_students)  {      foreach my $uname (@reg_students)  {
         if (@{$allenrolled{$uname}} > 1) {          if (grep/^$uname$/,@excludedstudents) {
               $$logmsg .= "No re-enrollment for $uname - user was previously manually unenrolled and locked.".$linefeed;
           } elsif (@{$allenrolled{$uname}} > 1) {
             my @sections = ();              my @sections = ();
             my $saved;              my $saved;
             for (my $i=0; $i<@{$allenrolled{$uname}}; $i++) {              for (my $i=0; $i<@{$allenrolled{$uname}}; $i++) {
Line 109  sub update_LC { Line 165  sub update_LC {
                 push @okusers, $uname;                  push @okusers, $uname;
             }              }
             elsif (@sections > 1) {              elsif (@sections > 1) {
                 $logmsg =  "$uname appears in classlists for multiple sections of $crs -";                  $$logmsg =  "$uname appears in classlists for the more than one section of this course, i.e. in sections: ";
                 foreach (@sections) {                  foreach (@sections) {
                     $logmsg .= " $_,";                      $$logmsg .= " $_,";
                 }                  }
                 chop($logmsg);                  chop($$logmsg);
                 $logmsg .= " No automated enrollment action taken for this student.\n";                  $$logmsg .= ". Because of this ambiguity, no enrollment action was taken for this student.".$linefeed;
             }              }
         } else {          } else {
             @{$enrollinfo{$uname}} = @{$allenrolled{$uname}[0]};              @{$enrollinfo{$uname}} = @{$allenrolled{$uname}[0]};
Line 134  sub update_LC { Line 190  sub update_LC {
             @{$unameFromINid{$stuID}} = $uname;               @{$unameFromINid{$stuID}} = $uname; 
         }          }
     }      }
   # Explicitly allow access to creation/modification of students if called as an automated process.
       if ($context eq 'automated') {
           $ENV{'allowed.cst'}='F';
       }
   
 # Compare IDs with existing LON-CAPA enrollment for this class  # Compare IDs with existing LON-CAPA enrollment for this class
     foreach my $uname (@okusers) {      foreach my $uname (@okusers) {
         my %uidhash=&Apache::lonnet::idrget($dom,$uname);          unless ($uname eq '') {
         my @stuinfo = @{$enrollinfo{$uname}};              my %uidhash=&Apache::lonnet::idrget($dom,$uname);
         if (grep/^$uname$/,@localstudents) {              my @stuinfo = @{$enrollinfo{$uname}};
               my $access = '';
               if (grep/^$uname$/,@localstudents) {
 # Check for studentID changes  # Check for studentID changes
             if ( ($uidhash{$uname}) && ($uidhash{$uname} !~ /error\:/) )  {                  if ( ($uidhash{$uname}) && ($uidhash{$uname} !~ /error\:/) )  {
                 unless ( ($uidhash{$uname}) eq ($stuinfo[ $place{studentID} ]) ) {                      unless ( ($uidhash{$uname}) eq ($stuinfo[ $place{studentID} ]) ) {
                     $logmsg .= "Change in ID for $uname in class: $crs. StudentID in LON-CAPA system is $uidhash{$uname}, StudentID in institutional data is $stuinfo[ $place{studentID} ]\n";                           $$logmsg .= "Change in ID for $uname. StudentID in LON-CAPA system is $uidhash{$uname}; StudentID in institutional data is $stuinfo[ $place{studentID} ]".$linefeed; 
                 }  
             }  
   
 # Check for section changes  
             unless ($$currlist{$uname}[$sec] eq $stuinfo[ $place{groupID} ]) {  
                 $logmsg .= "Found a section difference for $uname - ".$$currlist{$uname}[$sec] ."versus ".$stuinfo[ $place{groupID} ]." in class $crs\n";  
                 if ( ($$currlist{$uname}[$type] eq "auto") && ($adds == 1) ) {  
                     my $modify_section_result = &Apache::lonnet::modifystudent($dom,$uname,'','','',undef,undef,undef,undef,$$currlist{$uname}[$sec],time,undef,undef,undef,undef,'auto',$cid);  
                     if ($modify_section_result !~ /^ok/) {  
                         $logmsg .= "An error occured during the attempt to expire the $uname from the old section $$currlist{$uname}[$sec] - $modify_section_result\n";  
                     }  
   
 # Assign the role of student in the new section  
                     my $uurl='/'.$cid;  
                     $uurl=~s/\_/\//g;  
                     if ($stuinfo[ $place{groupID} ]) {  
                         $uurl.='/'.$stuinfo[ $place{groupID} ];  
                     }  
                     my $newend = $stuinfo[ $place{enddate} ];  
                     my $newstart = $stuinfo[ $place{startdate} ];  
                     if ($newend eq '') {  
                         $newend = $enddate;  
                     }                      }
                     if ($newstart eq '') {  
                         $newstart = $startdate;  
                     }  
     #explicitly allow acces to creating students  
     $ENV{'allowed.cst'}='F';  
                     &Apache::lonnet::assignrole($dom,$uname,$uurl,"st",$newend,$newstart);   
     delete($ENV{'allowed.cst'});  
                 }                  }
             }  # Check for switch from manual to auto
         }                  unless (($$currlist{$uname}[$type] eq "auto") || ($$currlist{$uname}[$lockedtype] eq "1") || (!$adds) ) {
         elsif ($uname ne '') {  # drop manually added student
 # Check for changed usernames by checking studentIDs                      my $drop_reply = &Apache::lonnet::modifystudent($dom,$uname,'','','',undef,undef,undef,undef,$$currlist{$uname}[$sec],time,undef,undef,undef,undef,'auto','',$cid);
             if ( ($stuinfo[ $place{studentID} ] ne '') && (grep/^$stuinfo[ $place{studentID} ]$/,@LCids) ) {  # re-enroll as auto student
                 if (grep/^$$currlist{$uname}[ $place{'studentID'} ]$/,@allINids) {                      if ($drop_reply !~ /^ok/) {
                     foreach my $match ( @{ $unameFromLCid{ $stuinfo[ $place{studentID} ] } }  ) {                              $$logmsg .= "An error occured during the attempt to convert $uname from a manual type to an auto type student - $drop_reply.".$linefeed;
                         if (grep/^$match$/,@okusers) {                      } else {
                             $logmsg .= "A possible change in username has been detected for a student enrolled in $crs. The existing LON-CAPA classlist contains user: $uname and student ID: ".$$currlist{$uname}[ $place{studentID} ].".  This username has been dropped from the institutional classlist, but the same student ID is used for user: $match who still appears in the institutional classlist. You may need to move the student data files for user: $uname to $match\n";  # re-enroll as auto student
                           my ($auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,$emailaddr,$pid,$emailenc);
                           &prepare_add($authtype,$autharg,$enddate,$startdate,\@stuinfo,\%place,\$dom,\$uname,\$auth,\$authparam,\$first,\$middle,\$last,\$gene,\$usec,\$end,\$start,\$emailaddr,\$pid,\$emailenc);
                           if ($$currlist{$uname}[$sec] ne $usec) {
                               $$logmsg .= "Section for $uname switched from $$currlist{$uname}[$sec] to $usec".$linefeed;
                         }                          }
                           &execute_add($context,'switchtype',$uname,$dom,$auth,$authparam,$first,$middle,$last,$gene,$pid,$usec,$end,$start,$emailenc,$cid,\$addresult,\$enrollcount,$linefeed,$logmsg);
                     }                      }
                 }                  } 
             } elsif ($adds == 1) {  # Check for section changes
 # Add student to LON-CAPA classlist                  if ($$currlist{$uname}[$sec] eq $stuinfo[ $place{groupID} ]) {
                 my $auth = $stuinfo[ $place{'authtype'} ];  # Check for access date changes for students with access starting in the future.
                 my $authparam = $stuinfo[ $place{'autharg'} ];                      if ( (grep/^$uname$/,@futurestudents) && ($$currlist{$uname}[$type] eq "auto") && ($adds == 1) ) {
                 my $first = $stuinfo[ $place{'firstname'} ];                          my $datechange = &datechange_check($$currlist{$uname}[$cstart],$$currlist{$uname}[$cend],$startdate,$enddate);
                 my $middle = $stuinfo[ $place{'middlename'} ];                          if ($datechange) {
                 my $last = $stuinfo[ $place{'lastname'} ];                              my $modify_access_result = &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid);
                 my $gene = $stuinfo[ $place{'generation'} ];                              $access = &showaccess($enddate,$startdate);
                 my $usec = $stuinfo[ $place{'groupID'} ];                              if ($modify_access_result =~ /^ok/) {
                 my $end = $stuinfo[ $place{'enddate'} ];                                  $$logmsg .= "Change in access dates for $uname.".$access.$linefeed;
                 my $start = $stuinfo[ $place{'startdate'} ];  
                 my $emailaddr = $stuinfo[ $place{'email'} ];  
                 my $pid = $stuinfo[ $place{'studentID'} ];  
   
 # remove non alphanumeric values from section  
                 $usec =~ s/\W//g;  
   
                 unless ($emailaddr =~/^[^\@]+\@[^\@]+$/) { $emailaddr =''; }  
                 my $emailenc = &HTML::Entities::encode($emailaddr);   
   
 # Use course defaults where entry is absent  
                 if ($auth eq '') {  
                     $auth =  $authtype;  
                 }  
                 if ($authparam eq '') {  
                     $authparam = $autharg;  
                 }  
                 if ($auth =~ m/^krb/) {  
                     $auth .= ":".$authparam;  
                 }  
                 if ($end eq '') {  
                     $end = $enddate;  
                 }  
                 if ($start eq '') {  
                     $start = $startdate;  
                 }  
 # Clean up whitespace  
                 foreach (\$dom,\$uname,\$pid,\$first,\$middle,\$last,\$gene,\$usec) {  
                     $$_ =~ s/(\s+$|^\s+)//g;  
                 }  
   
 # Check for existing account in this LON-CAPA domain for this username  
                 my $uhome=&Apache::lonnet::homeserver($uname,$dom);  
                 if ($uhome eq 'no_host') { # User does not exist  
                     my $create_passwd = 0;  
                     my $authchk = '';  
                     unless ($authparam eq '') { $authchk = 'ok'; };  
 # If no account exists and passwords should be generated  
                     if ($authtype eq "int") {  
                         if ($authparam eq '') {  
                             ($authparam,$create_passwd,$authchk) = &create_password();  
                         }  
                     } elsif ($authtype eq "local") {  
                         if ($authparam eq '') {  
                             ($authparam,$create_passwd,$authchk) = &create_password();  
                         }  
                     } elsif ($authtype =~ m/^krb/) {  
                         if ($authparam eq '') {  
                             $logmsg .= "No Kerberos domain available for the new user - $uname in course $crs - no enrollment occurred.\n";  
                             $authchk = 'invalid';  
                         }  
                     } else {  
                         $authchk = 'invalid';  
                         $logmsg .= "Invalid authentication type for new user - $uname in course $crs - no enrollment occurred.\n";  
                     }    
                     unless ($authchk eq 'ok') {   
 # Now create user.  
                         my $reply=&Apache::lonnet::modifystudent($dom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,'',undef,$emailaddr,'auto',$cid);  
                         if ($reply eq 'ok') {  
                             $enrollcount ++;  
                             $addresult .= "$first $last ($pid) - $uname enrolled in section/group $usec.".$linefeed;  
                             $logmsg .= "New user $uname added successfully. ";  
                             unless ($emailenc eq '') {  
                                 my %emailHash;  
                                 $emailHash{'critnotification'}  = $emailenc;  
                                 $emailHash{'notification'} = $emailenc;  
                                 my $putresult = &Apache::lonnet::put('environment',\%emailHash,$dom,$uname);  
                             }  
                             if ($create_passwd) {  
 # Send e-mail with inital password to new user at $emailaddr  
                                 $logmsg .= "Initial password -  - sent to $emailaddr\n";  
                             } else {                              } else {
                                 $logmsg .= "\n";                                  $$logmsg .= "Error when attempting to change start and/or end access dates for $uname in section: ".$stuinfo[ $place{groupID} ]." -error $modify_access_result".$linefeed;
                             }                              }
                         } else {  
                             $logmsg .= "An error occurred adding new user $uname - $reply\n";  
                         }                          }
                     }                      }
                 } else {                  } else {
 # Get the user's information and authentication                      if ( ($$currlist{$uname}[$type] eq "auto") && ($adds == 1) ) {
                     my %userenv = &Apache::lonnet::get('environment',['firstname','middlename','lastname','generation','id','critnotification','notification'],$dom,$uname);  # Delete from roles.db for current section
                     my ($tmp) = keys(%userenv);                          my $expiretime = time;
                     if ($tmp =~ /^(con_lost|error)/i) {                          my $uurl='/'.$cid;
                         %userenv = ();                          $uurl=~s/\_/\//g;
                     }                          if ($$currlist{$uname}[$sec]) {
 # Get the user's e-mail address                              $uurl.='/'.$$currlist{$uname}[$sec];
                     if ($userenv{critnotification} =~ m/%40/) {  
                         unless ($emailenc eq $userenv{critnotification}) {  
                             $logmsg .= "Current critical notification e-mail - ".$userenv{critnotification}." for $uname is different to e-mail address in Institutional classlist - $emailenc\n";  
                         }                          }
                     }                          my $expire_role_result = &Apache::lonnet::assignrole($dom,$uname,$uurl,'st',$expiretime);
                     if ($userenv{notification} =~ m/%40/) {                          if ($expire_role_result eq 'ok') {
                         unless ($emailenc eq $userenv{critnotification}) {                              my $modify_section_result;
                             $logmsg .= "Current standard notification e-mail - ".$userenv{notification}." for $uname is different to e-mail address in Institutional classlist - $emailenc\n";                              if (grep/^$uname$/,@activestudents) {
                                   $modify_section_result = &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$$currlist{$uname}[$cend],$$currlist{$uname}[$cstart],'auto','',$cid);
                               } else {
                                   $modify_section_result =  &Apache::lonnet::modify_student_enrollment($dom,$uname,undef,undef,undef,undef,undef,$stuinfo[ $place{groupID} ],$enddate,$startdate,'auto','',$cid);
                                   $access =  &showaccess($enddate,$startdate);
                               }
                               if ($modify_section_result =~ /^ok/) {
                                   $$logmsg .= "Section for $uname switched from old section: ".$$currlist{$uname}[$sec] ." to new section: ".$stuinfo[ $place{groupID} ].".".$access.$linefeed;
                               } else {
                                   $$logmsg .= "Error when attempting section change for $uname from old section ".$$currlist{$uname}[$sec]." to new section: ".$stuinfo[ $place{groupID} ]." -error: $modify_section_result".$linefeed;
                               }
                           } else {
                               $$logmsg .= "Error when attempting to expire role for $uname in old section" .$$currlist{$uname}[$sec]." -error: $expire_role_result".$linefeed;
                         }                          }
                     }                              
                     my $krbdefdom = '';  
                     my $currentauth=&Apache::lonnet::queryauthenticate($uname,$dom);  
                     if ($currentauth=~/^krb(4|5):/) {  
                         $currentauth=~/^krb(4|5):(.*)/;  
                         $krbdefdom=$1;  
                     }  
                     if ($currentauth=~/^krb(4|5):/ ||   
                         $currentauth=~/^unix:/ ||  
                         $currentauth=~/^internal:/ ||  
                         $currentauth=~/^localauth:/) {  
                                  
                     } else {  
                         $logmsg .= "Invalid authentication method $currentauth for $uname.\n";    
                     }                      }
 # Report if authentication methods are different.                  }
                     if ($currentauth ne $auth ) {              } else {
                          $logmsg .= "Authentication mismatch for $uname - $currentauth in system, $auth for class $crs\n";  # Check for changed usernames by checking studentIDs
                     }                  if ( ($stuinfo[ $place{studentID} ] ne '') && (grep/^$stuinfo[ $place{studentID} ]$/,@LCids) ) {
 # Check user data                      if (grep/^$$currlist{$uname}[ $place{'studentID'} ]$/,@allINids) {
                     if ($first  ne $userenv{'firstname'}  ||                          foreach my $match ( @{ $unameFromLCid{ $stuinfo[ $place{studentID} ] } }  ) {
                         $middle ne $userenv{'middlename'} ||                              if (grep/^$match$/,@okusers) {
                         $last   ne $userenv{'lastname'}   ||                                  $$logmsg .= "A possible change in username has been detected for a student enrolled in this course. The existing LON-CAPA classlist contains user: $uname and student ID: ".$$currlist{$uname}[ $place{studentID} ].".  This username has been dropped from the institutional classlist, but the same student ID is used for user: $match who still appears in the institutional classlist. You may need to contact your Domain Coordinator to request a move of the student data files for user: $uname to $match".$linefeed;
                         $gene   ne $userenv{'generation'} ||                              }
                         $pid    ne $userenv{'id'} ) {           
 # Make the change(s)  
                         my %changeHash;  
                         $changeHash{'firstname'}  = $first;  
                         $changeHash{'middlename'} = $middle;  
                         $changeHash{'lastname'}   = $last;  
                         $changeHash{'generation'} = $gene;  
                         $changeHash{'id'} = $pid;  
                         my $putresult = &Apache::lonnet::put('environment',\%changeHash,$dom,$uname);  
                         if ($putresult eq 'ok') {  
                             $logmsg .= "User information updated for user: $uname prior to enrollment in $crs\n";  
                         } else {  
                             $logmsg .= "There was a problem modifying user data for existing user - $uname, enrollment will still be attempted for user in $crs.\n";  
                         }                          }
                     }                      }
                    } elsif ($adds == 1) {
 # Assign the role of student in the course.                      my ($auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,$emailaddr,$pid,$emailenc);
                     my $classlist_reply = &Apache::lonnet::modify_student_enrollment($dom,$uname,$pid,$first,$middle,$last,$gene,$usec,$end,$start,'auto',$cid);                      &prepare_add($authtype,$autharg,$enddate,$startdate,\@stuinfo,\%place,\$dom,\$uname,\$auth,\$authparam,\$first,\$middle,\$last,\$gene,\$usec,\$end,\$start,\$emailaddr,\$pid,\$emailenc);
                     if ($classlist_reply eq 'ok') {  # Check for existing account in this LON-CAPA domain for this username
                         $enrollcount ++;                      my $uhome=&Apache::lonnet::homeserver($uname,$dom);
                         $addresult .= "$first $last ($pid) - $uname enrolled in section/group $usec.".$linefeed;                      if ($uhome eq 'no_host') { # User does not exist
                         $logmsg .= "Existing user $uname enrolled successfully in $crs\n";                          my $args = {'auth' => $auth,
                                       'authparam' => $authparam,
                                       'emailenc' => $emailenc,
                                       'udom' => $dom,
                                       'uname' => $uname,
                                       'pid' => $pid,
                                       'first' => $first,
                                       'middle' => $middle,
                                       'last' => $last,
                                       'gene' => $gene,
                                       'usec' => $usec,
                                       'end' => $end,
                                       'start' => $start,
                                       'emailaddr' => $emailaddr,
                                       'cid' => $cid,
                                       'crs' => $crs,
                                       'cdom' => $dom,
                                       'context' => $context,
                                       'linefeed' => $linefeed,
                                       'role' => 'st'
                                      };
                           my $outcome = &create_newuser($args,\$logmsg,\$newusermsg,\$enrollcount,\$addresult,\%longroles,\%courseinfo) = @_;
                     } else {                      } else {
                         $logmsg .= "There was a problem updating the classlist db file for user $uname to show the new enrollment, so no enrollment occurred for this user in $crs\n";                          &execute_add($context,'newstudent',$uname,$dom,$auth,$authparam,$first,$middle,$last,$gene,$pid,$usec,$end,$start,$emailenc,$cid,\$addresult,\$enrollcount,$linefeed,$logmsg);
                     }                      }
                 }                  }
             }              }
Line 354  sub update_LC { Line 322  sub update_LC {
 # Check for changed usernames by checking studentIDs  # Check for changed usernames by checking studentIDs
                     if (grep/^$$currlist{$uname}[ $stuid ]$/,@allINids) {                      if (grep/^$$currlist{$uname}[ $stuid ]$/,@allINids) {
                         foreach my $match (@{$unameFromINid{$$currlist{$uname}[ $stuid ]}} ) {                          foreach my $match (@{$unameFromINid{$$currlist{$uname}[ $stuid ]}} ) {
                             $logmsg .= "A possible change in username has been detected for a student enrolled in $crs. The existing LON-CAPA classlist contains user: $uname and student ID: $$currlist{$uname}[ $place{studentID} ].  This username has been dropped from the institutional classlist, but the same student ID is used for user: $match who still appears in the institutional classlist. You may need to move the student data files for user: $uname to $match\n";                              $$logmsg .= "A possible change in username has been detected for a student enrolled in this course. The existing LON-CAPA classlist contains user: $uname and student ID: $$currlist{$uname}[ $place{studentID} ].  This username has been dropped from the institutional classlist, but the same student ID is used for user: $match who still appears in the institutional classlist. You may need to move the student data files for user: $uname to $match.".$linefeed;
                             push @saved,$uname;                              push @saved,$uname;
                         }                          }
                     } elsif (@saved == 0) {                      } elsif (@saved == 0) {
                         my $drop_reply = &Apache::lonnet::modifystudent($dom,$uname,'','','',undef,undef,undef,undef,$$currlist{$uname}[$sec],time,undef,undef,undef,undef,undef,$cid);                          my $drop_reply = &Apache::lonnet::modifystudent($dom,$uname,'','','',undef,undef,undef,undef,$$currlist{$uname}[$sec],time,undef,undef,undef,undef,'auto','',$cid);
                         if ($drop_reply !~ /^ok/) {                          if ($drop_reply !~ /^ok/) {
                             $logmsg .= "An error occured during the attempt to expire the $uname from the old section $$currlist{$uname}[$sec] - $drop_reply\n";                              $$logmsg .= "An error occured during the attempt to expire the $uname from the old section $$currlist{$uname}[$sec] - $drop_reply.".$linefeed;
                         } else {                          } else {
                             $dropcount ++;                              $dropcount ++;
                             my %userenv = &Apache::lonnet::get('environment',['firstname','lastname','id'],$dom,$uname);                              my %userenv = &Apache::lonnet::get('environment',['firstname','lastname','id'],$dom,$uname);
                             $dropresult .= $userenv{'firstname'}." ".$userenv{'lastname'}." (".$userenv{'id'}.") - ".$uname." dropped from section/group ".$$currlist{$uname}[$sec].$linefeed;                               $dropresult .= $userenv{'firstname'}." ".$userenv{'lastname'}." (".$userenv{'id'}.") - ".$uname." dropped from section/group ".$$currlist{$uname}[$sec].$linefeed; 
                               if ($context eq 'automated') {
                                   $$logmsg .= "User $uname student role expired from course.".$linefeed;
                               }
                         }                          }
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
   
   # Terminated explictly allowed access to student creation/modification
       if ($context eq 'automated') {
           delete($ENV{'allowed.cst'});
       }
     if ($enrollcount > 0) {      if ($enrollcount > 0) {
         if ($context eq "updatenow") {          if ($context eq "updatenow") {
               $addresult = substr($addresult,0,rindex($addresult,"<li>"));
             $addresult = "The following $enrollcount student(s) was/were added to this LON-CAPA course:<br/><ul><li>".$addresult."</li></ul><br/><br/>";              $addresult = "The following $enrollcount student(s) was/were added to this LON-CAPA course:<br/><ul><li>".$addresult."</li></ul><br/><br/>";
         } else {          } else {
             $addresult = "The following $enrollcount student(s) was/were added to this LON-CAPA course:\n\n".$addresult."\n\n";                  $addresult = "The following $enrollcount student(s) was/were added to this LON-CAPA course:\n\n".$addresult."\n\n";    
Line 380  sub update_LC { Line 357  sub update_LC {
     }      }
     if ($dropcount > 0) {      if ($dropcount > 0) {
         if ($context eq "updatenow") {          if ($context eq "updatenow") {
               $dropresult = substr($dropresult,0,rindex($dropresult,"<li>"));
             $dropresult = "The following $dropcount student(s) was/were expired from this LON-CAPA course:<br/><ul><li>".$dropresult."</li></ul><br/><br/>";              $dropresult = "The following $dropcount student(s) was/were expired from this LON-CAPA course:<br/><ul><li>".$dropresult."</li></ul><br/><br/>";
         } else {          } else {
             $dropresult = "The following $dropcount student(s) was/were expired from this LON-CAPA course:\n\n".$dropresult."\n\n";              $dropresult = "The following $dropcount student(s) was/were expired from this LON-CAPA course:\n\n".$dropresult."\n\n";
Line 401  sub update_LC { Line 379  sub update_LC {
             $dropresult .="\n";              $dropresult .="\n";
         }          }
     }      }
     print STDERR $logmsg;      my $changecount = $enrollcount + $dropcount;
     return $addresult.$dropresult;       return ($changecount,$addresult.$dropresult); 
 }   }
   
 sub parse_classlist {  sub create_newuser {
     my ($tmpdir,$dom,$crs,$class,$placeref,$groupID,$studentsref) = @_;                  my ($args,$logmsg,$newusermsg,$enrollcount,$addresult,$longroles,$courseinfo) = @_;
     my $configvars = &LONCAPA::Configuration::read_conf();      my $auth = $args->{'auth'};
     my $xmlfile = $tmpdir."/tmp/".$dom."_".$crs."_classlist.xml";      my $authparam = $args->{'authparam'};
     my $enrolled = XMLin( $xmlfile, KeyAttr => ['username'] );      my $emailenc = $args->{'emailenc'};
     foreach my $uname ( sort keys %{$$enrolled{'student'}} ) {      my $udom = $args->{'udom'};
         @{ $$studentsref{$uname} } = ();      my $uname = $args->{'uname'};
         foreach my $key (sort keys %{$$enrolled{'student'}{$uname}} ) {      my $pid = $args->{'pid'};
             my $value = $$enrolled{'student'}{$uname}{$key};      my $first = $args->{'first'};
             if (ref($value)) {      my $middle = $args->{'middle'};
                 $$studentsref{$uname}[ $$placeref{$key} ] = '';      my $last = $args->{'last'} ;
       my $gene = $args->{'gene'};
       my $usec = $args->{'usec'};
       my $end = $args->{'end'};
       my $start = $args->{'start'};
       my $emailaddr = $args->{'emailaddr'};
       my $cid = $args->{'cid'};
       my $crs = $args->{'crs'};
       my $cdom = $args->{'cdom'};
       my $context = $args->{'context'};
       my $linefeed = $args->{'linefeed'};
       my $role = $args->{'role'};
       my $create_passwd = 0;
       my $authchk = '';
       my $outcome;
       unless ($authparam eq '') { $authchk = 'ok'; };
   # If no account exists and passwords should be generated
       if ($auth eq "internal") {
           if ($authparam eq '') {
               $authparam = &create_password();
               if ($authparam eq '') {
                   $authchk = '';
               } else {
                   $create_passwd = 1;
                   $authchk = 'ok';
               }
           }
       } elsif ($auth eq "localauth") {
           ($authparam,$create_passwd,$authchk) = &Apache::lonnet::auto_create_password($crs,$cdom,$authparam);
       } elsif ($auth =~ m/^krb/) {
           if ($authparam eq '') {
               $$logmsg .= "No Kerberos domain was provided for the new user - $uname, so the new user was not enrolled in the course.".$linefeed;
               $authchk = 'invalid';
           }
       } else {
           $authchk = 'invalid';
           $$logmsg .= "An invalid authentication type was provided for the new user - $uname, so the user was not enrolled in the course.".$linefeed;
       }   
       if ($authchk eq 'ok') {
   # Now create user.
           my $type = 'auto';
           my $userurl = '/'.$cdom.'/'.$crs;
           if ($usec ne '') {
               $userurl .= '/'.$usec;
           }
           if ($context eq 'createowner' || $context eq 'createcourse') {
               my $result = &Apache::lonnet::modifyuser($udom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,'1',undef,$emailaddr);
               if ($result eq 'ok' && $context eq 'createcourse') {
                   $outcome = &Apache::loncreateuser::commit_standardrole($userurl,$role,$cdom,$crs,$start,$end);
                   unless ($outcome =~ /^Error:/) {
                       $outcome = 'ok';
                   }
             } else {              } else {
                 if ($key eq 'groupID') {                  $outcome = $result;
                     $$studentsref{$uname}[ $$placeref{$key} ] = $groupID;              }
           } else {
               $outcome=&Apache::lonnet::modifystudent($udom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,'',undef,$emailaddr,'auto','',$cid);
           }
           if ($outcome eq 'ok') {
               my $access = &showaccess($end,$start);
               $$addresult .= "$first $last ($pid) - $uname enrolled in section/group $usec.".$access.$linefeed;
               unless ($context eq 'createowner' || $context eq 'createcourse') {
                   $$enrollcount ++;
               }
               if ($context eq 'automated') {
                   $$logmsg .= "New $udom user $uname added successfully.";
               }
               unless ($emailenc eq '' || $context eq 'createowner' || $context eq 'createcourse') {
                   my %emailHash;
                   $emailHash{'critnotification'}  = $emailenc;
                   $emailHash{'notification'} = $emailenc;
                   my $putresult = &Apache::lonnet::put('environment',\%emailHash,$udom,$uname);
               }
               if ($create_passwd) {
   # Send e-mail with initial password to new user at $emailaddr.
   # If e-mail address is invalid, send password via message to courseowner i
   # (if automated call) or to user if roster update.
                   if ($emailaddr eq '') {
                       $$newusermsg .= " username: $uname, password: ".$authparam.$linefeed."\n";
                 } else {                  } else {
                     $$studentsref{$uname}[ $$placeref{$key} ] = $value;                      my $subject = "New LON-CAPA account";
                       my $body;
                       if ($context eq 'createowner') {
                           $body = "A user account has been created for you while creating your new course in the LON-CAPA course management and online homework system.\n\nYou should log-in to the system using the following credentials:\nusername: $uname\npassword: $authparam\n\nThe URL you should use to access the LON-CAPA system at your school is: http://".$ENV{'SERVER_NAME'}."\n\n";
                       } elsif ($context eq 'createcourse') {
                           $body = "You have been assigned the role of $$longroles{$role} in a new course: $$courseinfo{'description'} - $$courseinfo{'inst_code'} in the LON-CAPA course management and online homework system.  As you did not have an existing user account in the system, one has been created for you.\n\nYou should log-in to the system using the following credentials:\nusername: $uname\npassword: $authparam\n\nThe URL you should use to access the LON-CAPA system at your school is: http://".$ENV{'SERVER_NAME'}."\n\n"; 
                       } else {
                           my $access_start = 'immediately';
                           if ($start > 0) {
                               $access_start = localtime($start)
                           }
                           $body = "You have been enrolled in the LON-CAPA system at your school, because you are a registered student in a class that is using the LON-CAPA couse management and online homework system.\n\nYou should log-in to the system using the following credentials:\nusername: $uname\npassword: $authparam\n\nThe URL you should use to access the LON-CAPA system at your school is: http://".$ENV{'SERVER_NAME'}."\n\n.When you log-in you will be able to access the LON-CAPA course for $$courseinfo{'description'} - $$courseinfo{'inst_code'} starting $access_start.\n";
                       }
                       &Apache::lonmsg::sendemail($emailaddr,$subject,$body);
                   }
                   if ($context eq 'automated') {
                       $$logmsg .= " Initial password -  - sent to ".$emailaddr.$linefeed;
                 }                  }
               } else {
                   if ($context eq 'automated') {
                       $$logmsg .= $linefeed;
                   }
               }
           } else {
               $$logmsg .= "An error occurred adding new user $uname - ".$outcome.$linefeed;
           }
       }
       return $outcome;
   }
   
   sub prepare_add {
       my ($authtype,$autharg,$enddate,$startdate,$stuinfo,$place,$dom,$uname,$auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,$emailaddr,$pid,$emailenc) = @_;
       $$auth = $$stuinfo[ $$place{'authtype'} ];
       $$authparam = $$stuinfo[ $$place{'autharg'} ];
       $$first = $$stuinfo[ $$place{'firstname'} ];
       $$middle = $$stuinfo[ $$place{'middlename'} ];
       $$last = $$stuinfo[ $$place{'lastname'} ];
       $$gene = $$stuinfo[ $$place{'generation'} ];
       $$usec = $$stuinfo[ $$place{'groupID'} ];
       $$end = $$stuinfo[ $$place{'enddate'} ];
       $$start = $$stuinfo[ $$place{'startdate'} ];
       $$emailaddr = $$stuinfo[ $$place{'email'} ];
       $$pid = $$stuinfo[ $$place{'studentID'} ];
                                                                                     
   # remove non alphanumeric values from section
       $$usec =~ s/\W//g;
                                                                                     
       unless ($$emailaddr =~/^[^\@]+\@[^\@]+$/) { $$emailaddr =''; }
       $$emailenc = &HTML::Entities::encode($$emailaddr,'<>&"');
                                                                                     
   # Use course defaults where entry is absent
       if ( ($$auth eq '') || (!defined($$auth)) ) {
           $$auth =  $authtype;
       }
       if ( ($$authparam eq '')  || (!defined($$authparam)) )  {
           $$authparam = $autharg;
       }
       if ( ($$end eq '') || (!defined($$end)) )  {
           $$end = $enddate;
       }
       if ( ($$start eq '')  || (!defined($$start)) )  {
           $$start = $startdate;
       }
   # Clean up whitespace
       foreach ($dom,$uname,$pid,$first,$middle,$last,$gene,$usec) {
           $$_ =~ s/(\s+$|^\s+)//g;
       }
       return;
   }
   
   sub execute_add {
       my ($context,$caller,$uname,$dom,$auth,$authparam,$first,$middle,$last,$gene,$pid,$usec,$end,$start,$emailenc,$cid,$addresult,$enrollcount,$linefeed,$logmsg) = @_;
   # Get the user's information and authentication
       my %userenv = &Apache::lonnet::get('environment',['firstname','middlename','lastname','generation','id','critnotification','notification'],$dom,$uname);
       my ($tmp) = keys(%userenv);
       if ($tmp =~ /^(con_lost|error)/i) {
           %userenv = ();
       }
   # Get the user's e-mail address
       if ($userenv{critnotification} =~ m/%40/) {
           unless ($emailenc eq $userenv{critnotification}) {
               $$logmsg .= "Current critical notification e-mail
   - ".$userenv{critnotification}." for $uname is different to e-mail address in institutional classlist - ".$emailenc.$linefeed;
           }
       }
       if ($userenv{notification} =~ m/%40/) {
           unless ($emailenc eq $userenv{critnotification}) {
               $$logmsg .= "Current standard notification e-mail
   - ".$userenv{notification}." for $uname is different to e-mail address in institutional classlist - ".$emailenc.$linefeed;
           }
       }
       my $krbdefdom = '';
       my $currentauth=&Apache::lonnet::queryauthenticate($uname,$dom);
       if ($currentauth=~/^(krb[45]):(.*)/) {
           $currentauth = $1;
           $krbdefdom = $2;
       } elsif ($currentauth=~ /^(unix|internal|localauth):/) {
           $currentauth = $1;
       } else {
           $$logmsg .= "Invalid authentication method $currentauth for $uname.".$linefeed;
       }
   # Report if authentication methods are different.
       if ($currentauth ne $auth) {
           $$logmsg .= "Authentication type mismatch for $uname - '$currentauth' in system, '$auth' based on information in classlist or default for this course.".$linefeed;
       } elsif ($auth =~ m/^krb/) {
           if ($krbdefdom ne $authparam) {
               $$logmsg .= "Kerberos domain mismatch for $uname - '$krbdefdom' in system, '$authparam' based on information in classlist or default for this course.".$linefeed;
           }
       }
                                                                                     
   # Check user data
       if ($first  ne $userenv{'firstname'}  ||
           $middle ne $userenv{'middlename'} ||
           $last   ne $userenv{'lastname'}   ||
           $gene   ne $userenv{'generation'} ||
           $pid    ne $userenv{'id'} ) {
   # Make the change(s)
           my %changeHash;
           $changeHash{'firstname'}  = $first;
           $changeHash{'middlename'} = $middle;
           $changeHash{'lastname'}   = $last;
           $changeHash{'generation'} = $gene;
           $changeHash{'id'} = $pid;
           my $putresult = &Apache::lonnet::put('environment',\%changeHash,$dom,$uname);
           if ($putresult eq 'ok') {
               $$logmsg .= "User information updated for user: $uname prior to enrollment.".$linefeed;
           } else {
               $$logmsg .= "There was a problem modifying user data for existing user - $uname -error: $putresult, enrollment will still be attempted.".$linefeed;
           }
       }
                                                                                     
   # Assign the role of student in the course.
       my $classlist_reply = &Apache::lonnet::modify_student_enrollment($dom,$uname,$pid,$first,$middle,$last,$gene,$usec,$end,$start,'auto','',$cid);
       if ($classlist_reply eq 'ok') {
           my $access = &showaccess($end,$start);
           if ($caller eq 'switchtype') {
               $$logmsg .= "Existing user $uname detected in institutional classlist - switched from 'manual' to 'auto' enrollment in section/group $usec.".$access.$linefeed;
           } elsif ($caller eq 'newstudent') {
               $$enrollcount ++;
               $$addresult .= "$first $last ($pid) - $uname enrolled in section/group $usec.".$access.$linefeed;
           }
           if ($context eq 'automated') {
               $$logmsg .= "Existing $dom user $uname enrolled successfully.".$linefeed;
           }
       } else {
              $$logmsg .= "There was a problem updating the classlist db file for user $uname to show the new enrollment -error: $classlist_reply, so no enrollment occurred for this user.".$linefeed;
       }
       return;
   }
   
   sub datechange_check {
       my ($oldstart,$oldend,$startdate,$enddate) = @_;
       my $datechange = 0;
       unless ($oldstart eq $startdate) {
           $datechange = 1;
       }
       if (!$datechange) {
           if (!$oldend) {
               if ($enddate) {
                   $datechange = 1;
             }              }
           } elsif ($oldend ne $enddate) {
               $datechange = 1;
         }          }
     }      }
 #    if (-e "$xmlfile") {      return $datechange;
 #        unlink $xmlfile;  }
 #    }  
   sub showaccess {
       my ($end,$start) = @_;
       my $showstart;
       my $showend;
       if ( (!$start) || ($start <= time) ) {
           $showstart = 'immediately';
       } else {
           $showstart = &Apache::lonlocal::locallocaltime($start);
       }
       if (!$end) {
           $showend = 'no end date';
       } else {
           $showend = &Apache::lonlocal::locallocaltime($end);
       }
       my $access_msg = " Access starts: ".$showstart.", ends: ".$showend.".";
       return $access_msg;
   }
   
   sub parse_classlist {
       my ($tmpdir,$dom,$crs,$class,$placeref,$groupID,$studentsref) = @_;
       my $xmlfile = $tmpdir."/tmp/".$dom."_".$crs."_".$class."_classlist.xml";
       my $uname = '';
       my @state;
       my @items = ('autharg','authtype','email','firstname','generation','lastname','middlename','studentID');
       my $p = HTML::Parser->new
       (
           xml_mode => 1,
           start_h =>
               [sub {
                    my ($tagname, $attr) = @_;
                    push @state, $tagname;
                    if ("@state" eq "students student") {
                        $uname = $attr->{username};
                    }
               }, "tagname, attr"],
            text_h =>
                [sub {
                    my ($text) = @_;
                    if ("@state" eq "students student groupID") {
                        $$studentsref{$uname}[ $$placeref{'groupID'} ] = $groupID;
                    } elsif ("@state" eq "students student startdate") {
                        my $start = $text;
                        unless ($text eq '') {
                            $start = &process_date($text);
                        }
                        $$studentsref{$uname}[ $$placeref{'startdate'} ] = $start; 
                    } elsif ("@state" eq "students student enddate") {
                        my $end = $text;
                        unless ($text eq '') {
                            $end = &process_date($text);
                        }
                        $$studentsref{$uname}[ $$placeref{'enddate'} ] = $end;
                    } else {
                        foreach my $item (@items) {
                            if ("@state" eq "students student $item") {
                                $$studentsref{$uname}[ $$placeref{$item} ] = $text;
                            }
                        }
                    }
                  }, "dtext"],
            end_h =>
                  [sub {
                      my ($tagname) = @_;
                      pop @state;
                   }, "tagname"],
       );
                                                                                                                
       $p->parse_file($xmlfile);
       $p->eof;
       if (-e "$xmlfile") {
           unlink $xmlfile;
       }
     return;      return;
 }  }
   
   sub process_date {
       my $timestr = shift;
       my $timestamp = '';
       if ($timestr =~ m/^\d{4}:\d{2}:\d{2}/) {
           my @entries = split/:/,$timestr;
           for (my $j=0; $j<@entries; $j++) {
               if ( length($entries[$j]) > 1 ) {
                   $entries[$j] =~ s/^0//;
               }
           }
           $entries[1] = $entries[1] - 1;
           $timestamp =  timelocal($entries[5],$entries[4],$entries[3],$entries[2],$entries[1],$entries[0]);
       }
       return $timestamp;
   }
   
 sub create_password {  sub create_password {
     my ($authparam,$create_passwd,$authreply);      my $passwd = '';
     return ($authparam,$create_passwd,$authreply);      my @letts = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
       for (my $i=0; $i<8; $i++) {
           my $lettnum = int (rand 2);
           my $item = '';
           if ($lettnum) {
               $item = $letts[int( rand(26) )];
               my $uppercase = int(rand 2);
               if ($uppercase) {
                   $item =~ tr/a-z/A-Z/;
               }
           } else {
               $item = int( rand(10) );
           } 
           $passwd .= $item;
       }
       return ($passwd);
   }
   
   sub check_user_status {
       my ($udom,$uname,$cdom,$crs,$role,$secgrp) = @_;
       my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);
       my @uroles = keys %userinfo;
       my $srchstr;
       my $active_chk = 'none';
       if (@uroles > 0) {
           if ( ($role eq 'cc') || ($secgrp eq '') || ( !defined($secgrp) ) ) {
               $srchstr = '/'.$cdom.'/'.$crs.'_'.$role;
           } else {
               $srchstr = '/'.$cdom.'/'.$crs.'/'.$secgrp.'_'.$role;
           }
           if (grep/^$srchstr$/,@uroles) {
               my $role_end = 0;
               my $role_start = 0;
               $active_chk = 'ok';
               if ( $userinfo{$srchstr} =~ m/^($role)_(\d+)/ ) {
                   $role_end = $2;
                   if ( $userinfo{$srchstr} =~ m/^($role)_($role_end)_(\d+)$/ )
                   {
                       $role_start = $3;
                   }
               }   
               if ($role_start > 0) {
                   if (time < $role_start) {
                       $active_chk = 'expired';
                   }
               }
               if ($role_end > 0) {
                   if (time > $role_end) {
                       $active_chk = 'expired';
                   }
               }
           }
       }
       return $active_chk;
   }
   
   sub get_courseinfo {
       my ($dom,$crs,$courseinfo) = @_;
       my $owner;
       if (defined($dom) && defined($crs)) {
           my %settings = &Apache::lonnet::get('environment',['internal.coursecode','description'],$dom,$crs);
           if ( defined($settings{'internal.coursecode'}) ) {
               $$courseinfo{'inst_code'} = $settings{'internal.coursecode'};
   
           }
           if ( defined($settings{'description'}) ) {
               $$courseinfo{'description'} = $settings{'description'};
           }
       }
       return;
 }  }
   
 sub CL_autharg { return 0; }  sub CL_autharg { return 0; }
Removed from v.1.4  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>