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.73, 2006/08/01 14:04:32
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);
Line 165 sub file_submission {	Line 168 sub file_submission {

my @submitted_files = ($files);	my @submitted_files = ($files);
if ( $which eq 'portfiles' ) {	if ( $which eq 'portfiles' ) {
@submitted_files = split(/,/,$files);	@submitted_files = split(/\s,\s/,$files);
}	}

my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");