version 1.99, 2012/11/30 20:48:20
|
version 1.101, 2013/06/09 02:59:25
|
Line 264 ENDEXT
|
Line 264 ENDEXT
|
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src); |
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src); |
|
|
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
|
my $idprefix= join('_',($mapid,$resid,'')); |
my %posthash=('request.prefix' => $prefix, |
my %posthash=('request.prefix' => $prefix, |
'LONCAPA_INTERNAL_no_discussion' => 'true', |
'LONCAPA_INTERNAL_no_discussion' => 'true', |
'symb' => $symb); |
'symb' => $symb); |
Line 369 ENDEXT
|
Line 370 ENDEXT
|
} |
} |
$output=~ |
$output=~ |
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; |
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; |
|
$output=~ |
|
s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi; |
if ($nuploads) { |
if ($nuploads) { |
$output=~ |
$output=~ |
s/\<(input[^\>]+name=\"\Q$prefix\EHWFILE[^\>]+)\s*id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\)]*)\>/\<$1 id="$prefix$2" $3\>/gsi; |
s/\<(input[^\>]+name=\"\Q$prefix\EHWFILE[^\>]+)\s*id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\)]*)\>/\<$1 id="$prefix$2" $3\>/gsi; |
Line 431 ENDEXT
|
Line 434 ENDEXT
|
if (($nforms) && ($nuploads)) { |
if (($nforms) && ($nuploads)) { |
$allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps); |
$allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps); |
} |
} |
|
if (($nforms) && (&Apache::lonhtmlcommon::htmlareabrowser())) { |
|
my %textarea_args = ( |
|
dragmath => 'math', |
|
); |
|
$allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args); |
|
} |
# ------------------------------------------------------------------ Start body |
# ------------------------------------------------------------------ Start body |
$r->print(&Apache::loncommon::start_page(undef,$allscript, |
$r->print(&Apache::loncommon::start_page(undef,$allscript, |
{'force_register' => 1, |
{'force_register' => 1, |
Line 612 sub get_buttons {
|
Line 621 sub get_buttons {
|
|| !$hash->{'encrypted_'.$rid})) { |
|| !$hash->{'encrypted_'.$rid})) { |
$metainfo .='<a name="'.&escape($symb).'" />'. |
$metainfo .='<a name="'.&escape($symb).'" />'. |
'<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'. |
'<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/cat_button.png" class="LC_icon" />'. |
'<img src="/res/adm/pages/catalog.png" class="LC_icon"'. |
|
' alt="'.&mt('Show Metadata').'"'. |
|
' title="'.&mt('Show Metadata').'" />'. |
'</a>'; |
'</a>'; |
} |
} |
if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) && |
if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) && |
Line 620 sub get_buttons {
|
Line 631 sub get_buttons {
|
$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.png" class="LC_icon" />'. |
'<img src="/res/adm/pages/eval.png" class="LC_icon"'. |
|
' alt="'.&mt('Provide my evaluation of this resource').'"'. |
|
' title="'.&mt('Provide my evaluation of this resource').'" />'. |
'</a>'; |
'</a>'; |
} |
} |
if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) && |
if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) && |
Line 631 sub get_buttons {
|
Line 644 sub get_buttons {
|
'<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.png" class="LC_icon" />'. |
'<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'. |
|
' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'. |
|
' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'. |
'</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.png" class="LC_icon" />'. |
'<img src="/res/adm/pages/pgrd.png" class="LC_icon"'. |
|
' alt="'.&mt('Content Grades').'"'. |
|
' title="'.&mt('Content Grades').'" />'. |
'</a>'; |
'</a>'; |
} |
} |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
Line 644 sub get_buttons {
|
Line 661 sub get_buttons {
|
'<a href="/adm/parmset?symb='.&escape($symb). |
'<a href="/adm/parmset?symb='.&escape($symb). |
# '" target="LONcatInfo">'. |
# '" target="LONcatInfo">'. |
'" >'. |
'" >'. |
'<img src="/adm/lonMisc/pprm_button.png" class="LC_icon" />'. |
'<img src="/adm/lonMisc/pprm_button.png" class="LC_icon"'. |
|
' alt="'.&mt('Content Settings').'"'. |
|
' title="'.&mt('Content Settings').'" />'. |
'</a>'; |
'</a>'; |
} |
} |
} |
} |