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

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

version 1.20, 2002/05/16 21:10:05 version 1.22, 2002/05/20 18:54:55
Line 283  sub pastetarget { Line 283  sub pastetarget {
     foreach (@which) {      foreach (@which) {
         if (defined($_)) {          if (defined($_)) {
     my ($name,$url)=split(/\=/,$_);      my ($name,$url)=split(/\=/,$_);
     my $idx=$#resources+1;              $name=&Apache::lonnet::unescape($name);
             $insertorder[$#insertorder+1]=$idx;              $url=&Apache::lonnet::unescape($url);
             my $ext='false';              if ($url) {
             if ($url=~/^http\:\/\//) { $ext='true'; }         my $idx=$#resources+1;
             $resources[$idx]=$name.':'.$url.':normal:'.$ext.':res';                 $insertorder[$#insertorder+1]=$idx;
                  my $ext='false';
                  if ($url=~/^http\:\/\//) { $ext='true'; }
                  $url=~s/\:/\:/g;
                  $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
      }
         }          }
     }      }
     print "insertorder:".join(',',@insertorder).'<br>';  
     print "order:".join(',',@order).'<br>';  
     my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);      my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
     print "oldorder:".join(',',@oldorder).'<br>';      @order=(@order,@oldorder);
     print "order:".join(',',@order).'<br>';  }
     @order=push(@order,@oldorder);  
     print "order:".join(',',@order).'<br>';  # ------------------------------------------------ Get start and finish correct
   # modifies @resources
   
   sub startfinish {
       foreach (@order) {
    my ($name,$url,$ext)=split(/\:/,$resources[$_]);
           if ($url=~/http\&colon\:\/\//) { $ext='true'; }
           $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';
       }
      my ($name,$url,$ext)=split(/\:/,$resources[0]);
      $resources[0]=$name.':'.$url.':'.$ext.':start:res';
      my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
      $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 425  sub smpedt { Line 465  sub smpedt {
        } else {         } else {
            $lastsel=$#order;             $lastsel=$#order;
        }         }
        &pastetarget($lastsel,split(/\&/,$ENV{'form.importdata'}));         &pastetarget($lastsel,split(/\&/,$ENV{'form.importdetail'}));
          &storemap(&Apache::lonnet::filelocation('',$url));
 # ------------------------------------------------------------------------- Cut  # ------------------------------------------------------------------------- Cut
    } elsif ($ENV{'form.cut'}) {     } elsif ($ENV{'form.cut'}) {
 # ----------------------------------------------------------------------- Paste  # ----------------------------------------------------------------------- Paste
Line 723  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.20  
changed lines
  Added in v.1.22

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