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

Author: Alex-Jordan

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;

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);