loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1308, 2016/05/30 02:45:43
+version 1.1309, 2016/05/30 03:16:33
  Line 8293  sub auto_crsreq_update {
  }
  sub auto_export_grades {
-     my ($cnum,$cdom,$gradesref) = @_;
+     my ($cdom,$cnum,$inforef,$gradesref) = @_;
-     return;
+     my ($homeserver,%exportresponse);
+     if ($cdom =~ /^$match_domain$/) {
+         $homeserver = &domain($cdom,'primary');
+     }
+     unless (($homeserver eq 'no_host') || ($homeserver eq '')) {
+         my $info;
+         if (ref($inforef) eq 'HASH') {
+             $info = &freeze_escape($inforef);
+         }
+         if (ref($gradesref) eq 'HASH') {
+             my $grades = &freeze_escape($gradesref);
+             my $response=&reply('encrypt:autoexportgrades:'.$cdom.':'.$cnum.':'.
+                                 $info.':'.$grades,$homeserver);
+             unless ($response =~ /(con_lost|error|no_such_host|refused|unknown_command)/) {
+                 my @items = split(/&/,$response);
+                 foreach my $item (@items) {
+                     my ($key,$value) = split('=',$item);
+                     $exportresponse{&unescape($key)} = &thaw_unescape($value);
+                 }
+             }
+         }
+     }
+     return \%exportresponse;
  }
  sub check_instcode_cloning {