add showInStatic option to radio buttons and checkbox list

Author: Alex-Jordan

macros/parsers/parserCheckboxList.pl

@@ -170,6 +170,12 @@ =head1 DESCRIPTION
 index into the choice array or not.  If set to 1, then the number is treated as
 the literal correct answer, not an index to it.  Default: 0
 
+=item C<S<< showInStatic => 0 or 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.)  Default: 1
+
 =back
 
 To insert the checkboxes into the problem text use
@@ -244,6 +250,7 @@ sub new {
 		noindex          => 0,
 		checkedI         => [],
 		localLabels      => 0,
+		showInStatic     => 1,
 		@inputs
 	);
 	$options{originalLabels} = $options{labels};
@@ -570,37 +577,43 @@ sub CHECKS {
 	}
 
 	if ($main::displayMode eq 'TeX') {
-		$checks[0] = "\n\\begin{itemize}\n" . $checks[0];
-		$checks[-1] .= "\n\\end{itemize}\n";
+		if ($self->{showInStatic}) {
+			$checks[0] = "\n\\begin{itemize}\n" . $checks[0];
+			$checks[-1] .= "\n\\end{itemize}\n";
+		} else {
+			@checks = ();
+		}
 	} elsif ($main::displayMode eq 'PTX') {
+		if ($self->{showInStatic}) {
+			# Do we want an ol, ul, or dl?
+			my $list_type      = 'ul';
+			my $subtype        = '';
+			my $originalLabels = $self->{originalLabels};
+			if ($originalLabels =~ m/^(123|abc|roman)$/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';
+				$marker = "i" if $originalLabels eq 'roman';
+				$marker = "I" if uc($originalLabels) eq 'ROMAN' && $originalLabels ne 'roman';
+
+				$list_type = 'ol';
+				$subtype   = qq( marker="$marker");
+			} elsif ($self->{localLabels} || ref $originalLabels eq 'ARRAY') {
+				$list_type = 'dl';
+				$subtype   = ' width = "narrow"';
+				my %checks_to_labels = map { $checks[$_] => $self->{labels}[$_] } (0 .. $#{ $self->{orderedChoices} });
+				map { $_ =~ s/^(<li.*?>)/$1<title>$checks_to_labels{$_}<\/title>/gr } @checks;
+			}
+			$checks[0] = qq{<$list_type$subtype name="$name">\n$checks[0]};
+			$checks[-1] .= "</$list_type>";
 
-		# Do we want an ol, ul, or dl?
-		my $list_type      = 'ul';
-		my $subtype        = '';
-		my $originalLabels = $self->{originalLabels};
-		if ($originalLabels =~ m/^(123|abc|roman)$/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';
-			$marker = "i" if $originalLabels eq 'roman';
-			$marker = "I" if uc($originalLabels) eq 'ROMAN' && $originalLabels ne 'roman';
-
-			$list_type  = 'ol';
-			$subtype    = qq( marker="$marker");
-			$close_list = 'ol';
-		} elsif ($self->{localLabels} || ref $originalLabels eq 'ARRAY') {
-			$list_type = 'dl';
-			$subtype   = ' width = "narrow"';
-			my %checks_to_labels = map { $checks[$_] => $self->{labels}[$_] } (0 .. $#{ $self->{orderedChoices} });
-			map { $_ =~ s/^(<li.*?>)/$1<title>$checks_to_labels{$_}<\/title>/gr } @checks;
+			# Change math delimiters
+			@checks = map { $_ =~ s/\\\(/<m>/gr } @checks;
+			@checks = map { $_ =~ s/\\\)/<\/m>/gr } @checks;
+		} else {
+			@checks = ();
 		}
-		$checks[0] = qq{<$list_type$subtype name="$name">\n$checks[0]};
-		$checks[-1] .= "</$list_type>";
-
-		# Change math delimiters
-		@checks = map { $_ =~ s/\\\(/<m>/gr } @checks;
-		@checks = map { $_ =~ s/\\\)/<\/m>/gr } @checks;
 	} else {
 		$checks[0] =
 			qq{<div class="checkboxes-container" }

macros/parsers/parserRadioButtons.pl

@@ -180,6 +180,13 @@ =head1 DESCRIPTION
 then the number is treated as the literal correct answer, not an index
 to it.  Default: 0
 
+=item C<S<< showInStatic => 0 or 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.)  Default: 1
+
 =back
 
 The following options are deprecated, but are available for backward
@@ -294,6 +301,7 @@ sub new {
 		last             => undef,
 		order            => undef,
 		noindex          => 0,
+		showInStatic     => 1,
 		@_,
 		checkedI => -1,
 	);
@@ -663,14 +671,22 @@ sub BUTTONS {
 	# It is wrong to have \item in the radio buttons and to add itemize here,
 	# but that is the way PGbasicmacros.pl does it.
 	if ($main::displayMode eq 'TeX') {
-		$radio[0] = "\n\\begin{itemize}\n" . $radio[0];
-		$radio[-1] .= "\n\\end{itemize}\n";
+		if ($self->{showInStatic}) {
+			$radio[0] = "\n\\begin{itemize}\n" . $radio[0];
+			$radio[-1] .= "\n\\end{itemize}\n";
+		} else {
+			@radio = ();
+		}
 	} elsif ($main::displayMode eq 'PTX') {
-		$radio[0] = qq(<ul name="$name">) . "\n" . $radio[0];
-		$radio[-1] .= '</ul>';
-		#turn any math delimiters
-		@radio = map { $_ =~ s/\\\(/<m>/g;   $_ } (@radio);
-		@radio = map { $_ =~ s/\\\)/<\/m>/g; $_ } (@radio);
+		if ($self->{showInStatic}) {
+			$radio[0] = qq(<ul name="$name">) . "\n" . $radio[0];
+			$radio[-1] .= '</ul>';
+			#turn any math delimiters
+			@radio = map { $_ =~ s/\\\(/<m>/g;   $_ } (@radio);
+			@radio = map { $_ =~ s/\\\)/<\/m>/g; $_ } (@radio);
+		} else {
+			@radio = ();
+		}
 	} else {
 		$radio[0] =
 			qq{<div class="radio-buttons-container" }