loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.42, 2004/10/25 21:41:58	version 1.43, 2004/10/26 21:27:10
Line 75 sub start_essayresponse {	Line 75 sub start_essayresponse {
'<br />'.	'<br />'.
'<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'.	'<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'.
'<br />';	'<br />';
if ($uploadedfile) {	if ($portfile=~/[^\s]/){
	$result.="Portfolio files previously selected: <strong>".$Apache::lonhomework::history{"resource.$part.$id.portfiles"}."</strong><br />";
	}

	if ($uploadedfile) {
my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};	my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};
push (@Apache::lonxml::extlinks,$url);	push (@Apache::lonxml::extlinks,$url);
&Apache::lonnet::allowuploaded('/adm/essayresponse',$url);	&Apache::lonnet::allowuploaded('/adm/essayresponse',$url);