loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.20 and 1.21

version 1.20, 2003/01/24 18:30:54	version 1.21, 2003/01/24 18:45:23
Line 49 sub start_essayresponse {	Line 49 sub start_essayresponse {
my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators");	my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators");
my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"});	my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"});
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
	$uploadedfiletypes=~s/[^\w\,]//g;
my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"});	my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"});
$result='<br /><table border="1">';	$result='<br /><table border="1">';
if ($ncol > 0) {	if ($ncol > 0) {
Line 97 sub end_essayresponse {	Line 98 sub end_essayresponse {
}	}
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};	my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};
if ($filename =~ /[^\s]/) {	if ($filename =~ /[^\s]/) {
	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
	$uploadedfiletypes=~s/[^\w\,]//g;
	$uploadedfiletypes=','.$uploadedfiletypes.',';
	my ($extension)=($filename=~/\.(\w+)$/);
	if ($uploadedfiletypes=~/\,$extension\,/i) {
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename;	$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename;
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=	$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id);	&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id);
	}
}	}
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
my $response = $ENV{'form.HWVAL'.$id};	my $response = $ENV{'form.HWVAL'.$id};

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.21