Diff for /rat/lonratedt.pm between versions 1.5 and 1.6

version 1.5, 2001/11/29 19:23:49 version 1.6, 2002/05/09 21:59:33
Line 61  sub smpedt { Line 61  sub smpedt {
    my ($r,$fn)=@_;     my ($r,$fn)=@_;
    $r->print(<<ENDSMPHEAD);     $r->print(<<ENDSMPHEAD);
 <html>  <html>
   <head>
   <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
   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();
   }
   </script>
   </head>                 
 <body bgcolor='#FFFFFF'>  <body bgcolor='#FFFFFF'>
 <form method=post>  <form method=post>
 <input type=submit name=forceadv   <input type=submit name=forceadv 
 value="Advanced Map Editing - Resource Assembly Tool"><hr>  value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr>
   This is the future site of the great simple RAT
   <a href="javascript:groupsearch()">Group Search</a>
   <a href="javascript:groupimport()">Group Import</a>
   
 ENDSMPHEAD  ENDSMPHEAD
   
     $r->print(      $r->print(
       '<input type=submit name=forcesmp value="Store"></form></body></html>');        '<input type=submit name=forcesmp value="Store"></form></body></html>');
 }  }

Removed from v.1.5  
changed lines
  Added in v.1.6


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