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

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

version 1.33, 2002/08/26 12:38:40 version 1.34, 2002/08/31 00:42:30
Line 37  use Apache::Constants qw(:common); Line 37  use Apache::Constants qw(:common);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonsequence;  use Apache::lonsequence;
   use Apache::loncommon;
   use File::Copy;
   
 use vars qw(@order @resources);  use vars qw(@order @resources);
   
Line 328  sub startfinish { Line 330  sub startfinish {
 # ------------------------------------------------------------------- Store map  # ------------------------------------------------------------------- Store map
   
 sub storemap {  sub storemap {
     my $fn=shift;      my $realfn=shift;
       my $fn=$realfn.'.tmp';
       unless (-e $fn) {
    copy($realfn,$fn);
       }
     &startfinish();      &startfinish();
     my $output='graphdef<:>no';      my $output='graphdef<:>no';
     my $k=1;      my $k=1;
Line 462  ENDSCRIPT Line 468  ENDSCRIPT
 sub smpedt {  sub smpedt {
    my ($r,$url,$errtext)=@_;     my ($r,$url,$errtext)=@_;
    my $buttons=&buttons(2);     my $buttons=&buttons(2);
      my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';
      my $targetmsg='';
      if ($ENV{'form.save'}) {
          $targetmsg='<b>Saving ...</b><br>';
          copy($tmpfn,&Apache::lonnet::filelocation('',$url));
          unlink($tmpfn);
      }
      if ($ENV{'form.revert'}) {
          $targetmsg='<b>Reverting ...</b><br>';
          unlink($tmpfn);
      }
      if (-e $tmpfn) {
         $targetmsg=
           '<b><font color="red">You are working with an unsaved version of your map.</font></b><br>';
         my ($errtext,$fatal)=&mapread($tmpfn,'');
      }
 # ---------------------------------------------------------- Process form input  # ---------------------------------------------------------- Process form input
   
    my @importselect=();     my @importselect=();
Line 654  sub smpedt { Line 675  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 {
Line 682  sub smpedt { Line 705  sub smpedt {
   
 # ----------------------------------------------------- Start simple RAT screen  # ----------------------------------------------------- Start simple RAT screen
    my $editscript=&editscript('simple');     my $editscript=&editscript('simple');
      my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1);
    $r->print(<<ENDSMPHEAD);     $r->print(<<ENDSMPHEAD);
 <html>  <html>
 <head>  <head>
Line 699  sub smpedt { Line 723  sub smpedt {
   
    function viewtarget() {     function viewtarget() {
        openview((document.forms.simpleedit.targetdetail.value.split('&'))         openview((document.forms.simpleedit.targetdetail.value.split('&'))
                 [document.forms.simpleedit.target.selectedIndex+1]);                  [document.forms.simpleedit.target.selectedIndex]);
    }     }
   
    function viewimport() {     function viewimport() {
        openview((document.forms.simpleedit.curimpdetail.value.split('&'))         openview((document.forms.simpleedit.curimpdetail.value.split('&'))
                 [document.forms.simpleedit.importsel.selectedIndex+1]);                  [document.forms.simpleedit.importsel.selectedIndex]);
    }     }
   
 </script>  </script>
 </head>                   </head>                 
 <body bgcolor='#FFFFFF'>  $bodytag
 $buttons  $buttons
 <font color=red>$errtext</font>  <font color=red>$errtext</font>
 <h1>$url</h1>  <h1>$url</h1>
Line 739  value="Browse"><input type=submit name=l Line 763  value="Browse"><input type=submit name=l
 <input type=button onClick=  <input type=button onClick=
 "javascript:impfortarget.value=1;groupimport();" value="Group Import">  "javascript:impfortarget.value=1;groupimport();" value="Group Import">
 after selected  after selected
 <hr><input type=button onClick="javascript:viewtarget()" value="View">  <hr>$targetmsg
   <input type=submit name="revert" value="Revert to Last Saved">
   <input type=submit name="save" value="Save">
   <input type=button onClick="javascript:viewtarget()" value="View">
 </td></tr>  </td></tr>
   
 <tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>  <tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>
Line 786  ENDNODIR Line 813  ENDNODIR
   
 sub viewmap {  sub viewmap {
     my ($r,$url,$adv,$errtext)=@_;      my ($r,$url,$adv,$errtext)=@_;
     $r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv));      $r->print('<html>'.
        &Apache::loncommon::bodytag('Edit Content of a Map').
        &buttons($adv));
     if ($errtext) {      if ($errtext) {
  $r->print($errtext.'<hr>');   $r->print($errtext.'<hr>');
     }      }
     my $idx=0;      my $idx=0;
       $r->print('<h1>'.$url.'</h1>');
     foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {      foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
  if (defined($_)) {   if (defined($_)) {
             $idx++;              $idx++;
Removed from v.1.33  
changed lines
  Added in v.1.34

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