loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.84 and 1.90

-version 1.84, 2001/06/02 03:59:59
+version 1.90, 2001/06/09 14:23:27
  Line 9
  # 5/10 Scott Harrison
  # 5/26 Gerd Kortemeyer
  # 5/27 H. K. Ng
+ # 6/2,6/3,6/8,6/9 Gerd Kortemeyer
  package Apache::lonxml;
  use vars
- Line 98  sub fontsettings() {
+ Line 99  sub fontsettings() {
  }
  sub registerurl {
-   return (<<ENDSCRIPT);
+     if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) {
+         my $hwkadd='';
+         if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+ 	    if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
+ 		$hwkadd.=(<<ENDSUBM);
+                      menu.switchbutton
+            (7,1,'subm.gif','view sub','missions',
+                 'gocmd("/adm/grades","submission")');
+ ENDSUBM
+             }
+ 	    if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) {
+ 		$hwkadd.=(<<ENDGRDS);
+                      menu.switchbutton
+            (7,2,'pgrd.gif','problem','grades',
+                 'gocmd("/adm/grades","viewgrades")');
+ ENDGRDS
+             }
+ 	    if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
+ 		$hwkadd.=(<<ENDPARM);
+                      menu.switchbutton
+            (7,3,'pparm.gif','problem','parms',
+                 'gocmd("/adm/parmset","set")');
+ ENDPARM
+             }
+ 	}
+ 	return (<<ENDREGTHIS);
  <script language="JavaScript">
  // BEGIN LON-CAPA Internal
      function LONCAPAreg() {
-        if (window.location.pathname!="/res/adm/pages/menu.html") {
  	  menu=window.open("","LONCAPAmenu");
+           menu.clearTimeout(menu.menucltim);
  	  menu.currentURL=window.location.pathname;
            menu.currentStale=0;
-        }
+           menu.clearbut(3,1);
+           menu.switchbutton
+        (8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)');
+           menu.switchbutton
+     (8,2,'fdbk.gif','feedback','on this','gopost("/adm/feedback",currentURL)');
+           menu.switchbutton
+      (8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)');
+           menu.switchbutton
+        (2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)');
+           menu.switchbutton
+      (2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)');
+           $hwkadd
      }
      function LONCAPAstale() {
-        if (window.location.pathname!="/res/adm/pages/menu.html") {
  	  menu=window.open("","LONCAPAmenu");
            menu.currentStale=1;
-        }
+           menu.switchbutton
+             (3,1,'reload.gif','return','location','go(currentURL)');
+           menu.clearbut(7,1);
+           menu.clearbut(7,2);
+           menu.clearbut(7,3);
+           menu.menucltim=menu.setTimeout(
+  'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);',
+);
+       }
+ // END LON-CAPA Internal
+ </script>
+ ENDREGTHIS
+     } else {
+         return (<<ENDDONOTREGTHIS);
+ <script language="JavaScript">
+ // BEGIN LON-CAPA Internal
+     function LONCAPAreg() {
+ 	  menu=window.open("","LONCAPAmenu");
+           menu.currentStale=1;
+           menu.clearbut(2,1);
+           menu.clearbut(2,3);
+           menu.clearbut(8,1);
+           menu.clearbut(8,2);
+           menu.clearbut(8,3);
+           if (menu.currentURL) {
+              menu.switchbutton
+               (3,1,'reload.gif','return','location','go(currentURL)');
+  	  } else {
+ 	      menu.clearbut(3,1);
+           }
+     }
+     function LONCAPAstale() {
      }
  // END LON-CAPA Internal
  </script>
- ENDSCRIPT
+ ENDDONOTREGTHIS
+     }
  }
  sub loadevents() {

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

Removed from v.1.84
changed lines
	Added in v.1.90