[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

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

version 1.17, 2002/05/15 19:50:37 version 1.19, 2002/05/15 21:28:08
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;
Line 529  function idxcheck(mode) { Line 524  function idxcheck(mode) {
         editbrowser = open(url,title,options,'1');          editbrowser = open(url,title,options,'1');
         editbrowser.focus();          editbrowser.focus();
     }      }
   
      function openview(entry) {
          var url=unescape((entry.split('='))[1]);
          if (url) { open(url,'cat'); }
      }
   
      function viewtarget() {
          openview((document.forms.simpleedit.targetdetail.value.split('&'))
                   [document.forms.simpleedit.target.selectedIndex+1]);
      }
   
      function viewimport() {
          openview((document.forms.simpleedit.curimpdetail.value.split('&'))
                   [document.forms.simpleedit.import.selectedIndex+1]);
      }
   
 </script>  </script>
 </head>                   </head>                 
 <body bgcolor='#FFFFFF'>  <body bgcolor='#FFFFFF'>
Removed from v.1.17  
changed lines
  Added in v.1.19

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