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

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

version 1.8, 2004/03/18 01:02:20 version 1.10, 2004/07/03 18:37:20
Line 33  use strict; Line 33  use strict;
 # set this to return 1 if you want the auto enrollment to run  # set this to return 1 if you want the auto enrollment to run
 ################################  ################################
   
 sub run { return 0; }  sub run() {
       my $dom = shift;
       return 0;
   }
   
 ################################  ################################
 # sub fetch_enrollment  # sub fetch_enrollment
Line 105  sub run { return 0; } Line 108  sub run { return 0; }
 #</students>  #</students>
 #  #
 # The <startdate> and the <enddate> are the activation date and expiration date  # The <startdate> and the <enddate> are the activation date and expiration date
 # for this student's role. If they are absent, then neither a start date nor an end  # for this student's role. If they are absent, then the default access start and
 # date will be set, and the student role will remain active until the role is   # default access end dates are used. The default access dates can be set when 
 # explicitly expired using ENRL -> Drop students.      # the course is created, and can be modified using the Automated Enrollment
 # An option to set a default activation date, and a default expiration date will  # Manager, or via the 'Upload a class list','Enroll a single student' or 
 # be added to loncreatecourse.pm, and lonpopulate.pm in a future release.  # 'Modify student data' utilities in the Enrollment Manager, by checking the 
 # Once these default parameters are available, they will be used as the start date and  # 'make these dates the default for future enrollment' checkbox. If no default 
 # the end date in cases where the <startdate> and <enddate> fields are blank.  # dates have been set, then the tudent role will be active immediately, and will 
   # remain active until the role is explicitly expired using ENRL -> Drop students. 
 # If dates are to included in the XML file, they should be in the format  # If dates are to included in the XML file, they should be in the format
 # YYYY:MM:DD:HH:MM:SS (: separators required).  # YYYY:MM:DD:HH:MM:SS (: separators required).
 #  #
Line 170  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 = shift;      my ($coursecode,$dom) = @_;
     my @secs = ();      my @secs = ();
     return @secs;      return @secs;
 }  }
Line 206  sub get_sections { Line 210  sub get_sections {
 #################################  #################################
   
 sub new_course  {  sub new_course  {
     my ($course_id,$owner) = @_;      my ($course_id,$owner,$dom) = @_;
     my $outcome = 'ok';      my $outcome = 'ok';
     return $outcome;      return $outcome;
 }  }
Line 231  sub new_course  { Line 235  sub new_course  {
 ###############################    ###############################  
   
 sub validate_courseID {  sub validate_courseID {
     my $course_id = shift;      my ($course_id,$dom) = @_;
     my $outcome = 'ok';      my $outcome = 'ok';
     return $outcome;         return $outcome;   
 }  }
Line 268  sub validate_courseID { Line 272  sub validate_courseID {
 ###############################  ###############################
   
 sub create_password {  sub create_password {
     my $authparam = shift;      my ($authparam,$dom) = @_;
     my $authchk = 'ok';      my $authchk = 'ok';
     my $create_passwd = 0;      my $create_passwd = 0;
     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.8  
changed lines
  Added in v.1.10

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