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.17 and 1.19

version 1.17, 2003/01/22 17:29:21	version 1.19, 2003/01/23 22:28:55
Line 62 sub start_essayresponse {	Line 62 sub start_essayresponse {
if ($uploadedfiletypes) {	if ($uploadedfiletypes) {
$result.=	$result.=
'<tr><td>Submit a file: <input type="file" size="50" name="HWFILE'.	'<tr><td>Submit a file: <input type="file" size="50" name="HWFILE'.
$part.'_'.$id.'" value="'.$uploadedfile.'" onChange="this.form.enctype='.	$part.'_'.$id.'" onFocus="this.form.enctype='.
"'multipart/form-data'".';" /><br />Allowed filetypes: <b>'.$uploadedfiletypes.'</b><br />(Hand in a file you have prepared on your computer)</td></tr>';	"'multipart/form-data'".';" /><br />Allowed filetypes: <b>'.$uploadedfiletypes.'</b><br />';
	if ($uploadedfile) {
	$result.='Currently submitted: <tt>'.$uploadedfile.'</tt>';
	} else {
	$result.='(Hand in a file you have prepared on your computer)';
	}
	$result.='</td></tr>';
}	}
$result.='<tr><td>'.	$result.='<tr><td>'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked>'.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked>'.
Line 87 sub end_essayresponse {	Line 93 sub end_essayresponse {
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators	$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators
if ($collaborators ne $previous_list);	if ($collaborators ne $previous_list);
}	}
	my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};
	if ($filename =~ /[^\s]/) {
	$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename;
	}
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
my $response = $ENV{'form.HWVAL'.$id};	my $response = $ENV{'form.HWVAL'.$id};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
Line 108 sub end_essayresponse {	Line 118 sub end_essayresponse {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm';	$result.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm';
&Apache::lonxml::increment_counter();	&Apache::lonxml::increment_counter();
$result.= '\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm \end{enumerate}';	$result.= '\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm \end{enumerate}';
&Apache::lonxml::increment_counter();	&Apache::lonxml::increment_counter();
}	}
}	}

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

Removed from v.1.17
changed lines
	Added in v.1.19