|
version 1.77, 2006/10/17 15:11:11
|
version 1.80, 2006/12/05 02:55:54
|
|
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('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' || |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework