[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[albertel]

albertel		Fri Feb 18 16:23:13 2005 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - fixing CSTR dir viewing sans remote
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.147 loncom/interface/lonmenu.pm:1.148
--- loncom/interface/lonmenu.pm:1.147	Thu Feb 17 03:29:42 2005
+++ loncom/interface/lonmenu.pm	Fri Feb 18 16:23:12 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.147 2005/02/17 08:29:42 albertel Exp $
+# $Id: lonmenu.pm,v 1.148 2005/02/18 21:23:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -443,27 +443,27 @@
                 $buttons.=&clear(@rest);
             }
         }
-	my $addremote=0;
-	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
-        if ($textual && $addremote) {
-# Registered, textual output
+
+        if ($textual) {
+	    my $addremote=0;
+	    foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
 	    my $inlinebuttons='';
+	    if ($addremote) {
+# Registered, textual output
 
-	    if ($ENV{'browser.interface'} eq 'textual') {
-		$inlinebuttons=
+		if ($ENV{'browser.interface'} eq 'textual') {
+		    $inlinebuttons=
                         join('',map { (defined($_)?$_:'') } @inlineremote);
-	    } else {
-		$inlinebuttons=(<<ENDINLINE);
+		} else {
+		    $inlinebuttons=(<<ENDINLINE);
 <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
 <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
 <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
 <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
 <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
 ENDINLINE
+                }
 	    }
-            if ($const_space && $is_const_dir) {
-                $inlinebuttons = '';
-            }
 	    $result =(<<ENDREGTEXT);
 <script type="text/javascript">
 // BEGIN LON-CAPA Internal
@@ -485,11 +485,12 @@
 	    my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});
 	    my $navstatus=&get_nav_status();
 	    my $clearcstr;
+
 	    if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
 	    $result = (<<ENDREGTHIS);
      
 <script type="text/javascript">
-// BEGIN LON-CAPA Internal
+// <!-- BEGIN LON-CAPA Internal
 var swmenu=null;
 
     function LONCAPAreg() {
@@ -524,7 +525,7 @@
 			  2000);
       }
 
-// END LON-CAPA Internal
+// END LON-CAPA Internal -->
 </script>
 ENDREGTHIS
         }