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

Diff for /loncom/enrollment/localenroll.pm between versions 1.9 and 1.10

version 1.9, 2004/06/17 18:31:25 version 1.10, 2004/07/03 18:37:20
Line 174  sub fetch_enrollment { Line 174  sub fetch_enrollment {
 # interface will allow the course coordinator to enter section numbers  # interface will allow the course coordinator to enter section numbers
 # in text boxes.  # in text boxes.
 #   # 
 ################################   ###############################
   
 sub get_sections {  sub get_sections {
     my ($coursecode,$dom) = @_;      my ($coursecode,$dom) = @_;
Line 278  sub create_password { Line 278  sub create_password {
     return ($authparam,$create_passwd,$authchk);      return ($authparam,$create_passwd,$authchk);
 }  }
   
   ###############################
   # sub instcode_format 
   #
   # Split coursecodes into constituent parts.   
   # e.g., INSTITUTIONALCODE = fs03nop590, LON-CAPA COURSEID: 43551dedcd43febmsul1
   # (MSU's course naming scheme - fs03 = Fall semester 2003, nop =
   # department name, 590 = course number)
   #
   # Incoming data:
   # $dom (domain)
   # $$courseIDs{'43551dedcd43febmsul1'} = 'Title of course' (hash of courseIDs)
   # 
   # fs03nop590 would be split as follows
   # @{$codetitles} = ("year","semester","department","number")
   # $$codes{{'year'} = '2003'
   # $$codes{'semester'} = 'Fall'
   # $$codes{'department'} = 'nop'
   # $$codes{'number'} = '590'
   #
   # requires five arguments:
   # domain ($dom)
   # reference to hash of institutional course IDs ($instcodes)  
   # reference to hash of codes ($codes)
   # reference to array of titles ($codetitles)
   # reference to hash of abbreviations used in categories
   # reference to hash of arrays specifying sort order used in category titles   
   #
   # e.g.,     %{$$cat_titles{'Semester'}} = (
   #                   fs => 'Fall',
   #                   ss => 'Spring',
   #                   us => 'Summer');
   #
   # e.g., @{$$cat_order{'Semester'}} = ('ss','us','fs'); 
   # returns 1 parameter: 'ok' if no processing errors.  
   ###############################
   
   sub instcode_format () {
       my ($dom,$instcodes,$codes,$codetitles,$cat_titles,$cat_order) = @_;
       my $outcome = 'ok';
       return $outcome;
   }
   
 1;  1;
Removed from v.1.9  
changed lines
  Added in v.1.10

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