version 1.86, 2001/06/03 18:33:54
|
version 1.87, 2001/06/08 17:52:03
|
Line 9
|
Line 9
|
# 5/10 Scott Harrison |
# 5/10 Scott Harrison |
# 5/26 Gerd Kortemeyer |
# 5/26 Gerd Kortemeyer |
# 5/27 H. K. Ng |
# 5/27 H. K. Ng |
# 6/2,6/3 Gerd Kortemeyer |
# 6/2,6/3,6/8 Gerd Kortemeyer |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 100 sub fontsettings() {
|
Line 100 sub fontsettings() {
|
|
|
sub registerurl { |
sub registerurl { |
if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) { |
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', |
|
'gopost("/adm/grades","submission")'); |
|
ENDSUBM |
|
} |
|
if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) { |
|
$hwkadd.=(<<ENDGRDS); |
|
menu.switchbutton |
|
(7,2,'pgrd.gif','problem','grades', |
|
'gopost("/adm/grades","")'); |
|
ENDGRDS |
|
} |
|
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
|
$hwkadd.=(<<ENDPARM); |
|
menu.switchbutton |
|
(7,3,'pparm.gif','problem','parms', |
|
'gopost("/adm/parmset","set")'); |
|
ENDPARM |
|
} |
|
} |
return (<<ENDREGTHIS); |
return (<<ENDREGTHIS); |
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
|
|
Line 121 sub registerurl {
|
Line 145 sub registerurl {
|
(2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)'); |
(2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)'); |
menu.switchbutton |
menu.switchbutton |
(2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)'); |
(2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)'); |
|
$hwkadd |
} |
} |
|
|
function LONCAPAstale() { |
function LONCAPAstale() { |
Line 132 sub registerurl {
|
Line 157 sub registerurl {
|
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);', |
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);', |
2000); |
2000); |
|
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |