Changeset 319


Ignore:
Timestamp:
Nov 5, 2006, 11:59:38 AM (13 years ago)
Author:
Dominic Hargreaves
Message:

Include reason and date

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/scripts/process-problems

    r318 r319  
    3535while ($hr = $sth->fetchrow_hashref) {
    3636    $probids{$hr->{'id'}}++;
     37    $hr->{'reporter_email'} = 'anon' unless $hr->{'reporter_email'};
     38    $hr->{'prob_ip'} = 'unknown IP' unless $hr->{'prob_ip'};
     39    $hr->{'sub_ip'} = '' unless $hr->{'sub_ip'};
    3740    print $hr->{'id'} . ': ' . $hr->{'outward'} . ' ' . $hr->{'inward'} . ': ';
    38     print "by " . $hr->{'reporter_email'} || 'anon';
    39     print " at " . $hr->{'prob_ip'} || 'unknown IP';
     41    print "by " . $hr->{'reporter_email'};
     42    print " at " . $hr->{'prob_ip'};
    4043    print ' (SAME IP)' if ($hr->{'prob_ip'} eq $hr->{'sub_ip'});
    4144    print "\n";
     45    print " ";
     46    print "Reason: " . $hr->{'reason'} . ' ' if $hr->{'reason'};
     47    print "(". $hr->{'b.created_at'} . ")\n";
    4248    print " http://www.npemap.org.uk/tiles/map.html#" .
    4349        int($hr->{'easting'} / 1000) . ',' . int($hr->{'northing'} / 1000) . ",1\n";
Note: See TracChangeset for help on using the changeset viewer.