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

Diff for /rat/lonratedt.pm between versions 1.34 and 1.36

version 1.34, 2002/08/31 00:42:30 version 1.36, 2002/09/04 16:54:44
Line 331  sub startfinish { Line 331  sub startfinish {
   
 sub storemap {  sub storemap {
     my $realfn=shift;      my $realfn=shift;
     my $fn=$realfn.'.tmp';      my $fn=$realfn;
     unless (-e $fn) {  # unless this is forced to work from the original file, use a temporary file
  copy($realfn,$fn);  # instead
       unless (shift) {
          $fn=$realfn.'.tmp';
          unless (-e $fn) {
     copy($realfn,$fn);
          }
     }      }
   # store data either into tmp or real file
     &startfinish();      &startfinish();
     my $output='graphdef<:>no';      my $output='graphdef<:>no';
     my $k=1;      my $k=1;
Line 474  sub smpedt { Line 480  sub smpedt {
        $targetmsg='<b>Saving ...</b><br>';         $targetmsg='<b>Saving ...</b><br>';
        copy($tmpfn,&Apache::lonnet::filelocation('',$url));         copy($tmpfn,&Apache::lonnet::filelocation('',$url));
        unlink($tmpfn);         unlink($tmpfn);
          my ($errtext,$fatal)=
                              &mapread(&Apache::lonnet::filelocation('',$url),'');
    }     }
    if ($ENV{'form.revert'}) {     if ($ENV{'form.revert'}) {
        $targetmsg='<b>Reverting ...</b><br>';         $targetmsg='<b>Reverting ...</b><br>';
        unlink($tmpfn);         unlink($tmpfn);
          my ($errtext,$fatal)=
                              &mapread(&Apache::lonnet::filelocation('',$url),'');
    }     }
    if (-e $tmpfn) {     if (-e $tmpfn) {
       $targetmsg=        $targetmsg=
Line 744  $buttons Line 754  $buttons
 <th>&nbsp;</th>  <th>&nbsp;</th>
 <th width="40%">Target</th></tr>  <th width="40%">Target</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>
Removed from v.1.34  
changed lines
  Added in v.1.36

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