Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

with multiple keys having the same name make sure it is a listref

otherwise one gets the boot
  • Loading branch information...
commit c4b7e4c7ad85013c6f69209b4ac3688704da8c57 1 parent dda9b6f
@schelcj authored
Showing with 9 additions and 8 deletions.
  1. +9 −8 create.pl
View
17 create.pl
@@ -290,20 +290,21 @@ sub create_question {
my $img_rid = find_resource($name, $question->{resource});
$agent->post(
- qq{$UMLESSONS_URL/multiple_choice/update_content/$UNIT_URL_NAME/$name\$$question_id#},
- op => 'Save',
- question => $question_text,
- section => 'question',
- 'question/resource' => $img_rid,
- 'question/resource' => $rid,
- 'question/align' => 'BELOW'
+ qq{$UMLESSONS_URL/multiple_choice/update_content/$UNIT_URL_NAME/$name\$$question_id#}, [
+ op => 'Save',
+ question => $question_text,
+ section => 'question',
+ 'question/resource' => $img_rid,
+ 'question/resource' => $rid,
+ 'question/align' => 'BELOW'
+ ]
);
}
my $id = get_response_id($agent->response->previous->header('location'));
$agent->post(
qq{$UMLESSONS_URL/multiple_choice/update_settings/$UNIT_URL_NAME/$name\$${id}#}, {
- correctCaption => 'You got it!',
+ correctCaption => 'Correct!',
feedback => 'TRUE',
firstItemFirst => 'FALSE',
generalFeedback => 'FALSE',
Please sign in to comment.
Something went wrong with that request. Please try again.