--- loncom/html/res/adm/pages/menu.html	2001/08/24 15:33:59	1.39
+++ loncom/html/res/adm/pages/menu.html	2002/05/17 15:09:06	1.53
@@ -2,6 +2,33 @@
 <!--
 The LearningOnline Network with CAPA
 Remote Control
+
+//
+// $Id: menu.html,v 1.53 2002/05/17 15:09:06 matthew Exp $
+//
+// Copyright Michigan State University Board of Trustees
+//
+// This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+//
+// LON-CAPA is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 2 of the License, or
+// (at your option) any later version.
+//
+// LON-CAPA is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with LON-CAPA; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+//
+// /home/httpd/html/adm/gpl.txt
+//
+// http://www.lon-capa.org/
+//
+
 6/12/00,6/13,6/14,6/15 Gerd Kortemeyer
 Sept Ben Tyszka
 10/2,10/3,10/4,10/17,10/19,3/1/1 Gerd Kortemeyer
@@ -14,6 +41,14 @@ Jan Guy Albertelli
 5/4,5/9,5/28,5/30,6/1,6/2,6/3,6/8,6/15,6/16 Gerd Kortemeyer
 7/24,8/6 Scott Harrison
 8/24 Gerd Kortemeyer
+YEAR=2002
+March 2002 Matthew Hall
+3/19 Gerd Kortemeyer
+5/6/02 Matthew Hall
+
+// Note: use of style="background-image: url(remotebg.gif)"
+// in body tag causes trouble for NS4.x on multiple platforms. 
+
 -->
 <head>
 <title>LON-CAPA Remote</title>
@@ -22,16 +57,19 @@ Jan Guy Albertelli
 
 <body bgcolor="#BBBBBB" 
       background="remotebg.gif"
-      onUnload="logout();">
+      onUnload="logout();"
+      >
+<style type="text/css">
+</style>
 <basefont size="1" />
 
 <script type="text/javascript">
 <!--
-statustop='';
-statusbot='';
-active=0;
+var statustop = '';
+var statusbot = '';
+var active = 0;
 
-imgpath='/res/adm/pages/';
+var imgpath='/res/adm/pages/';
 
 var currentURL='';
 var currentStale=1;
@@ -53,24 +91,36 @@ var w_LONcatInfo_flag=-1;
  // -1 means never yet opened/defined
 ///////////////////////////////////////
 
-hr=new Array;
-db=new Array;
-dt=new Array;
+var hr = new Array;
+var db = new Array;
+var dt = new Array;
+
+for (var i=1;i<=3;i++) {
+   for (var j=1;j<=10;j++) {
+      var index = 10*j+i;
+      hr[index]='';
+      db[index]='';
+      dt[index]='';
+   }
+}
 
-clienthost=window.location.host;
-clientwindow=opener;
+var clienthost=window.location.host;
+var clientwindow=opener;
 
 function windowcheck() {
-   if (clientwindow.closed) {
-      clientwindow=window.open("http://"+clienthost+"/"); 
+   if (clientwindow==null || clientwindow.closed) {
+      clientwindow=window.open("http://"+clienthost+"/",'',
+      "height=400,width=440,"+
+      "scrollbars=1,toolbar=1,status=1,resizable=1,location=1,"+
+      "left=190,top=15,screenX=190,screenY=15"); 
    }
    clientwindow.name='loncapaclient';
+   clientwindow.menuwindow=self;
 }
 
 function logout () {
    windowcheck();
-   if (clientwindow.status!='MenuControl:nologout')
-   {   
+
       if (w_Annotator_flag!=-1 && annotator && !annotator.closed) {
           annotator.close();
       }
@@ -84,7 +134,7 @@ function logout () {
           loncatinfo.close();
       }
       clientwindow.window.location.href="http://"+clienthost+"/adm/logout";
-   }
+
 }
 
 function activate () {
@@ -99,8 +149,10 @@ function deactivate () {
 function display(utext,ltext) {
   var i; var ch;
   this.window.focus();
-  if (typeof(utext)=="undefined") { utext=''; }
-  if (typeof(ltext)=="undefined") { ltext=''; }
+  if (utext == null) { utext = '';}
+  if (ltext == null) { ltext = '';}
+  if (typeof(utext)!="string") { utext=''; }
+  if (typeof(ltext)!="string") { ltext=''; }
   if ((utext=='') && (ltext=='')) {
      utext=statustop;
      ltext=statusbot;
@@ -154,10 +206,43 @@ function setstatus(tp,bt) {
    endsend();
 }
 
+function is_editable_resource (url) {
+   var Chunks = url.split('.');
+   var tmp = Chunks[Chunks.length-1];
+   if ((Chunks.length > 1) && (Math.floor(tmp) == tmp)) {
+       return true;
+   } 
+   return false;
+}
+
+function cstrgo(currenturl,defaulturl) {
+   windowcheck();
+   var url;
+   if ((currenturl == null) || 
+       (currenturl == '')   || 
+       (! is_editable_resource(currenturl))) {
+      url = defaulturl;
+   } else {
+      url = currenturl;
+      var res_pattern     = /^\/res\/[A-z0-p]+\//;
+      if (res_pattern.test(url)) {
+         // map /res/103/turtle to /priv/turtle
+         url = url.replace(/^\/res\/[A-z0-9]+\//,'/priv/');
+      } else {
+         url = defaulturl;
+      }
+   }
+   this.document['led'].src="ledsend.gif";
+   if (url != '') {
+       clientwindow.window.location.href="http://"+clienthost+url;
+   }
+}
+
 function go(url) {
    windowcheck();
    this.document['led'].src="ledsend.gif";
-   if (url!='') {
+   if (url!='' && url!= null) {
+       currentURL = null;
        clientwindow.window.location.href="http://"+clienthost+url;
    }
 }
@@ -332,7 +417,8 @@ function catalog_info() {
 
 <tr>
 <td><a href="javascript:eval(hr[101]);" onMouseOver="display(dt[101],db[101]);"><img border="0" name="b101" src="empty.gif"></img></a></td>
-<td colspan="2"><a href="javascript:eval(hr[102]);" onMouseOver="display(dt[102],db[102]);"><img border="0" name="b102" src="dempty.gif"></img></a></td>
+<td><a href="javascript:eval(hr[102]);" onMouseOver="display(dt[102],db[102]);"><img border="0" name="b102" src="empty.gif"></img></a></td>
+<td><a href="javascript:eval(hr[103]);" onMouseOver="display(dt[103],db[103]);"><img border="0" name="b103" src="empty.gif"></img></a></td>
 </tr>
 
 </table>
@@ -353,3 +439,10 @@ activate();
 </script>
 </body>
 </html>
+
+
+
+
+
+
+
