aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/send-reports9
1 files changed, 5 insertions, 4 deletions
diff --git a/bin/send-reports b/bin/send-reports
index fbbd3db5e..008ab2fbc 100755
--- a/bin/send-reports
+++ b/bin/send-reports
@@ -240,7 +240,7 @@ while (my $row = $unsent->next) {
} elsif ($send_web eq 'london') {
$h{message} = construct_london_message(%h);
if (!$nomail) {
- $result *= post_london_report(%h);
+ $result *= post_london_report( $row, %h );
}
}
@@ -359,7 +359,7 @@ EOF
}
sub post_london_report {
- my %h = @_;
+ my ( $problem, %h ) = @_;
my $phone = $h{phone};
my $mobile = '';
if ($phone =~ /^\s*07/) {
@@ -411,8 +411,9 @@ sub post_london_report {
my ($team) = $out =~ /<team>(.*?)<\/team>/;
$org = london_lookup($org);
- dbh()->do("update problem set external_id=?, external_body=?, external_team=? where id=?", {},
- $id, $org, $team, $h{id});
+ $problem->external_id( $id );
+ $problem->external_body( $org );
+ $problem->external_team( $team );
return 0;
}