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.67 and 1.69

version 1.67, 2005/05/20 18:53:53	version 1.69, 2005/11/15 22:19:57
Line 42 sub start_essayresponse {	Line 42 sub start_essayresponse {
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'meta') {	if ($target eq 'meta') {
$result=&Apache::response::meta_package_write('essayresponse');	$result=&Apache::response::meta_package_write('essayresponse');
} elsif ($target eq 'web') {	} elsif ($target eq 'web' &&
	$Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $part= $Apache::inputtags::part;	my $part= $Apache::inputtags::part;
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"},'<>&"');
Line 164 sub file_submission {	Line 165 sub file_submission {
if ($files =~ /[^\s]/) {	if ($files =~ /[^\s]/) {
$files =~s/,$//;	$files =~s/,$//;
$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files;	$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files;
my @submitted_files = split(/,/,$files);
	my @submitted_files = ($files);
	if ( $which eq 'portfiles' ) {
	@submitted_files = split(/,/,$files);
	}

my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
if ($uploadedfiletypes) {	if ($uploadedfiletypes) {
$uploadedfiletypes=~s/[^\w\,]//g;	$uploadedfiletypes=~s/[^\w\,]//g;

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

Removed from v.1.67
changed lines
	Added in v.1.69