Diff for /rat/lonratedt.pm between versions 1.17 and 1.18

version 1.17, 2002/05/15 19:50:37 version 1.18, 2002/05/15 20:24:32
Line 320  sub smpedt { Line 320  sub smpedt {
        for (my $i=0;$i<=$lastsel;$i++) {         for (my $i=0;$i<=$lastsel;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);             my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.$name.'='.$url;
          &Apache::lonnet::escape($url);  
    }     }
        }         }
   
Line 330  sub smpedt { Line 329  sub smpedt {
        for (my $i=$lastsel+1;$i<=$#curimport;$i++) {         for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);             my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.$name.'='.$url;
          &Apache::lonnet::escape($url);  
   }    }
        }         }
        $importdetail=~s/\&+/\&/g;         $importdetail=~s/\&+/\&/g;
Line 350  sub smpedt { Line 348  sub smpedt {
        for (my $i=0;$i<=$#curimport;$i++) {         for (my $i=0;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);             my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.$name.'='.$url;
          &Apache::lonnet::escape($url);  
    }     }
        }         }
 # --------------------------------------------------------- Loading another map  # --------------------------------------------------------- Loading another map
Line 370  sub smpedt { Line 367  sub smpedt {
        for (my $i=0;$i<=$lastsel;$i++) {         for (my $i=0;$i<=$lastsel;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);             my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.$name.'='.$url;
          &Apache::lonnet::escape($url);  
    }     }
        }         }
   
Line 387  sub smpedt { Line 383  sub smpedt {
        for (my $i=$lastsel+1;$i<=$#curimport;$i++) {         for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
            my ($name,$url)=split(/\=/,$curimport[$i]);             my ($name,$url)=split(/\=/,$curimport[$i]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.$name.'='.$url;
          &Apache::lonnet::escape($url);  
   }    }
        }         }
        $importdetail=~s/\&+/\&/g;         $importdetail=~s/\&+/\&/g;

Removed from v.1.17  
changed lines
  Added in v.1.18


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>