version 1.217, 2007/08/29 10:09:56
|
version 1.219, 2007/08/29 21:57:47
|
Line 431 sub check_submission {
|
Line 431 sub check_submission {
|
|
|
&add_in_tag_answer($parstack,$safeeval); |
&add_in_tag_answer($parstack,$safeeval); |
|
|
|
if (!%answer) { |
|
&Apache::lonxml::error("No answers are defined"); |
|
} |
|
|
my (@final_awards,@final_msgs,@names); |
my (@final_awards,@final_msgs,@names); |
foreach my $name (keys(%answer)) { |
foreach my $name (keys(%answer)) { |
&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} })); |
&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} })); |
Line 1006 sub get_sigrange {
|
Line 1010 sub get_sigrange {
|
my ($sig)=@_; |
my ($sig)=@_; |
#&Apache::lonxml::debug("Got a sig of :$sig:"); |
#&Apache::lonxml::debug("Got a sig of :$sig:"); |
my $courseid=$env{'request.course.id'}; |
my $courseid=$env{'request.course.id'}; |
if (lc($env{"course.$courseid.disablesigfigs"}) eq 'yes') { |
if ($env{'request.state'} ne 'construct' |
|
&& lc($env{"course.$courseid.disablesigfigs"}) eq 'yes') { |
return (15,0); |
return (15,0); |
} |
} |
my $sig_lbound; |
my $sig_lbound; |