loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.79, 2006/10/23 10:00:29	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,