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

Diff for /loncom/enrollment/localenroll.pm between versions 1.12 and 1.16

version 1.12, 2006/02/07 05:08:21 version 1.16, 2006/08/29 05:58:06
Line 204  sub get_sections { Line 204  sub get_sections {
 # (a) the institutional courseID (in the MSU case this is a concatenation of   # (a) the institutional courseID (in the MSU case this is a concatenation of 
 # semester code, department code, course number, and section number  # semester code, department code, course number, and section number
 # e.g., fs03nop590001).  # e.g., fs03nop590001).
 # (b) the course owner. This is the LON-CAPA username of the course coordinator   # (b) the course owner. This is the LON-CAPA username and domain of the course 
 # assigned to the course when it is first created.  # coordinator assigned to the course when it is first created, in the form
   # username:domain
 # (c) the LON-CAPA domain that contains the course  # (c) the LON-CAPA domain that contains the course
 #  #
 #################################  #################################
Line 256  sub validate_courseID { Line 257  sub validate_courseID {
 # (a) $authparam - the value of <autharg> from the classlist.xml files,  # (a) $authparam - the value of <autharg> from the classlist.xml files,
 # or if this blank, the default autharg, set by the domain coordinator when   # or if this blank, the default autharg, set by the domain coordinator when 
 # creating the course with loncreatecourse.pm  # creating the course with loncreatecourse.pm
 # (b) $username - the username of the new user  
 # (b) $dom - the domain of the new user.  # (b) $dom - the domain of the new user.
   # (c) $username - the username of the new user (currently not actually used)
 #  #
 # Four values are returned:  # Four values are returned:
 # (a) the value of $authparam - which might have been changed  # (a) the value of $authparam - which might have been changed
Line 286  sub validate_courseID { Line 287  sub validate_courseID {
 ###############################  ###############################
   
 sub create_password {  sub create_password {
     my ($authparam,$username,$dom) = @_;      my ($authparam,$dom,$username) = @_;
     my $authchk = 'ok';      my $authchk = 'ok';
     my $newpasswd = '';      my $newpasswd = '';
     my $create_passwd = 0;      my $create_passwd = 0;
Line 416  sub manager_photo_update { Line 417  sub manager_photo_update {
     return ($update,$comment);      return ($update,$comment);
 }  }
   
   ###############################
   # sub check_section
   #
   # Incoming data: three arguments (+ fourth optional argument)
   # (a) $class - institutional class id (coursecode concatanated with section) 
   # (b) $owner - course owner (2.2 and later username:domain; pre-2.2 username)
   # (c) $dom 0 domain of course
   # (d) $dbh - optional database handle  
   #
   # returns 1 parameter - $sectioncheck ('ok' or other value). 
   # Verifies that course owner has access to classlist for specific class
   # according to institution's SIS. 'ok' if access available  
   ###############################
   
   sub check_section {
       my ($class,$owner,$dom,$dbh) = @_;
       my $sectioncheck = 'ok';
       return $sectioncheck;
   }
   
   ###############################
   # sub AUTOLOAD
   #
   # Incoming data: none
   # Returns ''
   #
   # Prevents errors when undefined subroutines are called in this package
   # Will allow new routines added in the future to be called from lond etc.
   # without the need for customized versions of local*.pm packages to be
   # modified to include the new subroutines immediately.
   #
   # See "Programming Perl" 3rd ed. pp 296-298.   
   ###############################
   
   sub AUTOLOAD {
       our $AUTOLOAD;
       return '';
   }
   
 1;  1;
Removed from v.1.12  
changed lines
  Added in v.1.16

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