|
version 1.126, 2005/06/07 01:33:19
|
version 1.131, 2006/02/02 20:36:07
|
|
Line 295 sub whichfoils {
|
Line 295 sub whichfoils {
|
| } |
} |
| |
|
| sub displayanswers { |
sub displayanswers { |
| my ($max,$randomize,@opt)=@_; |
my ($max,$randomize,@opt)=@_; |
| if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
| my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
| my @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
| my $result=&Apache::response::answer_header('optionresponse'); |
my $result; |
| foreach my $name (@whichopt) { |
if ($Apache::lonhomework::type eq 'exam') { |
| $result.=&Apache::response::answer_part('optionresponse', |
my $i = 0; |
| $Apache::response::foilgroup{$name.'.value'}) |
my %opt = map { ($_,$i++) } @opt; |
| } |
|
| $result.=&Apache::response::answer_footer('optionresponse'); |
$i = 0; |
| return $result; |
my @alphabet = ('A'..'Z'); |
| |
foreach my $name (@whichopt) { |
| |
$result.=&Apache::response::answer_header('optionresponse',$i++); |
| |
$result.=&Apache::response::answer_part('optionresponse', |
| |
$alphabet[$opt{$Apache::response::foilgroup{$name.'.value'}}]); |
| |
$result.=&Apache::response::answer_part('optionresponse', |
| |
$Apache::response::foilgroup{$name.'.value'}); |
| |
$result.=&Apache::response::answer_footer('optionresponse'); |
| |
} |
| |
} else { |
| |
$result=&Apache::response::answer_header('optionresponse'); |
| |
foreach my $name (@whichopt) { |
| |
$result.=&Apache::response::answer_part('optionresponse', |
| |
$Apache::response::foilgroup{$name.'.value'}); |
| |
} |
| |
$result.=&Apache::response::answer_footer('optionresponse'); |
| |
} |
| |
return $result; |
| } |
} |
| |
|
| sub check_for_invalid { |
sub check_for_invalid { |
|
Line 360 sub displayfoils {
|
Line 377 sub displayfoils {
|
| if ($text=~/^\s*$/) { |
if ($text=~/^\s*$/) { |
| $text=$value.$text; |
$text=$value.$text; |
| } else { |
} else { |
| $text=$value.': '.$text; |
$text='<b>'.$value.':</b> '.$text; |
| } |
} |
| } else { |
} else { |
| $text='•'.$text; |
$text='•'.$text; |
|
Line 532 sub bubbles {
|
Line 549 sub bubbles {
|
| $head.='lr'; |
$head.='lr'; |
| } else { |
} else { |
| $line=~s/\&\s*$//; |
$line=~s/\&\s*$//; |
| $result.='\vskip -2 mm\noindent\begin{tabular}{'.$head.'}'.$line.'\\\\\end{tabular}\vskip 0 mm'; |
$result.='\vskip -2 mm\noindent\setlength{\tabcolsep}{2 mm}\begin{tabular}{'.$head.'}'.$line.'\\\\\end{tabular}\vskip 0 mm'; |
| $line = '\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';; |
$line = '\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';; |
| $head ='lr'; |
$head ='lr'; |
| $current_length = (length($opt[$ind])+length($alphabet[$ind]))*2; |
$current_length = (length($opt[$ind])+length($alphabet[$ind]))*2; |
|
Line 632 sub end_foil {
|
Line 649 sub end_foil {
|
| if ($value ne 'unused') { |
if ($value ne 'unused') { |
| my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
| &Apache::lonxml::debug("Got a name of :$name:"); |
&Apache::lonxml::debug("Got a name of :$name:"); |
| if (!$name) { |
if ($name eq "") { |
| &Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction."); |
| $name=$Apache::lonxml::curdepth; |
$name=$Apache::lonxml::curdepth; |
| } |
} |
| &Apache::lonxml::debug("Using a name of :$name:"); |
&Apache::lonxml::debug("Using a name of :$name:"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework