version 1.153.6.4, 2012/01/23 12:00:13
|
version 1.153.6.5, 2012/01/24 12:05:12
|
Line 31 use HTML::Entities();
|
Line 31 use HTML::Entities();
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::response; |
use Apache::response; |
|
use Apache::caparesponse; |
|
|
my $default_bubbles_per_line = 10; |
my $default_bubbles_per_line = 10; |
my @alphabet = ( 'A' .. 'Z' ); # Foil labels. |
my @alphabet = ( 'A' .. 'Z' ); # Foil labels. |
Line 375 sub format_prior_answer {
|
Line 376 sub format_prior_answer {
|
} |
} |
|
|
## |
## |
sub displayallfoils { |
sub displayallfoils{ |
my ( $direction, $target ) = @_; |
my ( $direction, $target ) = @_; |
my $result; |
my $result; |
&Apache::lonxml::debug("survey style display"); |
&Apache::lonxml::debug("survey style display"); |
Line 384 sub displayallfoils {
|
Line 385 sub displayallfoils {
|
@names = @{ $Apache::response::foilgroup{'names'} }; |
@names = @{ $Apache::response::foilgroup{'names'} }; |
} |
} |
|
|
|
# Figure out how to bracket the list of foils for |
|
# the TeX target: |
|
# |
|
|
|
my $begin_environment; |
|
my $end_environment; |
|
|
|
if ($target eq 'tex') { |
|
|
|
# Decide how to bracket the list of foils: |
|
|
|
|
|
if ( $env{'form.pdfFormFields'} eq 'yes' |
|
&& $Apache::inputtags::status[-1] eq 'CAN_ANSWER' ) |
|
{ |
|
$begin_environment = '\begin{itemize}'; |
|
$end_environment = '\end{itemize}'; |
|
} |
|
else { |
|
$begin_environment = '\begin{enumerate}'; |
|
$end_environment = '\end{enumerate}'; |
|
} |
|
$result .= $begin_environment; |
|
} |
|
|
my $temp = 0; |
my $temp = 0; |
my $i = 0; |
my $i = 0; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
Line 536 sub displayallfoils {
|
Line 562 sub displayallfoils {
|
if ( ( $direction eq 'horizontal' ) && ( $target ne 'tex' ) ) { |
if ( ( $direction eq 'horizontal' ) && ( $target ne 'tex' ) ) { |
$result .= '</tr></table>'; |
$result .= '</tr></table>'; |
} |
} |
|
|
|
# Close tex bracketing: |
|
|
|
if ($target eq 'tex') { |
|
$result .= $end_environment; |
|
} |
return $result; |
return $result; |
} |
} |
|
|
Line 934 sub display_foils_html {
|
Line 966 sub display_foils_html {
|
## |
## |
# Display foils in exam mode for latex |
# Display foils in exam mode for latex |
# |
# |
# @param $whichfoils - Reference to an array that contains the foil names to display |
# @param $whichfoils - Reference to an array that contains the foil names to display |
# @param $bubbles_per_line - Number of bubbles on a line. |
# @param $bubbles_per_line - Number of bubbles on a line. |
|
# @param $direction - Rendering direction 'horizontal' is what we're looking for. |
|
# @param $vbegin - Start latex fragment in vertical rendering. |
|
# @param $vend - End latex fragmentin vertical rendering. |
# |
# |
# @return string |
# @return string |
# @return the latex rendering of the exam problem. |
# @return the latex rendering of the exam problem. |
# |
# |
# @note The direction is not honored for exams. The lines reflect the number of |
|
# bubbles on an exam sheet. |
|
# |
# |
sub display_latex_exam { |
sub display_latex_exam { |
my ($whichfoils, $bubbles_per_line) = @_; |
my ($whichfoils, $bubbles_per_line, $direction, $vbegin, $vend) = @_; |
my $result; |
my $result; |
my $numlines; |
my $numlines; |
my $bubble_number = 0; |
my $bubble_number = 0; |
my $line = 0; |
my $line = 0; |
my $i = 0; |
my $i = 0; |
|
|
# This section puts out the prefix that tells the user |
&Apache::lonnet::logthis("LaTeX exam: $direction $vbegin $vend"); |
# (if necessary) to only choose one bubble in the next n lines |
|
# for problems with more than one line worth of bubbles in the grid sheet: |
if ($direction eq 'horizontal') { |
|
|
my $numitems = scalar( @{$whichfoils} ); |
# Marshall the display text for each foil and turn things over to |
$numlines = int( $numitems / $bubbles_per_line ); |
# Apache::response::make_horizontal_bubbles: |
if ( ( $numitems % $bubbles_per_line ) != 0 ) { |
|
$numlines++; |
my @foil_texts; |
} |
foreach my $name (@{$whichfoils}) { |
if ( $numlines < 1 ) { |
push(@foil_texts, $Apache::response::foilgroup{$name . '.text'}); |
$numlines = 1; |
|
} |
|
if ( $numlines > 1 ) { |
|
my $linetext; |
|
for ( my $i = 0 ; $i < $numlines ; $i++ ) { |
|
$linetext .= $Apache::lonxml::counter + $i . ', '; |
|
} |
} |
$linetext =~ s/,\s$//; |
$result .= &Apache::caparesponse::make_horizontal_latex_bubbles( |
$result .= |
$whichfoils, \@foil_texts, '$\bigcirc$'); |
'\item[\small {\textbf{' |
|
. $linetext . '}}]' |
|
. ' {\footnotesize ' |
|
. &mt( '(Bubble once in [_1] lines)', $numlines ) |
|
. '} \hspace*{\fill} \\\\'; |
|
} |
|
else { |
|
$result .= '\item[\textbf{' . $Apache::lonxml::counter . '}.]'; |
|
} |
|
|
|
# Now output the bubbles themselves: |
|
|
|
foreach my $name (@{$whichfoils}) { |
} else { |
if ( $bubble_number >= $bubbles_per_line ) { |
$result .= $vbegin; |
$line++; |
|
$i = 0; |
# This section puts out the prefix that tells the user |
$bubble_number = 0; |
# (if necessary) to only choose one bubble in the next n lines |
|
# for problems with more than one line worth of bubbles in the grid sheet: |
|
|
|
my $numitems = scalar( @{$whichfoils} ); |
|
$numlines = int( $numitems / $bubbles_per_line ); |
|
if ( ( $numitems % $bubbles_per_line ) != 0 ) { |
|
$numlines++; |
|
} |
|
if ( $numlines < 1 ) { |
|
$numlines = 1; |
} |
} |
my $identifier; |
|
if ( $numlines > 1 ) { |
if ( $numlines > 1 ) { |
$identifier = $Apache::lonxml::counter + $line; |
my $linetext; |
|
for ( my $i = 0 ; $i < $numlines ; $i++ ) { |
|
$linetext .= $Apache::lonxml::counter + $i . ', '; |
|
} |
|
$linetext =~ s/,\s$//; |
|
$result .= |
|
'\item[\small {\textbf{' |
|
. $linetext . '}}]' |
|
. ' {\footnotesize ' |
|
. &mt( '(Bubble once in [_1] lines)', $numlines ) |
|
. '} \hspace*{\fill} \\\\'; |
} |
} |
$result .= |
else { |
'{\small \textbf{' |
$result .= '\item[\textbf{' . $Apache::lonxml::counter . '}.]'; |
. $identifier |
} |
. $alphabet[$i] |
|
. '}}$\bigcirc$' |
# Now output the bubbles themselves: |
. $Apache::response::foilgroup{ $name . '.text' } |
|
. '\\\\'; #' stupid emacs -- it thinks it needs that apostrophe to close the quote |
foreach my $name (@{$whichfoils}) { |
|
if ( $bubble_number >= $bubbles_per_line ) { |
|
$line++; |
|
$i = 0; |
|
$bubble_number = 0; |
|
} |
|
my $identifier; |
|
if ( $numlines > 1 ) { |
|
$identifier = $Apache::lonxml::counter + $line; |
|
} |
|
$result .= |
|
'{\small \textbf{' |
|
. $identifier |
|
. $alphabet[$i] |
|
. '}}$\bigcirc$' |
|
. $Apache::response::foilgroup{ $name . '.text' } |
|
. '\\\\'; #' stupid emacs -- it thinks it needs that apostrophe to close the quote |
|
|
|
$i++; |
|
$bubble_number++; |
|
} |
|
$result .= $vend |
|
|
$i++; |
} |
$bubble_number++; |
|
} |
|
|
|
return $result; |
|
|
|
|
return $result; |
|
|
} |
} |
|
|
## |
## |
Line 1036 sub display_latex {
|
Line 1090 sub display_latex {
|
|
|
|
|
## |
## |
|
# Render foils for a PDF form. This is a variant of tex rednering that provides |
|
# sufficient markup that the final PDF is a form that can be filled in online, |
|
# or offline. |
|
# |
|
# @param $whichfoils - References an array of foils to display in the order in which |
|
# they should be displayed. |
|
# @param $direction - Rendering direction. 'horiztonal' means inputs are laid out |
|
# horizontally otherwise they are stacked vertically. |
|
# |
|
# @return string |
|
# @retval String containing the rendering of the resource. |
|
# |
|
sub display_pdf_form { |
|
my ($whichfoils) = @_; |
|
my $temp = 0; |
|
my $result; |
|
|
|
foreach my $name ( @{$whichfoils} ) { |
|
|
|
my $fieldname = |
|
$env{'request.symb'} |
|
. '&part_' |
|
. $Apache::inputtags::part |
|
. '&radiobuttonresponse' |
|
. '&HWVAL_' |
|
. $Apache::inputtags::response['-1']; |
|
$result .= '\item[{' |
|
. &Apache::lonxml::print_pdf_radiobutton( $fieldname, |
|
$temp ) |
|
. '}]' |
|
. $Apache::response::foilgroup{ $name . '.text' } |
|
. "\n"; |
|
|
|
$temp++; |
|
} |
|
|
|
return $result; |
|
} |
|
|
|
|
|
## |
|
# Display selected foils: This is really just a dispatchter to appropriate renderers |
|
# |
|
# @param $target - Target (e.g. 'tex'...). |
|
# @param $answer - True if answers should be shown. |
|
# @param $whichfoils - Array of foil selectors that indicate which foils shouild be |
|
# rendered, in rendering order. |
|
# @param $direction- Rendering direction ('horizontal' is the one we look for, |
|
# otherwise foils are rendered one per line vertically. |
|
# @param $bubbles_per_line - number of exam bubbles per line. |
|
# |
|
# @return string |
|
# @retval The rendered problem. |
|
|
sub displayfoils { |
sub displayfoils { |
my ( $target, $answer, $whichfoils, $direction, $bubbles_per_line ) = @_; |
my ( $target, $answer, $whichfoils, $direction, $bubbles_per_line ) = @_; |
Line 1092 sub displayfoils {
|
Line 1199 sub displayfoils {
|
|
|
if ( ( $Apache::lonhomework::type eq 'exam' ) ) |
if ( ( $Apache::lonhomework::type eq 'exam' ) ) |
{ |
{ |
$result .= $begin_environment; |
$result .= &display_latex_exam( |
$result .= &display_latex_exam($whichfoils, $bubbles_per_line); |
$whichfoils, $bubbles_per_line, $direction, $begin_environment, |
$result .= $end_environment; |
$end_environment); |
|
|
$result .= '\vskip 0mm '; |
$result .= '\vskip 0mm '; |
|
|
} else { |
} else { |
Line 1107 sub displayfoils {
|
Line 1215 sub displayfoils {
|
&& ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) |
&& ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) |
{ |
{ |
$result .= $begin_environment; |
$result .= $begin_environment; |
foreach my $name ( @{$whichfoils} ) { |
$result .= &display_pdf_form($whichfoils, $direction); |
|
|
my $fieldname = |
|
$env{'request.symb'} |
|
. '&part_' |
|
. $Apache::inputtags::part |
|
. '&radiobuttonresponse' |
|
. '&HWVAL_' |
|
. $Apache::inputtags::response['-1']; |
|
$result .= '\item[{' |
|
. &Apache::lonxml::print_pdf_radiobutton( $fieldname, |
|
$temp ) |
|
. '}]' |
|
. $Apache::response::foilgroup{ $name . '.text' } |
|
. "\n"; |
|
|
|
$temp++; |
|
} |
|
$result .= $end_environment; |
$result .= $end_environment; |
} else { |
} else { |
$result .= &display_latex( |
$result .= &display_latex( |