loncom/homework/essayresponse.pm - diff - 1.38

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.37 and 1.38

version 1.37, 2004/10/04 18:19:01	version 1.38, 2004/10/06 18:50:14
Line 44 sub start_essayresponse {	Line 44 sub start_essayresponse {
$result=&Apache::response::meta_package_write('essayresponse');	$result=&Apache::response::meta_package_write('essayresponse');
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
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"},'<>&"');
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");	my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
Line 52 sub start_essayresponse {	Line 51 sub start_essayresponse {
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">';
$result.='<tr><td>'.	$result.='<tr><td>'.
	'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=pickfile","cat","height=300,'.
	'width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'."'".'>Select Portfolio Files</a>'.
	'<br />'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked> '.
&mt('Submit entries below as answer to receive credit').' <br />'.	&mt('Submit entries below as answer to receive credit').' <br />'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no"> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no"> '.

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