[LON-CAPA-cvs] cvs: loncom / lond

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Sat, 13 Oct 2007 17:07:57 -0000


raeburn		Sat Oct 13 13:07:57 2007 EDT

  Modified files:              
    /loncom	lond 
  Log:
  bug 5474.
  
  
Index: loncom/lond
diff -u loncom/lond:1.387 loncom/lond:1.388
--- loncom/lond:1.387	Mon Oct  8 17:13:52 2007
+++ loncom/lond	Sat Oct 13 13:07:56 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.387 2007/10/08 21:13:52 albertel Exp $
+# $Id: lond,v 1.388 2007/10/13 17:07:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,7 +59,7 @@
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.387 $'; #' stupid emacs
+my $VERSION='$Revision: 1.388 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -3515,7 +3515,7 @@
                 }
             } else {
                 $is_hash =  0;
-                my @courseitems = split(/:/,&unescape($value));
+                my @courseitems = split(/:/,$value);
                 $lasttime = pop(@courseitems);
                 next if ($lasttime<$since);
 	        ($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems;
@@ -3604,10 +3604,10 @@
                     if ($is_hash) {
                         $qresult.=$key.'='.$value.'&';
                     } else {
-                        my %rtnhash = ( 'description' => &escape($val{'descr'}),
-                                        'inst_code' => &escape($val{'inst_code'}),
-                                        'owner'     => &escape($val{'owner'}),
-                                        'type'      => &escape($val{'type'}),
+                        my %rtnhash = ( 'description' => &unescape($val{'descr'}),
+                                        'inst_code' => &unescape($val{'inst_code'}),
+                                        'owner'     => &unescape($val{'owner'}),
+                                        'type'      => &unescape($val{'type'}),
                                       );
                         my $items = &Apache::lonnet::freeze_escape(\%rtnhash);
                         $qresult.=$key.'='.$items.'&';