[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface loncommon.pm

raeburn raeburn at source.lon-capa.org
Tue Oct 8 15:45:02 EDT 2024


raeburn		Tue Oct  8 19:45:02 2024 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Remote Control is on, eliminate loading of javascript for switchserver page
    because it will not be used.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1075.2.173 loncom/interface/loncommon.pm:1.1075.2.174
--- loncom/interface/loncommon.pm:1.1075.2.173	Tue Oct  8 19:30:17 2024
+++ loncom/interface/loncommon.pm	Tue Oct  8 19:45:01 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.173 2024/10/08 19:30:17 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.174 2024/10/08 19:45:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5810,17 +5810,19 @@
 
     my $funclist;
     if (($env{'environment.remote'} eq 'on') && ($env{'request.state'} ne 'construct')) {
-        $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions($httphost), 'start')."\n".
-                    Apache::lonmenu::serverform();
-        my $forbodytag;
-        &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
-                                            $forcereg,$args->{'group'},
-                                            $args->{'bread_crumbs'},
-                                            $advtoolsref,'','',\$forbodytag);
-        unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
-            $funclist = $forbodytag;
+        unless ($args->{'switchserver'}) {
+            $bodytag .= Apache::lonhtmlcommon::scripttag(Apache::lonmenu::utilityfunctions($httphost), 'start')."\n".
+                        Apache::lonmenu::serverform();
+            my $forbodytag;
+            &Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
+                                                $forcereg,$args->{'group'},
+                                                $args->{'bread_crumbs'},
+                                                $advtoolsref,'','',\$forbodytag);
+            unless (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
+                $funclist = $forbodytag;
+            }
+            $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
         }
-        $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
     } else {
 
         #    if ($env{'request.state'} eq 'construct') {




More information about the LON-CAPA-cvs mailing list