version 1.77, 2006/10/17 15:11:11
|
version 1.81, 2007/01/08 11:12:44
|
Line 31 use strict;
|
Line 31 use strict;
|
use Apache::lonxml(); |
use Apache::lonxml(); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
|
|
Line 153 sub end_essayresponse {
|
Line 152 sub end_essayresponse {
|
my $essayurl= |
my $essayurl= |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
my ($adom,$aname,$apath)= |
my ($adom,$aname,$apath)= |
($essayurl=~/^(\w+)\/(\w+)\/(.*)$/); |
($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); |
$apath=&escape($apath); |
$apath=&escape($apath); |
$apath=~s/\W/\_/gs; |
$apath=~s/\W/\_/gs; |
&Apache::lonnet::put('nohist_essay_'.$apath, |
&Apache::lonnet::put('nohist_essay_'.$apath, |
Line 170 sub end_essayresponse {
|
Line 169 sub end_essayresponse {
|
$result .= &Apache::inputtags::exam_score_line($target); |
$result .= &Apache::inputtags::exam_score_line($target); |
|
|
} elsif ($target eq 'answer') { |
} elsif ($target eq 'answer') { |
if ($env{'form.answer_output_mode'} eq 'tex') { |
$result.=&Apache::response::answer_header($$tagstack[-1]); |
$result .= '\begin{tabular}{|l|}'; |
my $answer = &mt('Essay will be hand graded.'); |
$result .= '\hline'; |
$result.=&Apache::response::answer_part($$tagstack[-1],$answer, |
$result .= ' Answer for essay will be hand graded \\\\ '; |
{'no_verbatim' => 1}); |
$result .= '\\hline'; |
$result.=&Apache::response::answer_footer($$tagstack[-1]); |
$result .= '\end{tabular}'; |
|
$result .= '\vskip 3mm'; |
|
} else { |
|
$result.=&Apache::response::answer_header($$tagstack[-1]); |
|
$result.=&Apache::response::answer_part($$tagstack[-1],''); |
|
$result.=&Apache::response::answer_footer($$tagstack[-1]); |
|
} |
|
} |
} |
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |