version 1.95, 2011/07/28 02:53:33
|
version 1.96, 2011/07/28 03:14:09
|
Line 214 sub handler {
|
Line 214 sub handler {
|
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
my $nforms=0; |
my $nforms=0; |
|
my $nuploads=0; |
|
my %turninpaths; |
|
my %multiresps; |
|
my $turninparent; |
|
|
my %ssibody=(); |
my %ssibody=(); |
my %ssibgcolor=(); |
my %ssibgcolor=(); |
Line 352 sub handler {
|
Line 356 sub handler {
|
$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/) { |
|
$nuploads++; |
|
} |
$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; |
|
if ($nuploads) { |
|
$output=~ |
|
s/\<(input[^\>]+name=\"\Q$prefix\EHWFILE[^\>]+)\s*id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\)]*)\>/\<$1 id="$prefix$2" $3\>/gsi; |
|
($turninpaths{$prefix},$multiresps{$prefix}) = |
|
&Apache::loncommon::get_turnedin_filepath($symb,$env{'user.name'},$env{'user.domain'}); |
|
if ($turninparent eq '') { |
|
$turninparent = $turninpaths{$prefix}; |
|
$turninparent =~ s{(/[^/]+)$}{}; |
|
} |
|
} |
$output=~ |
$output=~ |
s/\<((?:input|select)[^\>]+\Qjavascript:setSubmittedPart\E)\(\s*[\'\"]([^\'\"]+)[\'\"]*\s*\)/\<$1('$2','$prefix')/gsi; |
s/\<((?:input|select)[^\>]+\Qjavascript:setSubmittedPart\E)\(\s*[\'\"]([^\'\"]+)[\'\"]*\s*\)/\<$1('$2','$prefix')/gsi; |
} |
} |
Line 403 sub handler {
|
Line 420 sub handler {
|
$allscript. |
$allscript. |
"\n</script>\n"; |
"\n</script>\n"; |
} |
} |
|
if (($nforms) && ($nuploads)) { |
|
$allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps); |
|
} |
# ------------------------------------------------------------------ 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, |
'bgcolor' => '#ffffff',})); |
'bgcolor' => '#ffffff',})); |
# ------------------------------------------------------------------ Start form |
# ------------------------------------------------------------------ Start form |
if ($nforms) { |
if ($nforms) { |
$r->print('<form name="lonhomework" method="post" enctype="multipart/form-data" action="'. |
my $fmtag = '<form name="lonhomework" method="post" enctype="multipart/form-data"'; |
|
if ($nuploads) { |
|
my $multi; |
|
if ($nuploads > 1) { |
|
$multi = 1; |
|
} |
|
$fmtag .= 'onsubmit="return file_submission_check(this,'."'$turninparent','$multi'".');"'; |
|
} |
|
$fmtag .= ' action="'. |
&Apache::lonenc::check_encrypt($requrl) |
&Apache::lonenc::check_encrypt($requrl) |
.'">'); |
.'">'; |
|
$r->print($fmtag); |
} |
} |
} elsif (($target eq 'tex') || ($target eq 'tex_answer')) { |
} elsif (($target eq 'tex') || ($target eq 'tex_answer')) { |
# I think this is not needed as the header |
# I think this is not needed as the header |