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

Diff for /rat/lonratedt.pm between versions 1.77 and 1.78

version 1.77, 2006/05/23 18:31:13 version 1.78, 2006/05/30 17:15:10
Line 172  use Apache::lonsequence; Line 172  use Apache::lonsequence;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use File::Copy;  use File::Copy;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 use vars qw(@order @resources @resparms @zombies);  use vars qw(@order @resources @resparms @zombies);
   
Line 488  sub pastetarget { Line 491  sub pastetarget {
     foreach (@which) {      foreach (@which) {
         if (defined($_)) {          if (defined($_)) {
     my ($name,$url)=split(/\=/,$_);      my ($name,$url)=split(/\=/,$_);
             $name=&Apache::lonnet::unescape($name);              $name=&unescape($name);
             $url=&Apache::lonnet::unescape($url);              $url=&unescape($url);
             if ($url) {              if ($url) {
        my $idx=&getresidx($url);         my $idx=&getresidx($url);
                $insertorder[$#insertorder+1]=$idx;                 $insertorder[$#insertorder+1]=$idx;
Line 871  sub smpedt { Line 874  sub smpedt {
     &Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {      &Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {
    my ($name,$url)=split(/\:/,$_);     my ($name,$url)=split(/\:/,$_);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.&escape($name).'='.
          &Apache::lonnet::escape($url);           &escape($url);
   }    }
        }         }
   
Line 918  sub smpedt { Line 921  sub smpedt {
        foreach (@targetselect) {         foreach (@targetselect) {
    my ($name,$url)=split(/\:/,$resources[$order[$_-1]]);     my ($name,$url)=split(/\:/,$resources[$order[$_-1]]);
            if ($url) {             if ($url) {
               $importdetail.='&'.&Apache::lonnet::escape($name).'='.                $importdetail.='&'.&escape($name).'='.
          &Apache::lonnet::escape($url);           &escape($url);
   }    }
        }         }
   
Line 1006  sub smpedt { Line 1009  sub smpedt {
           my ($name,$url)=split(/\=/,$_);            my ($name,$url)=split(/\=/,$_);
           unless ($name) { $name=(split(/\//,$url))[-1]; }            unless ($name) { $name=(split(/\//,$url))[-1]; }
           unless ($name) { $name='EMPTY'; }            unless ($name) { $name='EMPTY'; }
           '<option value="'.$idx.'">'.&Apache::lonnet::unescape($name).            '<option value="'.$idx.'">'.&unescape($name).
                                     '</option>';                                      '</option>';
       }        }
    } split(/\&/,$importdetail));     } split(/\&/,$importdetail));
Line 1019  sub smpedt { Line 1022  sub smpedt {
        my ($name,$url)=split(/\:/,$resources[$_]);         my ($name,$url)=split(/\:/,$resources[$_]);
        unless ($name) {  $name=(split(/\//,$url))[-1]; }         unless ($name) {  $name=(split(/\//,$url))[-1]; }
        unless ($name) { $name='EMPTY'; }         unless ($name) { $name='EMPTY'; }
        $targetdetail.='&'.&Apache::lonnet::escape($name).'='.         $targetdetail.='&'.&escape($name).'='.
                   &Apache::lonnet::escape($url);                    &escape($url);
        $idx++;         $idx++;
        $name=~s/\&colon;/\:/g;         $name=~s/\&colon;/\:/g;
        '<option value="'.$idx.'">'.$name.'</option>';         '<option value="'.$idx.'">'.$name.'</option>';
Removed from v.1.77  
changed lines
  Added in v.1.78

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