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

version 1.30, 2002/06/04 13:23:54 version 1.36, 2002/09/04 16:54:44
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;
   
 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 68  sub mapread { Line 69  sub mapread {
         if ($command eq 'objlinks') {          if ($command eq 'objlinks') {
             $links[$number]=$content;              $links[$number]=$content;
         }          }
           if ($command eq 'objparms') {
       return('Map has resource parameters. Use advanced editor.',1);
           }
     }      }
 # ------------------------------------------------------- Is this a linear map?  # ------------------------------------------------------- Is this a linear map?
     my @starters=();      my @starters=();
Line 315  sub startfinish { Line 319  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 322  sub startfinish { Line 330  sub startfinish {
 # ------------------------------------------------------------------- Store map  # ------------------------------------------------------------------- Store map
   
 sub storemap {  sub storemap {
     my $fn=shift;      my $realfn=shift;
       my $fn=$realfn;
   # unless this is forced to work from the original file, use a temporary file
   # 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 344  sub storemap { Line 362  sub storemap {
      &Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));       &Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));
 }  }
   
   sub editscript {
       my $mode=shift;
       return(<<ENDSCRIPT);
   var srch;
   var srchflag=-1; // 1 means currently open
                    // 0 means closed (but has been open)
                    // -1 means never yet opened/defined
   var srchmode='';
   
   var idx;
   var idxflag=-1; // 1 means currently open
                    // 0 means closed (but has been open)
                    // -1 means never yet opened/defined
   var idxmode='';
   
   // ------------------------------------------------------ Clears indexer window
   function idxclear() {
     idx.document.clear();
   }
   
   // ------------------------------------------------------- Clears search window
   function srchclear() {
     srch.document.clear();
   }
   
   // ------------------------------------------------------ Closes indexer window
   function idxclose() {
     if (idx && !idx.closed) {
       idxflag=0;
       idx.close();
     }
   }
   
   // ------------------------------------------------------- Closes search window
   function srchclose() {
     if (srch && !srch.closed) {
       srchflag=0;
       srch.close();
     }
   }
   
   // -------------------------------------------------------- Open indexer window
   function idxopen(mode) {
      var options="scrollbars=1,resizable=1,menubar=0";
      idxmode=mode;
      idxflag=1;
      idx=open("/res/?launch=1&mode=$mode&catalogmode="+mode,"idxout",options);
      idx.focus();
   }
   
   // --------------------------------------------------------- Open search window
   function srchopen(mode) {
      var options="scrollbars=1,resizable=1,menubar=0";
      srchmode=mode;
      srchflag=1;
      srch=open("/adm/searchcat?launch=1&mode=$mode&catalogmode="+mode,"srchout",options);
      srch.focus();
   }
   // ----------------------------------------------------- launch indexer browser
   function groupsearch() {
      srchcheck('groupsearch');
   }
   
   function groupimport() {
      idxcheck('groupimport');
   }
   // ------------------------------------------------------- Do srch status check
   function srchcheck(mode) {
      if (!srch || srch.closed || srchmode!=mode) {
         srchopen(mode);
      }
      srch.focus();
   }
   
   // -------------------------------------------------------- Do idx status check
   function idxcheck(mode) {
      if (!idx || idx.closed || idxmode!=mode) {
         idxopen(mode);
      }
      idx.focus();
   }
   
   
       var editbrowser;
       function openbrowser(formname,elementname,only,omit) {
           var url = '/res/?';
           if (editbrowser == null) {
               url += 'launch=1&';
           }
           url += 'catalogmode=interactive&';
           url += 'mode=edit&';
           url += 'form=' + formname + '&';
           if (only != null) {
               url += 'only=' + only + '&';
           } 
           if (omit != null) {
               url += 'omit=' + omit + '&';
           }
           url += 'element=' + elementname + '';
           var title = 'Browser';
           var options = 'scrollbars=1,resizable=1,menubar=0';
           options += ',width=700,height=600';
           editbrowser = open(url,title,options,'1');
           editbrowser.focus();
       }
   ENDSCRIPT
   }
 # ------------------------------------------------------- Simple edit processor  # ------------------------------------------------------- Simple edit processor
   
 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);
          my ($errtext,$fatal)=
                              &mapread(&Apache::lonnet::filelocation('',$url),'');
      }
      if ($ENV{'form.revert'}) {
          $targetmsg='<b>Reverting ...</b><br>';
          unlink($tmpfn);
          my ($errtext,$fatal)=
                              &mapread(&Apache::lonnet::filelocation('',$url),'');
      }
      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 541  sub smpedt { Line 685  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 568  sub smpedt { Line 714  sub smpedt {
    } @order);     } @order);
   
 # ----------------------------------------------------- Start simple RAT screen  # ----------------------------------------------------- Start simple RAT screen
      my $editscript=&editscript('simple');
      my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1);
    $r->print(<<ENDSMPHEAD);     $r->print(<<ENDSMPHEAD);
 <html>  <html>
 <head>  <head>
 <script>  <script>
 var srch;  
 var srchflag=-1; // 1 means currently open  
                  // 0 means closed (but has been open)  
                  // -1 means never yet opened/defined  
 var srchmode='';  
   
 var idx;     $editscript
 var idxflag=-1; // 1 means currently open  
                  // 0 means closed (but has been open)  
                  // -1 means never yet opened/defined  
 var idxmode='';  
   
 // ------------------------------------------------------ Clears indexer window  
 function idxclear() {  
   idx.document.clear();  
 }  
   
 // ------------------------------------------------------- Clears search window  
 function srchclear() {  
   srch.document.clear();  
 }  
   
 // ------------------------------------------------------ Closes indexer window  
 function idxclose() {  
   if (idx && !idx.closed) {  
     idxflag=0;  
     idx.close();  
   }  
 }  
   
 // ------------------------------------------------------- Closes search window  
 function srchclose() {  
   if (srch && !srch.closed) {  
     srchflag=0;  
     srch.close();  
   }  
 }  
   
 // -------------------------------------------------------- Open indexer window  
 function idxopen(mode) {  
    var options="scrollbars=1,resizable=1,menubar=0";  
    idxmode=mode;  
    idxflag=1;  
    idx=open("/res/?launch=1&mode=simple&catalogmode="+mode,"idxout",options);  
    idx.focus();  
 }  
   
 // --------------------------------------------------------- Open search window  
 function srchopen(mode) {  
    var options="scrollbars=1,resizable=1,menubar=0";  
    srchmode=mode;  
    srchflag=1;  
    srch=open("/adm/searchcat?launch=1&mode=simple&catalogmode="+mode,"srchout",options);  
    srch.focus();  
 }  
 // ----------------------------------------------------- launch indexer browser  
 function groupsearch() {  
    srchcheck('groupsearch');  
 }  
   
 function groupimport() {  
    idxcheck('groupimport');  
 }  
 // ------------------------------------------------------- Do srch status check  
 function srchcheck(mode) {  
    if (!srch || srch.closed || srchmode!=mode) {  
       srchopen(mode);  
    }  
    srch.focus();  
 }  
   
 // -------------------------------------------------------- Do idx status check  
 function idxcheck(mode) {  
    if (!idx || idx.closed || idxmode!=mode) {  
       idxopen(mode);  
    }  
    idx.focus();  
 }  
   
   
     var editbrowser;  
     function openbrowser(formname,elementname,only,omit) {  
         var url = '/res/?';  
         if (editbrowser == null) {  
             url += 'launch=1&';  
         }  
         url += 'catalogmode=interactive&';  
         url += 'mode=edit&';  
         url += 'form=' + formname + '&';  
         if (only != null) {  
             url += 'only=' + only + '&';  
         }   
         if (omit != null) {  
             url += 'omit=' + omit + '&';  
         }  
         url += 'element=' + elementname + '';  
         var title = 'Browser';  
         var options = 'scrollbars=1,resizable=1,menubar=0';  
         options += ',width=700,height=600';  
         editbrowser = open(url,title,options,'1');  
         editbrowser.focus();  
     }  
   
    function openview(entry) {     function openview(entry) {
        var url=unescape((entry.split('='))[1]);         var url=unescape((entry.split('='))[1]);
Line 685  function idxcheck(mode) { Line 733  function idxcheck(mode) {
   
    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 706  $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>
Line 725  value="Browse"><input type=submit name=l Line 773  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 772  ENDNODIR Line 823  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.30  
changed lines
  Added in v.1.36


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