Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v diff -u -N -r1.15.2.7 -r1.15.2.8 --- openacs-4/packages/xowiki/tcl/test/test-procs.tcl 25 Jun 2019 20:19:45 -0000 1.15.2.7 +++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl 27 Jun 2019 08:27:14 -0000 1.15.2.8 @@ -230,7 +230,7 @@ {-autonamed:boolean false} {-update ""} {-remove ""} - {-extra_url_parameter {}} + {-extra_url_parameter ""} } { Create a form page via the web interface. @@ -241,9 +241,15 @@ # Create a page under the parent_id # aa_log "create a page in test test folder $parent_id" + set url $instance/$path/$form_name?m=create-new&parent_id=$parent_id + if {$extra_url_parameter ne ""} { + append url &[export_vars $extra_url_parameter] + } + #aa_log "... create page via url: $url" + set d [acs::test::http \ -last_request $last_request -user_id $user_id \ - $instance/$path/$form_name?m=create-new&parent_id=$parent_id&[export_vars $extra_url_parameter]] + $url] acs::test::reply_has_status_code $d 302 set location [::xowiki::test::get_url_from_location $d]