diff options
| author | Dave Whiteland <dave@mysociety.org> | 2013-07-25 16:21:42 +0100 |
|---|---|---|
| committer | Dave Whiteland <dave@mysociety.org> | 2013-07-25 16:21:42 +0100 |
| commit | affd9b1ae007a98b84aad52a49381d7f4dfddd75 (patch) | |
| tree | c04c5012d61673d040c91c69a87ea8fefb02f010 | |
| parent | 9cb7aa2ab8b12fcd7ecce3624e807925e01aa891 (diff) | |
force upper case on certain PEM fields
| -rwxr-xr-x | bin/oxfordshire/open311_service_request.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/oxfordshire/open311_service_request.cgi b/bin/oxfordshire/open311_service_request.cgi index 4a53af934..1e7d2716b 100755 --- a/bin/oxfordshire/open311_service_request.cgi +++ b/bin/oxfordshire/open311_service_request.cgi @@ -206,10 +206,10 @@ sub insert_into_pem { # incoming data $bindings{":ce_x"} = $$h{$F{EASTING}}; $bindings{":ce_y"} = $$h{$F{NORTHING}}; - $bindings{":ce_forename"} = strip($$h{$F{FIRST_NAME}}, 30); # 'CLIFF' - $bindings{":ce_surname"} = strip($$h{$F{LAST_NAME}}, 30); # 'STEWART' - $bindings{":ce_work_phone"} = strip($$h{$F{PHONE}}, 25); # '0117 600 4200' - $bindings{":ce_email"} = strip($$h{$F{EMAIL}}, 50); # 'info@exor.co.uk' + $bindings{":ce_forename"} = uc strip($$h{$F{FIRST_NAME}}, 30); # 'CLIFF' + $bindings{":ce_surname"} = uc strip($$h{$F{LAST_NAME}}, 30); # 'STEWART' + $bindings{":ce_work_phone"} = strip($$h{$F{PHONE}}, 25); # '0117 600 4200' + $bindings{":ce_email"} = uc strip($$h{$F{EMAIL}}, 50); # 'info@exor.co.uk' $bindings{":ce_description"} = strip($description, 1970, $F{DESCRIPTION}); # 'Large Pothole' # nearest address guesstimate |