--- loncom/enrollment/localenroll.pm	2015/08/05 18:47:17	1.53
+++ loncom/enrollment/localenroll.pm	2017/10/13 20:37:40	1.57
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.53 2015/08/05 18:47:17 raeburn Exp $
+# $Id: localenroll.pm,v 1.57 2017/10/13 20:37:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -347,9 +347,10 @@ automatically, or held in a queue pendin
 the institution.
 
 Course requests will trigger this check if the process type has been set 
-to 'validate' for the course type (official, unofficial or community) and
-the requestor's affiliation.  Whether "validate" is an available option
-in the Domain Configuration menu is controlled by auto_courserequest_checks(). 
+to 'validate' for the course type (official, unofficial, textbook, 
+placement or community) and the requestor's affiliation.  Whether
+"validate" is an available option in the Domain Configuration menu 
+is controlled by auto_courserequest_checks(). 
 One scenario is where the request is for an official course, in which case
 a check could be made that the requestor is listed as instructor of 
 record for the course in the institution's course schedule/database.
@@ -361,7 +362,7 @@ given the data passed in to the routine.
 validate_crsreq takes seven arguments -
  (a) the LON-CAPA domain that will contain the course.
  (b) the username:domain for the course owner.
- (c) the course type (official, unofficial or community)
+ (c) the course type (official, unofficial,textbook, placement or community)
  (d) a comma-separated list of institutional affiliations of 
      the course owner.
  (e) the institutional code (in the MSU case this is a concatenation of
@@ -408,8 +409,9 @@ This is used to determine whether the "v
 possible choices for course request processing in the Domain Configuration 
 menu for Course Requests. Ultimately it is called by domainprefs.pm (via: 
 lonnet -> lond -> localenroll.pm) The domain configuration menu includes 
-a table where columns are course type (official, unofficial or community) 
-and rows are institutional affiliations (e.g., Faculty, Staff, Student etc.).
+a table where columns are course type (official, unofficial, textbook,
+placement or community) and rows are institutional affiliations 
+(e.g., Faculty, Staff, Student etc.).
 
 crsreq_checks() takes three arguments: $dom, $reqtypes, $validations.
 $dom - the domain for which validation options are needed.
@@ -540,6 +542,54 @@ sub crsreq_updates {
 
 =pod
 
+=item export_grades()
+ 
+This routine can be customized to push grade information to some other gradebook,
+LCMS, or administrative system external to LON-CAPA.
+
+export_grades() takes five arguments -
+(a) the LON-CAPA course ID
+(b) the LON-CAPA course domain
+(c) a hash reference containing the following: 
+    scope    => scope of the grades (e.g., course, map or resource).
+    instcode => institutional course code (if an official course)
+    crstype  => course type -- Course, Community or Placement
+    context  => calling context, e.g., "completion" when a student completes a placement test.
+(d) a perl data structure (hash of a hash) containing the grade data.
+    in the outer hash, the keys are student's username:domain
+    in the inner hash, keys are:  
+    id        => student/employee ID
+    lastname  => student's last name
+    firstname => student's first name
+    email     => student's "permannent" e-mail address
+    section   => student's LON-CAPA course section
+    total     => total points earned
+    bytitle   => reference to a hash (keys are question titles, values are points
+    bysymb    => reference to a hash (keys are symbs, i.e., unique resource identifiers).
+(e) reference to a hash which will contain information to return.
+    keys will be the student's username:domain. Value of 1 to show grades pushed 
+    successfully. 
+
+=cut
+
+sub export_grades {
+    my ($cnum,$cdom,$hashref,$dataref,$outgoing) = @_;
+    my %info;
+    if (ref($hashref) eq 'HASH') {
+        %info = %{$hashref};
+    }
+    if ((ref($dataref) eq 'HASH') && (ref($outgoing) eq 'HASH')) {
+        foreach my $key (keys(%{$dataref})) {
+            $outgoing->{$key} = 1;
+        }
+        return 'ok';
+    } else {
+        return 'error';
+    }
+}
+
+=pod
+
 =item create_password()
 
  This is called when the authentication method set for the automated 
@@ -905,8 +955,8 @@ sub allusers_info {
               institutional types to check.
  (g) $srchby - optional if $uname or $id defined, otherwise required.
                Allowed values include: 1. lastfirst, 2. last, 3. uname
-               corresponding to searches by 1. lastname,firstname;
-               2. lastname; 3. username
+               4. email, corresponding to searches by 1. lastname,firstname;
+               2. lastname; 3. username; 4. e-mail address
  (h) $srchterm - optional if $uname or $id defined, otherwise required
                 String to search for.
  (i) $srchtype - optional. Allowed values: contains, begins (defaults