loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.71, 2006/03/09 01:11:12	version 1.72, 2006/05/30 12:45:36
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;


BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::essayresponse',('essayresponse'));	&Apache::lonxml::register('Apache::essayresponse',('essayresponse'));
Line 119 sub end_essayresponse {	Line 122 sub end_essayresponse {
&Apache::lonnet::declutter($ENV{'REQUEST_URI'});	&Apache::lonnet::declutter($ENV{'REQUEST_URI'});
my ($adom,$aname,$apath)=	my ($adom,$aname,$apath)=
($essayurl=~/^(\w+)\/(\w+)\/(.*)$/);	($essayurl=~/^(\w+)\/(\w+)\/(.*)$/);
$apath=&Apache::lonnet::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,
{ $akey => $response },$adom,$aname);	{ $akey => $response },$adom,$aname);