--- loncom/enrollment/localenroll.pm 2009/07/25 15:25:14 1.36 +++ loncom/enrollment/localenroll.pm 2009/08/18 20:08:38 1.37 @@ -1,6 +1,6 @@ # functions to glue school database system into Lon-CAPA for # automated enrollment -# $Id: localenroll.pm,v 1.36 2009/07/25 15:25:14 raeburn Exp $ +# $Id: localenroll.pm,v 1.37 2009/08/18 20:08:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -290,19 +290,33 @@ If the username of the course owner is p test is used, namely that the requestor is listed as instructor of record for the course in the institution's course schedule/database. -A valid instcode is confirmed by returning 'ok'. -Otherwise a phrase can be returned explaining why the code was invalid. +A valid instcode is confirmed by returning 'valid'. +In the case of a check for the instructor of record, the following can +be returned: +(a) valid - the requestor is the recorded instructor - create the course +(b) reject - the requestor should never be requesting this course, reject the + request permanently +(c) pending - the requestor is not the recorded instructor, but could + become so after administrative action at the institution. Put the + request ina queue and check localenroll:validate_instcode() + periodically until the status changes to "valid". +(d) approval - the request will be held pending review by a Domain Coordinator. +(e) error (followed by the error condition); -validate_instcode takes three arguments - +validate_instcode takes five arguments - (a) the LON-CAPA domain that will contain the course (b) the institutional code (in the MSU case this is a concatenation of semester code, department code, and course number, e.g., fs03nop590. (c) an optional institutional username for the course owner. + (d) an optional comma-separated list of institutional affiliations of + the course owner. + (e) an optional comma-separated list of institutional sections included in + the course request =cut sub validate_instcode { - my ($dom,$instcode,$owner) = @_; + my ($dom,$instcode,$owner,$inststatuslist,$instseclist) = @_; my $outcome = ''; return $outcome; }