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

version 1.30, 2002/06/04 13:23:54 version 1.33, 2002/08/26 12:38:40
Line 38  use Apache::lonnet; Line 38  use Apache::lonnet;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonsequence;  use Apache::lonsequence;
   
 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 67  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 317  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 344  sub storemap { Line 350  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 {
Line 568  sub smpedt { Line 681  sub smpedt {
    } @order);     } @order);
   
 # ----------------------------------------------------- Start simple RAT screen  # ----------------------------------------------------- Start simple RAT screen
      my $editscript=&editscript('simple');
    $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;  
 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     $editscript
 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]);

Removed from v.1.30  
changed lines
  Added in v.1.33


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