Diff for /rat/lonratedt.pm between versions 1.31 and 1.31.2.2

version 1.31, 2002/06/24 14:12:04 version 1.31.2.2, 2002/09/04 19:11:24
Line 38  use Apache::lonnet; Line 38  use Apache::lonnet;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonsequence;  use Apache::lonsequence;
   
 my @order;  use vars qw(@order @resources);
 my @resources;  
   
   
 # Mapread read maps into global arrays @links and @resources, determines status  # Mapread read maps into global arrays @links and @resources, determines status
Line 318  sub startfinish { Line 317  sub startfinish {
     }      }
    my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]);     my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]);
    $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';     $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';
      if ($#order==0) {
          $resources[$#resources+1]='::false';
          $order[1]=$#resources;
      }
    my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);     my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
    $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';     $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
 }  }
Line 544  sub smpedt { Line 547  sub smpedt {
 # ------------------------------------------------------------ Assemble windows  # ------------------------------------------------------------ Assemble windows
         
    my $idx=-1;     my $idx=-1;
      $importdetail='&'.$importdetail;
      $importdetail=~s/^\&+/\&/;
    my $importwindow=     my $importwindow=
        '<option value="-1"> ---- Import and Paste Area ---- </option>'.         '<option value="-1"> ---- Import and Paste Area ---- </option>'.
      join("\n",map {       join("\n",map {

Removed from v.1.31  
changed lines
  Added in v.1.31.2.2


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