diff options
| author | Dave Whiteland <dave@mysociety.org> | 2012-12-14 14:33:03 +0000 |
|---|---|---|
| committer | Dave Whiteland <dave@mysociety.org> | 2012-12-14 14:33:03 +0000 |
| commit | 64f90c72e109765e5a0c958b372cfe1a85cd4be1 (patch) | |
| tree | 7f5751d74ef349f70e3a4b8a2ef7b3e9533bc6ca | |
| parent | 528cbd4eae80de7eb5357e4d6dd4408a3b4ce704 (diff) | |
print out fake (test) return value for now, and remove inout ORA_types
| -rwxr-xr-x | bin/oxfordshire/open311_service_request.cgi | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/bin/oxfordshire/open311_service_request.cgi b/bin/oxfordshire/open311_service_request.cgi index c0d88dc4c..45c28a3c5 100755 --- a/bin/oxfordshire/open311_service_request.cgi +++ b/bin/oxfordshire/open311_service_request.cgi @@ -135,7 +135,8 @@ if ($TEST_SERVICE_DISCOVERY) { } elsif ($req -> param('services')) { get_service_discovery($req); } else { - get_FAKE_INSERT($req); # allow a GET to make an insert, for testing (from the commandnd line!) + my $fixme = get_FAKE_INSERT($req); # allow a GET to make an insert, for testing (from the commandnd line!) + print "Returned $fixme\n"; # get_service_requests($req); } @@ -303,7 +304,7 @@ sub insert_into_pem { my %bindings; # comments here are suggested values # fixed values - $bindings{":ce_cat"} = 'ENQ'; # or REQS ? + $bindings{":ce_cat"} = 'REQS'; # or REQS ? $bindings{":ce_class"} = 'SERV'; # 'FRML' ? $bindings{":ce_contact_type"} = 'ENQUIRER'; # 'ENQUIRER' $bindings{":ce_status_code"} = 'RE'; # RE=received (?) @@ -363,9 +364,9 @@ sub insert_into_pem { # $sth->bind_param(":ce_compl_remarks", $undef); # remarks (notes) max 254 char # return values: - $sth->bind_param_inout(":error_value", \$error_value, 12, { ora_type => ORA_NUMBER}); #> l_ERROR_VALUE # number + $sth->bind_param_inout(":error_value", \$error_value, 12); #> l_ERROR_VALUE # number $sth->bind_param_inout(":error_product", \$error_product, 10); #> l_ERROR_PRODUCT (will always be 'DOC') - $sth->bind_param_inout(":ce_doc_id", \$pem_id, 12, { ora_type => ORA_NUMBER}); #> l_ce_doc_id # number + $sth->bind_param_inout(":ce_doc_id", \$pem_id, 12); #> l_ce_doc_id # number $sth->execute(); $dbh->disconnect; |