Skip to content

PTX stuff for parserRadioMultiAnswer #1359

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Alex-Jordan wants to merge 1 commit into
base: develop
Choose a base branch
from
Open

PTX stuff for parserRadioMultiAnswer #1359

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
49 changes: 44 additions & 5 deletions macros/parsers/parserRadioMultiAnswer.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ =head1 DESCRIPTION
$rma = RadioMultiAnswer([
['The unique solution is \(x=\) %s and \(y=\) %s.', 5, 6],
['There are an infinite number of solutions parameterized by '
. '\(x=\) %s and \(y=\) %s.', '23-3t', 't']
. '\(x=\) %s and \(y=\) %s.', '23-3x', 'x'],
['There are no solutions.']
], 0);

Expand Down Expand Up @@ -233,6 +233,14 @@ =head1 OPTIONS

=back

=item showInStatic (Default: showInStatic => 1)

In static output, such as PDF or PTX, this controls whether or not the list of answer options is
displayed. (The text preceding the list of answer options might make printing the answer option
list unnecessary in a static output format.)

=back

=cut

BEGIN { strict->import }
Expand Down Expand Up @@ -288,6 +296,7 @@ sub new {
size => undef,
checked => undef,
uncheckable => 0,
showInStatic => 1,
@inputs
);

Expand Down Expand Up @@ -593,6 +602,7 @@ sub ANS_NAME {
# Produce the label for a part of the radio answer.
sub label {
my ($self, $i) = @_;
$self->{originalLabels} //= $self->{labels};
return $self->{labels}[$i] if ref($self->{labels}) eq 'ARRAY' && $#{ $self->{labels} } >= $i;

$self->{labels} = [ @main::ALPHABET[ 0 .. $#{ $self->{data} } ] ] if uc($self->{labels}) eq 'ABC';
Expand Down Expand Up @@ -638,6 +648,7 @@ sub generate_aria_label {
# Produce the answer rule.
sub ans_rule {
my ($self, $size, @options) = @_;

$size ||= 20;
my @data = @{ $self->{data} };
my @rules;
Expand Down Expand Up @@ -705,18 +716,44 @@ sub ans_rule {
push(@rules, $rule);
}

return '' if !$self->{showInStatic} && ($main::displayMode eq 'TeX' || $main::displayMode eq 'PTX');

my $ptx_list_type = 'ul';
my $ptx_sub_type = ' form="buttons"';
if ($main::displayMode eq 'PTX') {
# Do we want an ol, ul, or dl?
if ($self->{displayLabels}) {
my $originalLabels = $self->{originalLabels};
if (ref $originalLabels eq 'ARRAY') {
$ptx_list_type = 'dl';
$ptx_sub_type = ' width = "narrow"';
} elsif ($originalLabels =~ m/^(123|abc)$/i) {
my $marker = '';
$marker = '1' if $originalLabels eq '123';
$marker = 'a' if $originalLabels eq 'abc';
$marker = 'A' if uc($originalLabels) eq 'ABC' && $originalLabels ne 'abc';
$ptx_list_type = 'ol';
$ptx_sub_type = qq( marker="$marker");
}
}
}

return main::MODES(
TeX => '\\begin{itemize}',
HTML => '<div class="radio-multianswer-container">'
HTML => '<div class="radio-multianswer-container">',
PTX => qq(<${ptx_list_type}${ptx_sub_type} name="$radio_name">)
)
. join(main::MODES(TeX => '\vskip\baselineskip', HTML => main::tag('div', style => 'margin-top:1rem')), @rules)
. main::MODES(TeX => '\\end{itemize}', HTML => '</div>');
. join(
main::MODES(TeX => '\vskip\baselineskip', HTML => main::tag('div', style => 'margin-top:1rem'), PTX => ''),
@rules
) . main::MODES(TeX => '\\end{itemize}', HTML => '</div>', PTX => "</$ptx_list_type>");
}

# Format a label.
sub label_format {
my ($self, $label) = @_;
return '' unless $self->{displayLabels} && defined $label && $label ne '';
return '<title>' . $self->quoteXML($label) . '</title>' if $main::displayMode eq 'PTX';
return sprintf($self->{labelFormat}, main::MODES(TeX => $self->quoteTeX($label), HTML => $self->quoteHTML($label)));
}

Expand All @@ -734,6 +771,8 @@ sub begin_radio {
if ($extend) { main::EXTEND_RESPONSE($name, $name, $value, $checked) }
else { $name = main::RECORD_ANS_NAME($name, { $value => $checked }) }

return '' if !$self->{showInStatic} && ($main::displayMode eq 'TeX' || $main::displayMode eq 'PTX');

my $idSuffix = $extend ? "_$value" : '';

return main::MODES(
Expand All @@ -754,7 +793,7 @@ sub begin_radio {
$checked ? (checked => undef) : ()
)
. main::tag('label', for => "$name$idSuffix", $tag),
PTX => "<li>$tag",
PTX => ref $self->{originalLabels} eq 'ARRAY' ? "<li>$tag" : '<li>',
);
}

Expand Down