Changeset 319 for trunk/npemap.org.uk/scripts/process-problems

Timestamp:

Nov 5, 2006, 11:59:38 AM (15 years ago)

Author:

Dominic Hargreaves

Message:

Include reason and date

File:

• trunk/npemap.org.uk/scripts/process-problems (modified) (1 diff)

trunk/npemap.org.uk/scripts/process-problems

@@ -35 +35 @@
 while ($hr = $sth->fetchrow_hashref) {
     $probids{$hr->{'id'}}++;
+    $hr->{'reporter_email'} = 'anon' unless $hr->{'reporter_email'};
+    $hr->{'prob_ip'} = 'unknown IP' unless $hr->{'prob_ip'};
+    $hr->{'sub_ip'} = '' unless $hr->{'sub_ip'};
     print $hr->{'id'} . ': ' . $hr->{'outward'} . ' ' . $hr->{'inward'} . ': ';
-    print "by " . $hr->{'reporter_email'} || 'anon';
-    print " at " . $hr->{'prob_ip'} || 'unknown IP';
+    print "by " . $hr->{'reporter_email'};
+    print " at " . $hr->{'prob_ip'};
     print ' (SAME IP)' if ($hr->{'prob_ip'} eq $hr->{'sub_ip'});
     print "\n";
+    print " ";
+    print "Reason: " . $hr->{'reason'} . ' ' if $hr->{'reason'};
+    print "(". $hr->{'b.created_at'} . ")\n";
     print " http://www.npemap.org.uk/tiles/map.html#" .
         int($hr->{'easting'} / 1000) . ',' . int($hr->{'northing'} / 1000) . ",1\n";