[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Mon Oct 10 13:57:23 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  unescape returned key,value pairs inside dcmaildump() instead of in calling script.  
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.659 loncom/lonnet/perl/lonnet.pm:1.660
--- loncom/lonnet/perl/lonnet.pm:1.659	Tue Oct  4 13:28:08 2005
+++ loncom/lonnet/perl/lonnet.pm	Mon Oct 10 13:57:22 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.659 2005/10/04 17:28:08 albertel Exp $
+# $Id: lonnet.pm,v 1.660 2005/10/10 17:57:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1815,7 +1815,7 @@
 sub dcmaildump {
     my ($dom,$startdate,$enddate,$senders) = @_;
     my %returnhash=(); 
-    foreach my $tryserver (keys %libserv) {
+    foreach my $tryserver (keys(%libserv)) {
         if ($hostdom{$tryserver} eq $dom) {
             %{$returnhash{$tryserver}}=();
             foreach (
@@ -1824,7 +1824,7 @@
                    &escape($senders), ,$tryserver))) {
                 my($key,$value) = split(/\=/,$_);
                 if (($key) && ($value)) {
-                    $returnhash{$tryserver}{$key} = $value;
+                    $returnhash{$tryserver}{&unescape($key)} = &unescape($value);
                 }
             }
         }