loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.352, 2003/03/25 22:03:23
+version 1.353, 2003/03/26 04:57:04
  Line 1069  sub flushcourselogs {
  # Is used in pickcourse
  #
      foreach (keys %courseidbuffer) {
-         &reply('courseidput:'.$hostdom{$_}.':'.$courseidbuffer{$_},$_);
+         &courseidput($hostdom{$_},$courseidbuffer{$_},$_);
      }
  #
  # File accesses
  Line 1185  sub get_course_adv_roles {
      }
      return sort %returnhash;
  }
+ # ---------------------------------------------------------- Course ID routines
+ # Deal with domain's nohist_courseid.db files
+ #
+ sub courseidput {
+     my ($domain,$what,$coursehome)=@_;
+     return &reply('courseidput:'.$domain.':'.$what,$coursehome);
+ }
+ sub courseiddump {
+     my ($domfilter,$descfilter,$sincefilter)=@_;
+     my %returnhash=();
+     foreach my $tryserver (keys %libserv) {
+ 	if ($hostdom{$tryserver}=~/$domfilter/) {
+ 	    foreach (
+              split(/\&/,&reply('courseiddump:'.$hostdom{$tryserver}.':'.
+ 			       $sincefilter.':'.&escape($descfilter)))) {
+ 		my ($key,$value)=split(/\=/,$_);
+                 if (($key) && ($value)) {
+ 		    $returnhash{&unescape($key)}=&unescape($value);
+                 }
+             }
+         }
+     }
+     return %returnhash;
+ }
+ #
  # ----------------------------------------------------------- Check out an item
  sub checkout {