version 1.15, 2003/07/01 20:13:14
|
version 1.17, 2003/07/21 19:42:17
|
Line 121 sub get_correct_order {
|
Line 121 sub get_correct_order {
|
} |
} |
@value_names = |
@value_names = |
sort { |
sort { |
if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] cmp $b->[0]);} |
if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] <=> $b->[0]);} |
return 0; |
return 0; |
} @value_names; |
} @value_names; |
my @value_names_tmp=@value_names; |
my @value_names_tmp=@value_names; |
Line 291 sub displayfoils {
|
Line 291 sub displayfoils {
|
$result.='\vskip -5 mm\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'}\end{enumerate} \vskip -5 mm \strut '; |
$result.='\vskip -5 mm\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'}\end{enumerate} \vskip -5 mm \strut '; |
$internal_counter++; |
$internal_counter++; |
} else { |
} else { |
$result.=' \\\\ \framebox[5 mm][s]{\tiny\strut} '.$text."\n"; |
$result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n"; |
} |
} |
} |
} |
$temp++; |
$temp++; |