Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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
Chris Scheller authored
Showing with 9 additions and 8 deletions.
  1. +9 −8 create.pl
17 create.pl
View
@@ -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.