Diff for /rat/lonratedt.pm between versions 1.35 and 1.38

version 1.35, 2002/09/02 15:27:08 version 1.38, 2002/10/11 14:00:42
Line 103  sub mapread { Line 103  sub mapread {
             }              }
         }          }
     }      }
   # ---------------------------------------------- Did we just read an empty map?
       if ($#resources<1) {
           undef $resources[0];
    $resources[1]=':::start';
           $resources[2]=':::finish';
       }
 # -------------------------------------------------- This is a linear map, sort  # -------------------------------------------------- This is a linear map, sort
   
     my $startidx=0;      my $startidx=0;
Line 300  sub pastetarget { Line 305  sub pastetarget {
                my $ext='false';                 my $ext='false';
                if ($url=~/^http\:\/\//) { $ext='true'; }                 if ($url=~/^http\:\/\//) { $ext='true'; }
                $url=~s/\:/\&colon;/g;                 $url=~s/\:/\&colon;/g;
                  $name=~s/\:/\&colon;/g;
                $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';                 $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
    }     }
         }          }
Line 710  sub smpedt { Line 716  sub smpedt {
        $targetdetail.='&'.&Apache::lonnet::escape($name).'='.         $targetdetail.='&'.&Apache::lonnet::escape($name).'='.
                   &Apache::lonnet::escape($url);                    &Apache::lonnet::escape($url);
        $idx++;         $idx++;
          $name=~s/\&colon;/\:/g;
        '<option value="'.$idx.'">'.$name.'</option>';         '<option value="'.$idx.'">'.$name.'</option>';
    } @order);     } @order);
   
Line 746  sub smpedt { Line 753  sub smpedt {
 $bodytag  $bodytag
 $buttons  $buttons
 <font color=red>$errtext</font>  <font color=red>$errtext</font>
 <h1>$url</h1>  
 <form name=simpleedit method=post>  <form name=simpleedit method=post>
 <input type=hidden name=forcesmp value=1>  <input type=hidden name=forcesmp value=1>
 <table>  <table>
     <tr><th width="40%">Import</th>      <tr><th width="40%">Temporary Assembly Workspace</th>
 <th>&nbsp;</th>  <th>&nbsp;</th>
 <th width="40%">Target</th></tr>  <th width="40%">File: $url</th></tr>
 <tr><td bgcolor="#FFFFCC">  <tr><td bgcolor="#FFFFCC">
 <input type=button onClick="javascript:groupsearch()" value="Group Search">  <input type=button onClick="javascript:groupsearch()" value="Search">
 <input type=button onClick="javascript:groupimport();" value="Group Import">  <input type=button onClick="javascript:groupimport();" value="Import">
 after selected  after selected
 <hr>  <hr>
 <input type=text size=20 name=importmap>  <input type=text size=20 name=importmap>
Line 769  value="Browse"><input type=submit name=l Line 775  value="Browse"><input type=submit name=l
     </td><td>&nbsp;</td><td bgcolor="#FFFFCC">      </td><td>&nbsp;</td><td bgcolor="#FFFFCC">
   
 <input type=button onClick=  <input type=button onClick=
 "javascript:impfortarget.value=1;groupsearch()" value="Group Search">  "javascript:impfortarget.value=1;groupsearch()" value="Search">
 <input type=button onClick=  <input type=button onClick=
 "javascript:impfortarget.value=1;groupimport();" value="Group Import">  "javascript:impfortarget.value=1;groupimport();" value="Import">
 after selected  after selected
 <hr>$targetmsg  <hr>$targetmsg
 <input type=submit name="revert" value="Revert to Last Saved">  <input type=submit name="revert" value="Revert to Last Saved">

Removed from v.1.35  
changed lines
  Added in v.1.38


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