Diff for /rat/lonratedt.pm between versions 1.67 and 1.68

version 1.67, 2005/06/08 15:44:51 version 1.68, 2005/06/08 16:10:01
Line 448  sub buttons { Line 448  sub buttons {
     return $output.'</form><hr>';      return $output.'</form><hr>';
 }  }
   
   # ----------------------------------------------------- Get an unused res index
   
   sub unusedindex {
       return 1+($#resources>$#zombies?$#resources:$#zombies);
   }
   
 # ----------------------------------------------------------- Paste into target  # ----------------------------------------------------------- Paste into target
 # modifies @order, @resources  # modifies @order, @resources
   
Line 460  sub pastetarget { Line 466  sub pastetarget {
             $name=&Apache::lonnet::unescape($name);              $name=&Apache::lonnet::unescape($name);
             $url=&Apache::lonnet::unescape($url);              $url=&Apache::lonnet::unescape($url);
             if ($url) {              if ($url) {
        my $idx=$#resources+1;         my $idx=&unusedindex();
                $insertorder[$#insertorder+1]=$idx;                 $insertorder[$#insertorder+1]=$idx;
                my $ext='false';                 my $ext='false';
                if ($url=~/^http\:\/\//) { $ext='true'; }                 if ($url=~/^http\:\/\//) { $ext='true'; }
Line 506  sub startfinish { Line 512  sub startfinish {
    $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';     $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';
 # Make sure this has at least start and finish  # Make sure this has at least start and finish
    if ($#order==0) {     if ($#order==0) {
        $resources[$#resources+1]='::false';         $resources[&unusedindex()]='::false';
        $order[1]=$#resources;         $order[1]=$#resources;
    }     }
 # Make the last one a finish resource  # Make the last one a finish resource
Line 1178  sub viewmap { Line 1184  sub viewmap {
                       '" /></td><td>'.&Apache::lonratsrv::qtescape($title).                        '" /></td><td>'.&Apache::lonratsrv::qtescape($title).
                       '</td><td>'.$filename.'</td><td>');                        '</td><td>'.$filename.'</td><td>');
             if ($url) {              if ($url) {
                 if (-e $resfilepath) {   $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');
     $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');  
                 } else {  
                     $r->print(&mt('unpublished'));  
                 }  
             }              }
             $r->print('</td><td>');              $r->print('</td><td>');
             if ($url) {              if ($url) {

Removed from v.1.67  
changed lines
  Added in v.1.68


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