version 1.74, 2006/04/04 19:54:51
|
version 1.75, 2006/05/30 17:15:10
|
Line 39 use Apache::lonmenu;
|
Line 39 use Apache::lonmenu;
|
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
use Apache::lonsequence; |
use Apache::lonsequence; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
# -------------------------------------------------------------- Module Globals |
# -------------------------------------------------------------- Module Globals |
my %hash; |
my %hash; |
Line 426 sub handler {
|
Line 429 sub handler {
|
$esrc=&Apache::lonenc::encrypted($esrc); |
$esrc=&Apache::lonenc::encrypted($esrc); |
} |
} |
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
$metainfo ='<a name="'.&Apache::lonnet::escape($symb).'" />'. |
$metainfo ='<a name="'.&escape($symb).'" />'. |
'<a href="'.$metalink{$rid}.'" target="LONcatInfo">'. |
'<a href="'.$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>'; |
} |
} |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
&Apache::lonnet::escape($esrc). |
&escape($esrc). |
'" target="LONcatInfo">'. |
'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
'</img></a>'; |
'</img></a>'; |
Line 446 sub handler {
|
Line 449 sub handler {
|
'___'.$resid.'___'. |
'___'.$resid.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
$metainfo.= |
$metainfo.= |
'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb). |
'<a href="/adm/grades?symb='.&escape($symb). |
# '&command=submission" target="LONcatInfo">'. |
# '&command=submission" target="LONcatInfo">'. |
'&command=submission">'. |
'&command=submission">'. |
'<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='.&Apache::lonnet::escape($symb). |
'<a href="/adm/grades?symb='.&escape($symb). |
# '&command=gradingmenu" target="LONcatInfo">'. |
# '&command=gradingmenu" target="LONcatInfo">'. |
'&command=gradingmenu">'. |
'&command=gradingmenu">'. |
'<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='.&Apache::lonnet::escape($symb). |
'<a href="/adm/parmset?symb='.&escape($symb). |
# '" target="LONcatInfo">'. |
# '" target="LONcatInfo">'. |
'" >'. |
'" >'. |
'<img src="/adm/lonMisc/pprm_button.gif" border=0>'. |
'<img src="/adm/lonMisc/pprm_button.gif" border=0>'. |