version 1.78, 2007/05/23 14:57:51
|
version 1.79, 2007/05/23 17:04:57
|
Line 435 sub handler {
|
Line 435 sub handler {
|
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
$metainfo ='<a name="'.&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.'.$extension.'" border=0>'. |
'<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'. |
'</img></a>'; |
'</a>'; |
} |
} |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
&escape($esrc). |
&escape($esrc). |
'" target="LONcatInfo">'. |
'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/eval_button.'.$extension.'" border=0>'. |
'<img src="/adm/lonMisc/eval_button.'.$extension.'" class="LC_icon" />'. |
'</img></a>'; |
'</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 456 sub handler {
|
Line 456 sub handler {
|
'<a href="/adm/grades?symb='.&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.'.$extension.'" border=0>'. |
'<img src="/adm/lonMisc/subm_button.'.$extension.'" class="LC_icon" />'. |
'</img></a>'. |
'</a>'. |
'<a href="/adm/grades?symb='.&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.'.$extension.'" border=0>'. |
'<img src="/adm/lonMisc/pgrd_button.'.$extension.'" class="LC_icon" />'. |
'</img></a>'. |
'</a>'. |
'<a href="/adm/parmset?symb='.&escape($symb). |
'<a href="/adm/parmset?symb='.&escape($symb). |
# '" target="LONcatInfo">'. |
# '" target="LONcatInfo">'. |
'" >'. |
'" >'. |
'<img src="/adm/lonMisc/pprm_button.'.$extension.'" border=0>'. |
'<img src="/adm/lonMisc/pprm_button.'.$extension.'" class="LC_icon" />'. |
'</img></a>'; |
'</a>'; |
} |
} |
$metainfo.='<br></br>'; |
$metainfo.='<br></br>'; |
unless ($target eq 'tex') { |
unless ($target eq 'tex') { |