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

Diff for /loncom/enrollment/localenroll.pm between versions 1.32 and 1.35

version 1.32, 2008/11/25 13:16:26 version 1.35, 2009/06/11 20:09:25
Line 41  described at http://www.lon-capa.org. Line 41  described at http://www.lon-capa.org.
   
 =over  =over
   
 =back  
   
 =cut  =cut
   
 package localenroll;  package localenroll;
Line 348  sub create_password { Line 346  sub create_password {
     
  fs03nop590 would be split as follows   fs03nop590 would be split as follows
  @{$codetitles} = ("year","semester","department","number")   @{$codetitles} = ("year","semester","department","number")
  $$codes{{'year'} = '2003'   $$codes{'year'} = '2003'
  $$codes{'semester'} = 'Fall'   $$codes{'semester'} = 'Fall'
  $$codes{'department'} = 'nop'   $$codes{'department'} = 'nop'
  $$codes{'number'} = '590'   $$codes{'number'} = '590'
Line 368  sub create_password { Line 366  sub create_password {
   
  e.g., @{$$cat_order{'Semester'}} = ('ss','us','fs');    e.g., @{$$cat_order{'Semester'}} = ('ss','us','fs'); 
  returns 1 parameter: 'ok' if no processing errors.    returns 1 parameter: 'ok' if no processing errors. 
    
    Detailed help:
    http://yourloncapaserver/adm/help/Institutional_Integration_Course_Codes.hlp
   
 =cut  =cut
   
   
Line 378  sub instcode_format () { Line 379  sub instcode_format () {
     return $outcome;      return $outcome;
 }  }
   
   =pod
   
   =item possible_instcodes()
   
   Gather acceptable values for institutional categories to use in course creation request form for official courses.
   
    requires four arguments:
    domain ($dom)
    reference to array of titles ($codetitles)
    reference to hash of abbreviations used in categories ($cat_titles).
    reference to hash of arrays specifying sort order used in category titles ($cat_order).
   
    e.g., 
    @{$codetitles} = ("Year","Semester","Department","Number");
   
    %{$$cat_titles{'Semester'}} = (
                      fs => 'Fall',
                      ss => 'Spring',
                      us => 'Summer');
   
    @{$$cat_order{'Semester'}} = ('ss','us','fs');
   
    returns 1 parameter: 'ok' if no processing errors.
   
   =cut
   
   sub possible_instcodes {
       my ($dom,$codetitles,$cat_titles,$cat_order) = @_;
       @{$codetitles} = ();
       %{$$cat_titles{'Semester'}} = ();
       @{$$cat_order{'Semester'}} = ('ss','us','fs');
       ($$cat_titles{'Department'},$$cat_order{'Department'}) = &get_all_depts($dom);
       ($$cat_titles{'Year'},$$cat_order{'Year'}) = &get_possible_years($dom);
       return 'ok';
   }
   
   
   
 =pod  =pod
   
Line 398  sub instcode_format () { Line 436  sub instcode_format () {
      existing photo, photo was found to be missing from institution's       existing photo, photo was found to be missing from institution's
      data store, photo used is same as before, or photo was        data store, photo used is same as before, or photo was 
      deleted from storage on LON-CAPA server housing student's       deleted from storage on LON-CAPA server housing student's
      information, no student ID was available.        information, no student/employee ID was available. 
                                 
  (e) $action: the type of action needed. (e.g., update, delete);   (e) $action: the type of action needed. (e.g., update, delete);
  (f) $students: a reference to a hash with the keys set to student    (f) $students: a reference to a hash with the keys set to student 
Line 525  sub check_section { Line 563  sub check_section {
   
      @{$code_order} = ('Semester','Year','Department','Number');       @{$code_order} = ('Semester','Year','Department','Number');
   
    Detailed help:
    http://yourloncapaserver/adm/help/Institutional_Integration_Course_Codes.hlp
   
 =cut  =cut
   
 sub instcode_defaults {  sub instcode_defaults {
Removed from v.1.32  
changed lines
  Added in v.1.35

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