--- loncom/lonnet/perl/lonnet.pm	2007/10/04 19:59:16	1.920
+++ loncom/lonnet/perl/lonnet.pm	2007/10/06 04:32:40	1.921
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.920 2007/10/04 19:59:16 raeburn Exp $
+# $Id: lonnet.pm,v 1.921 2007/10/06 04:32:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2172,7 +2172,7 @@ sub flushcourselogs {
 # times and course titles for all courseids
 #
     my %courseidbuffer=();
-    foreach my $crsid (keys %courselogs) {
+    foreach my $crsid (keys(%courselogs)) {
         if (&reply('log:'.$coursedombuf{$crsid}.':'.$coursenumbuf{$crsid}.':'.
 		          &escape($courselogs{$crsid}),
 		          $coursehombuf{$crsid}) eq 'ok') {
@@ -2187,7 +2187,7 @@ sub flushcourselogs {
         }
         $courseidbuffer{$coursehombuf{$crsid}}{$crsid} = {
             'description' => &escape($coursedescrbuf{$crsid}),
-            'instcode'    => &escape($courseinstcodebuf{$crsid}),
+            'inst_code'    => &escape($courseinstcodebuf{$crsid}),
             'type'        => &escape($coursetypebuf{$crsid}),
             'owner'       => &escape($courseownerbuf{$crsid}),
         };
@@ -2198,7 +2198,8 @@ sub flushcourselogs {
 #
     foreach my $crs_home (keys(%courseidbuffer)) {
         my $response = &courseidput(&host_domain($crs_home),
-                                    $courseidbuffer{$crs_home},$crs_home);
+                                    $courseidbuffer{$crs_home},
+                                    $crs_home,'timeonly');
     }
 #
 # File accesses
@@ -2504,21 +2505,32 @@ sub getannounce {
 #
 
 sub courseidput {
-    my ($domain,$storehash,$coursehome)=@_;
-    my $items='';
-    my $now = time;
-    foreach my $item (keys(%$storehash)) {
-        $storehash->{$item}{'lasttime'} = $now;
-        $items.=&escape($item).'='.&freeze_escape($$storehash{$item}).'&';
+    my ($domain,$storehash,$coursehome,$caller) = @_;
+    my $outcome;
+    if ($caller eq 'timeonly') {
+        my $cids = '';
+        foreach my $item (keys(%$storehash)) {
+            $cids.=&escape($item).'&';
+        }
+        $cids=~s/\&$//;
+        $outcome = &reply('courseidputhash:'.$domain.':'.$caller.':'.$cids,
+                          $coursehome);       
+    } else {
+        my $items = '';
+        foreach my $item (keys(%$storehash)) {
+            $items.= &escape($item).'='.
+                     &freeze_escape($$storehash{$item}).'&';
+        }
+        $items=~s/\&$//;
+        $outcome = &reply('courseidputhash:'.$domain.':'.$caller.':'.$items,
+                          $coursehome);
     }
-    $items=~s/\&$//;
-    my $outcome = &reply('courseidputhash:'.$domain.':'.$items,$coursehome);
     if ($outcome eq 'unknown_cmd') {
         my $what;
         foreach my $cid (keys(%$storehash)) {
             $what .= &escape($cid).'=';
-            foreach my $item ('description','instcode','owner','type') {
-                $what .= $storehash->{$item}.':';
+            foreach my $item ('description','inst_code','owner','type') {
+                $what .= &escape($storehash->{$item}).':';
             }
             $what =~ s/\:$/&/;
         }
@@ -2530,7 +2542,8 @@ sub courseidput {
 }
 
 sub courseiddump {
-    my ($domfilter,$descfilter,$sincefilter,$instcodefilter,$ownerfilter,$coursefilter,$hostidflag,$hostidref,$typefilter,$regexp_ok)=@_;
+    my ($domfilter,$descfilter,$sincefilter,$instcodefilter,$ownerfilter,
+        $coursefilter,$hostidflag,$hostidref,$typefilter,$regexp_ok)=@_;
     my $as_hash = 1;
     my %returnhash;
     if (!$domfilter) { $domfilter=''; }
@@ -2547,7 +2560,7 @@ sub courseiddump {
                          $sincefilter.':'.&escape($descfilter).':'.
                          &escape($instcodefilter).':'.&escape($ownerfilter).
                          ':'.&escape($coursefilter).':'.&escape($typefilter).
-                         ':'.&escape($regexp_ok).':'.$as_hash,$tryserver); 
+                         ':'.&escape($regexp_ok).':'.$as_hash,$tryserver);
                 my @pairs=split(/\&/,$rep);
                 foreach my $item (@pairs) {
                     my ($key,$value)=split(/\=/,$item,2);
@@ -2557,10 +2570,10 @@ sub courseiddump {
                     if (ref($result) eq 'HASH') {
                         $returnhash{$key}=$result;
                     } else {
-                        my @responses = split(/:/,$result);
-                        my @items = ('description','instcode','owner','type');
+                        my @responses = split(/:/,$value);
+                        my @items = ('description','inst_code','owner','type');
                         for (my $i=0; $i<@responses; $i++) {
-                            $returnhash{$key}{$items[$i]} = $responses[$i];
+                            $returnhash{$key}{$items[$i]} = &unescape($responses[$i]);
                         }
                     } 
                 }
@@ -5548,14 +5561,13 @@ sub createcourse {
 # log existence
     my $newcourse = {
                     $udom.'_'.$uname => {
-                                     description => &escape($description),
-                                     inst_code   => &escape($inst_code),
-                                     owner       => &escape($course_owner),
-                                     type        => &escape($crstype),
+                                     description => $description,
+                                     inst_code   => $inst_code,
+                                     owner       => $course_owner,
+                                     type        => $crstype,
                                                 },
                     };
-    &courseidput($udom,$newcourse);
-    &flushcourselogs();
+    &courseidput($udom,$newcourse,$uhome,'notime');
 # set toplevel url
     my $topurl=$url;
     unless ($nonstandard) {