version 1.109, 2015/07/09 00:11:56
|
version 1.110, 2015/07/17 19:00:47
|
Line 216 sub handler {
|
Line 216 sub handler {
|
my $contents=0; |
my $contents=0; |
my $nforms=0; |
my $nforms=0; |
my $nuploads=0; |
my $nuploads=0; |
|
my $ntimers=0; |
my %turninpaths; |
my %turninpaths; |
my %multiresps; |
my %multiresps; |
my $turninparent; |
my $turninparent; |
Line 369 ENDEXT
|
Line 370 ENDEXT
|
} |
} |
$output=~s/\<\/body\>.*//si; |
$output=~s/\<\/body\>.*//si; |
if ($output=~/\<form/si) { |
if ($output=~/\<form/si) { |
|
my $hastimer; |
$nforms++; |
$nforms++; |
$output=~s/\<form[^\>]*\>//gsi; |
$output=~s/\<form[^\>]*\>//gsi; |
$output=~s/\<\/form[^\>]*\>//gsi; |
$output=~s/\<\/form[^\>]*\>//gsi; |
if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*HWFILE/) { |
if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*HWFILE/) { |
$nuploads++; |
$nuploads++; |
} |
} |
|
if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*accessbutton/) { |
|
$ntimers++; |
|
$hastimer = 1; |
|
} |
$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=~ |
$output=~ |
s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi; |
s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi; |
|
if ($hastimer) { |
|
$output=~ |
|
s/\<(input[^\>]+name=\Q"$prefix\Eaccessbutton"[^\>]+)(?:\Qdocument.markaccess.submit();\E)([^\>]*)\>/\<$1pageTimer(this.form,'$prefix')$2\>/gsi; |
|
$output=~ s/\<(input[^\>]+name=\Q"$prefix\Emarkaccess"[^\>]+value=["'])(?:yes)(['"][^\>]*)\>/\<$1$2\>/gsi; |
|
} |
if ($matheditor eq 'dragmath') { |
if ($matheditor eq 'dragmath') { |
$output=~ |
$output=~ |
s/(\Qjavascript:LC_mathedit_\E)(HWVAL_)([^'"]+?)(\(['"]*)(\QHWVAL_\E\3['"]\)\;void\(0\)\;)/$1$idprefix$2$3$4$idprefix$5/g; |
s/(\Qjavascript:LC_mathedit_\E)(HWVAL_)([^'"]+?)(\(['"]*)(\QHWVAL_\E\3['"]\)\;void\(0\)\;)/$1$idprefix$2$3$4$idprefix$5/g; |
Line 462 ENDEXT
|
Line 473 ENDEXT
|
); |
); |
$allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args); |
$allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args); |
} |
} |
|
if ($ntimers) { |
|
$allscript .= '<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
'function pageTimer(form,prefix) {'."\n". |
|
" form.elements[prefix+'markaccess'].value = 'yes';\n". |
|
" form.submit();\n". |
|
'}'."\n". |
|
'// ]]>'. |
|
"\n</script>\n"; |
|
} |
# ------------------------------------------------------------------ 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 593 ENDEXT
|
Line 614 ENDEXT
|
my $class; |
my $class; |
if ($nforms > 1) { |
if ($nforms > 1) { |
$class = ' class="LC_hwk_submit"'; |
$class = ' class="LC_hwk_submit"'; |
|
if ($ntimers) { |
|
$nforms = 1; |
|
$class = ''; |
|
} |
} |
} |
$r->print( |
$r->print( |
'<input name="all_submit" value="'.&mt('Submit All').'" type="'. |
'<input name="all_submit" value="'.&mt('Submit All').'" type="'. |