[LON-CAPA-cvs] cvs: rat / lonratedt.pm

[www]

www		Wed May 15 16:24:32 2002 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  Over-escaping removed
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.17 rat/lonratedt.pm:1.18
--- rat/lonratedt.pm:1.17	Wed May 15 15:50:37 2002
+++ rat/lonratedt.pm	Wed May 15 16:24:32 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.17 2002/05/15 19:50:37 www Exp $
+# $Id: lonratedt.pm,v 1.18 2002/05/15 20:24:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -320,8 +320,7 @@
        for (my $i=0;$i<=$lastsel;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {
-              $importdetail.='&'.&Apache::lonnet::escape($name).'='.
-		 	         &Apache::lonnet::escape($url);
+              $importdetail.='&'.$name.'='.$url;
 	   }
        }
 
@@ -330,8 +329,7 @@
        for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {
-              $importdetail.='&'.&Apache::lonnet::escape($name).'='.
-		 	         &Apache::lonnet::escape($url);
+              $importdetail.='&'.$name.'='.$url;
 	  }
        }
        $importdetail=~s/\&+/\&/g;
@@ -350,8 +348,7 @@
        for (my $i=0;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {
-              $importdetail.='&'.&Apache::lonnet::escape($name).'='.
-		 	         &Apache::lonnet::escape($url);
+              $importdetail.='&'.$name.'='.$url;
 	   }
        }
 # --------------------------------------------------------- Loading another map
@@ -370,8 +367,7 @@
        for (my $i=0;$i<=$lastsel;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {
-              $importdetail.='&'.&Apache::lonnet::escape($name).'='.
-		 	         &Apache::lonnet::escape($url);
+              $importdetail.='&'.$name.'='.$url;
 	   }
        }
 
@@ -387,8 +383,7 @@
        for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {
-              $importdetail.='&'.&Apache::lonnet::escape($name).'='.
-		 	         &Apache::lonnet::escape($url);
+              $importdetail.='&'.$name.'='.$url;
 	  }
        }
        $importdetail=~s/\&+/\&/g;