loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.78, 2006/10/17 17:09:44	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 171 sub end_essayresponse {	Line 170 sub end_essayresponse {

} elsif ($target eq 'answer') {	} elsif ($target eq 'answer') {
$result.=&Apache::response::answer_header($$tagstack[-1]);	$result.=&Apache::response::answer_header($$tagstack[-1]);
my $answer = &mt('Answer for essay will be hand graded.');	my $answer = &mt('Essay will be hand graded.');
$result.=&Apache::response::answer_part($$tagstack[-1],$answer,	$result.=&Apache::response::answer_part($$tagstack[-1],$answer,
{'no_verbatim' => 1});	{'no_verbatim' => 1});
$result.=&Apache::response::answer_footer($$tagstack[-1]);	$result.=&Apache::response::answer_footer($$tagstack[-1]);