version 1.31, 2002/02/14 20:45:16
|
version 1.36, 2002/03/28 21:47:48
|
Line 34
|
Line 34
|
# YEAR=2001 |
# YEAR=2001 |
# 08/13/01,08/30,10/1 Gerd Kortemeyer |
# 08/13/01,08/30,10/1 Gerd Kortemeyer |
# 12/16 Scott Harrison |
# 12/16 Scott Harrison |
|
# YEAR=2002 |
|
# 03/19 Gerd Kortemeyer |
# |
# |
### |
### |
|
|
Line 346 sub handler {
|
Line 348 sub handler {
|
$r->print("\n<script language='JavaScript'>\n". |
$r->print("\n<script language='JavaScript'>\n". |
$allscript."\n</script>\n"); |
$allscript."\n</script>\n"); |
} |
} |
$r->print(&Apache::lonxml::registerurl(1)); |
$r->print(&Apache::lonxml::registerurl(1,undef)); |
$r->print("\n</head>\n"); |
$r->print("\n</head>\n"); |
# ------------------------------------------------------------------ Start body |
# ------------------------------------------------------------------ Start body |
if ($isxml) { |
if ($isxml) { |
Line 373 sub handler {
|
Line 375 sub handler {
|
my $metainfo='<a href="'. |
my $metainfo='<a href="'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'</img></a>'; |
'</img></a><a href="/adm/evaluate?postdata='. |
|
&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})) |
|
.'" target="LONcatInfo">'. |
|
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
|
'</img></a>'; |
if ( |
if ( |
($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && |
($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && |
(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) { |
Line 383 sub handler {
|
Line 389 sub handler {
|
'___'.$resid.'___'. |
'___'.$resid.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
$metainfo.= |
$metainfo.= |
'<a href="/adm/grades?symb='.$symb. |
'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb). |
'&command=submission" target="LONcatInfo">'. |
'&command=submission" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/subm_button.gif" border=0>'. |
'<img src="/adm/lonMisc/subm_button.gif" border=0>'. |
'</img></a>'. |
'</img></a>'. |
'<a href="/adm/grades?symb='.$symb. |
'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb). |
'&command=viewgrades" target="LONcatInfo">'. |
'&command=viewgrades" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/pgrd_button.gif" border=0>'. |
'<img src="/adm/lonMisc/pgrd_button.gif" border=0>'. |
'</img></a>'. |
'</img></a>'. |
'<a href="/adm/parmset?symb='.$symb.'" target="LONcatInfo">'. |
'<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb). |
|
'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/pprm_button.gif" border=0>'. |
'<img src="/adm/lonMisc/pprm_button.gif" border=0>'. |
'</img></a>'; |
'</img></a>'; |
} |
} |