Index: library/actiweb/HttpPlace.xotcl =================================================================== diff -u -ra70e406af0c39566e7fb0b1e0213d088f4f6a5be -rfd5d861109f500aed922294d790bc923bc9c727e --- library/actiweb/HttpPlace.xotcl (.../HttpPlace.xotcl) (revision a70e406af0c39566e7fb0b1e0213d088f4f6a5be) +++ library/actiweb/HttpPlace.xotcl (.../HttpPlace.xotcl) (revision fd5d861109f500aed922294d790bc923bc9c727e) @@ -1,4 +1,4 @@ - +# -*- Tcl -*- package provide xotcl::actiweb::httpPlace 1.0 package require -exact xotcl::trace 1.0 @@ -178,6 +178,18 @@ if {![my isobject $obj] && [file readable $fileName]} { next ;# let Httpd handle this } else { + # + # tell the object the query from the URL + # + $obj set query [my set query] + # + # If there are no arguments available through the + # interface, pass the URL-query parameters (raw) + # + if {$arguments eq ""} {set arguments [my set query]} + # + # now invoke the method + # set response [$place invokeCall obj status $method $arguments] #puts stderr "RESPONSE: $response" #