Skip to content

Add an html attributes option to essay boxes #1414

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

Merged
Alex-Jordan merged 2 commits into from
May 23, 2026
+14 −6
Merged

Add an html attributes option to essay boxes #1414

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d884cd3
Add an html attributes option to essay boxes
dlglin May 22, 2026
0684baa
Add space around fat comma in code example
Alex-Jordan May 23, 2026
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
20 changes: 14 additions & 6 deletions macros/core/PGessaymacros.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

=head1 NAME

PGessaymacros.pl - Macros for building answer evaluators.
PGessaymacros.pl - Macros for manually graded text answers.

=head2 SYNOPSIS

Expand All @@ -11,11 +11,18 @@ =head2 SYNOPSIS

Answer Boxes:

essay_box()
essay_box(rows, columns, html_options)

To use essay answers call C<essay_box()> in your problem file wherever you want
the input box to go, and then use C<essay_cmp()> for the corresponding checker.
You will then need to grade the problem manually.
You will then need to grade the problem manually. You can explicitly set the
size of the essay box by specifying the number of rows and columns. Any additional
arguments will be passed as html attributes of the text area. For example

essay_box(8, 60, maxlength => 250)

will produce a text box with 8 rows and 60 columns that has a limit of 250
characters.

explanation_box()

Expand Down Expand Up @@ -92,7 +99,7 @@ sub essay_cmp {
}

sub NAMED_ESSAY_BOX {
my ($name, $row, $col) = @_;
my ($name, $row, $col, %html_options) = @_;
$row //= 8;
$col //= 75;

Expand All @@ -109,6 +116,7 @@ sub NAMED_ESSAY_BOX {
TeX => qq!\\vskip $height in \\hrulefill\\quad !,
HTML => tag(
'textarea',
%html_options,
name => $name,
id => $name,
aria_label => generate_aria_label($name),
Expand Down Expand Up @@ -137,12 +145,12 @@ sub NAMED_ESSAY_BOX {
}

sub essay_box {
my ($row, $col) = @_;
my ($row, $col, %html_options) = @_;
$row ||= 8;
$col ||= 75;
my $name = NEW_ANS_NAME();
main::RECORD_IMPLICIT_ANS_NAME($name);
NAMED_ESSAY_BOX($name, $row, $col);
NAMED_ESSAY_BOX($name, $row, $col, %html_options);

}

Expand Down
Loading