loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.81, 2003/01/24 22:02:45	version 1.82, 2003/01/24 22:32:08
Line 30	Line 30
package Apache::inputtags;	package Apache::inputtags;
use HTML::Entities();	use HTML::Entities();
use strict;	use strict;
	use Apache::loncommon;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::inputtags',('textfield','textline'));	&Apache::lonxml::register('Apache::inputtags',('textfield','textline'));
Line 309 sub decideoutput {	Line 310 sub decideoutput {
$message = "Please adjust significant figures.";# you provided %s significant figures";	$message = "Please adjust significant figures.";# you provided %s significant figures";
$button=1;	$button=1;
} elsif ($award eq 'UNIT_FAIL') {	} elsif ($award eq 'UNIT_FAIL') {
$message = "Units incorrect."; #Computer reads units as %s";	$message = "Units incorrect. ".
	&Apache::loncommon::help_open_topic('Physical_Units'); #Computer reads units as %s";
$button=1;	$button=1;
} elsif ($award eq 'UNIT_NOTNEEDED') {	} elsif ($award eq 'UNIT_NOTNEEDED') {
$message = "Only a number required.";# Computer reads units of %s";	$message = "Only a number required.";# Computer reads units of %s";
$button=1;	$button=1;
} elsif ($award eq 'NO_UNIT') {	} elsif ($award eq 'NO_UNIT') {
$message = "Units required";	$message = "Units required".
	&Apache::loncommon::help_open_topic('Physical_Units');
$button=1;	$button=1;
} elsif ($award eq 'BAD_FORMULA') {	} elsif ($award eq 'BAD_FORMULA') {
$message = "Unable to understand formula";	$message = "Unable to understand formula";