loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.119, 2003/09/23 15:59:53	version 1.120, 2003/10/08 18:25:18
Line 112 sub start_textfield {	Line 112 sub start_textfield {
if ( $cols eq '') { $cols = 80; }	if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);	my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
if ( $rows eq '') { $rows = 10; }	if ( $rows eq '') { $rows = 10; }
$result= '<textarea name="HWVAL_'.$resid.'" '.	$result= '<textarea wrap="hard" name="HWVAL_'.$resid.'" '.
"rows=\"$rows\" cols=\"$cols\">".$oldresponse;	"rows=\"$rows\" cols=\"$cols\">".$oldresponse;
if ($oldresponse ne '') {	if ($oldresponse ne '') {
#get rid of any startup text if the user has already responded	#get rid of any startup text if the user has already responded
Line 414 sub decideoutput {	Line 414 sub decideoutput {
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'SIG_FAIL') {	} elsif ($award eq 'SIG_FAIL') {
$message = &mt("Please adjust significant figures.");# you provided %s significant figures";	$message = &mt("Significant figures are incorrect, submission was not graded.");# you provided %s significant figures";
$bgcolor=$possiblecolors{'not_charged_try'};	$bgcolor=$possiblecolors{'not_charged_try'};
$button=1;	$button=1;
} elsif ($award eq 'UNIT_FAIL') {	} elsif ($award eq 'UNIT_FAIL') {