Make PTX multiple choice answers show their name. (#587)

openwebwork · Jul 1, 2021 · 86e3c81 · 86e3c81
1 parent c033e77
commit 86e3c81
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/macros/parserPopUp.pl b/macros/parserPopUp.pl
@@ -173,7 +173,7 @@ sub MENU {
     };
     $menu .= "</select>";
   } elsif ($main::displayMode eq 'PTX') {
-    $menu = '<var form="popup">' . "\n";
+    $menu = qq(<var form="popup" name="$name">) . "\n";
     foreach my $item (@list) {
       $menu .= '<li>';
       my $escaped_item = $item;

diff --git a/macros/parserRadioButtons.pl b/macros/parserRadioButtons.pl
@@ -592,7 +592,7 @@ sub BUTTONS {
     $radio[$#radio_buttons] .= "\n\\end{itemize}\n";
   }
   if ($main::displayMode eq 'PTX') {
-    $radio[0] = '<var form="buttons">' . "\n" . $radio[0];
+    $radio[0] = qq(<var form="buttons" name="$name">) . "\n" . $radio[0];
     $radio[$#radio_buttons] .= '</var>';
     #turn any math delimiters
     @radio = map {$_ =~ s/\\\(/<m>/g; $_} (@radio);