version 1.215, 2007/06/05 22:30:05
|
version 1.221, 2008/02/01 23:00:56
|
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 783 sub end_numericalresponse {
|
Line 787 sub end_numericalresponse {
|
} |
} |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter($increment); |
if (($tag eq 'formularesponse') && ($target eq 'analyze')) { |
|
my $type = &Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.type'); |
|
if ($type eq 'exam') { |
|
$increment = &Apache::response::repetition(); |
|
} |
|
} |
|
&Apache::lonxml::increment_counter($increment,"$partid.$id"); |
|
if ($target eq 'analyze') { |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
return $result; |
return $result; |
Line 859 sub get_table_sizes {
|
Line 872 sub get_table_sizes {
|
my $bubbles_per_line=int($textwidth/$cell_width); |
my $bubbles_per_line=int($textwidth/$cell_width); |
if ($bubbles_per_line > $number_of_bubbles) { |
if ($bubbles_per_line > $number_of_bubbles) { |
$bubbles_per_line=$number_of_bubbles; |
$bubbles_per_line=$number_of_bubbles; |
}elsif (($bubbles_per_line > $number_of_bubbles/2) && ($number_of_bubbles % 2==0)) {$bubbles_per_line=$number_of_bubbles/2;} |
} elsif (($bubbles_per_line > $number_of_bubbles/2) |
|
&& ($number_of_bubbles % 2==0)) { |
|
$bubbles_per_line=$number_of_bubbles/2; |
|
} |
|
if ($bubbles_per_line < 1) { |
|
$bubbles_per_line=1; |
|
} |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my @table_range = (); |
my @table_range = (); |
for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$bubbles_per_line;} |
for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$bubbles_per_line;} |
Line 999 sub get_sigrange {
|
Line 1018 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; |
Line 1216 sub end_stringresponse {
|
Line 1236 sub end_stringresponse {
|
} |
} |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), |
|
"$part.$id"); |
|
if ($target eq 'analyze') { |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
return $result; |
return $result; |