Diff for /rat/lonratedt.pm between versions 1.21 and 1.22

version 1.21, 2002/05/18 18:24:34 version 1.22, 2002/05/20 18:54:55
Line 305  sub pastetarget { Line 305  sub pastetarget {
 sub startfinish {  sub startfinish {
     foreach (@order) {      foreach (@order) {
  my ($name,$url,$ext)=split(/\:/,$resources[$_]);   my ($name,$url,$ext)=split(/\:/,$resources[$_]);
           if ($url=~/http\&colon\:\/\//) { $ext='true'; }
         $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';          $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';
     }      }
    my ($name,$url,$ext)=split(/\:/,$resources[0]);     my ($name,$url,$ext)=split(/\:/,$resources[0]);
Line 313  sub startfinish { Line 314  sub startfinish {
    $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';     $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
 }  }
   
   # ------------------------------------------------------------------- Store map
   
   sub storemap {
       my $fn=shift;
       &startfinish();
       my $output='graphdef<:>no';
       my $k=1;
       for (my $i=0; $i<=$#order; $i++) {
           if (defined($resources[$order[$i]])) {
       $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];
           }
           if (defined($order[$i+1])) {
       if (defined($resources[$order[$i+1]])) {
                  $output.='<&>objlinks<:>'.$k.'<:>'.
      $order[$i].':'.$order[$i+1].':0';
          $k++;
               }
           }
       }
       $output=~s/http\&colon\:\/\///g;
       $ENV{'form.output'}=$output;
       return 
        &Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));
   }
   
 # ------------------------------------------------------- Simple edit processor  # ------------------------------------------------------- Simple edit processor
   
 sub smpedt {  sub smpedt {
    my ($r,$errtext)=@_;     my ($r,$url,$errtext)=@_;
    my $buttons=&buttons(2);     my $buttons=&buttons(2);
   
 # ---------------------------------------------------------- Process form input  # ---------------------------------------------------------- Process form input
Line 440  sub smpedt { Line 466  sub smpedt {
            $lastsel=$#order;             $lastsel=$#order;
        }         }
        &pastetarget($lastsel,split(/\&/,$ENV{'form.importdetail'}));         &pastetarget($lastsel,split(/\&/,$ENV{'form.importdetail'}));
        &startfinish();         &storemap(&Apache::lonnet::filelocation('',$url));
 # ------------------------------------------------------------------------- Cut  # ------------------------------------------------------------------------- Cut
    } elsif ($ENV{'form.cut'}) {     } elsif ($ENV{'form.cut'}) {
 # ----------------------------------------------------------------------- Paste  # ----------------------------------------------------------------------- Paste
Line 738  sub handler { Line 764  sub handler {
   if ($ENV{'form.forceadv'}) {    if ($ENV{'form.forceadv'}) {
       &ratedt($r,$url);        &ratedt($r,$url);
   } elsif ($ENV{'form.forcesmp'}) {    } elsif ($ENV{'form.forcesmp'}) {
       &smpedt($r,$errtext);        &smpedt($r,$url,$errtext);
   } else {    } else {
       &viewmap($r,$url,$adv,$errtext);        &viewmap($r,$url,$adv,$errtext);
   }    }

Removed from v.1.21  
changed lines
  Added in v.1.22


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