Changeset 235 for trunk/npemap.org.uk

Timestamp:

Oct 29, 2006, 7:10:34 PM (15 years ago)

Author:

Dominic Hargreaves

Message:

Add last 5 postcodes

Location:

trunk/npemap.org.uk

Files:

• perllib/NPEMap/Postcodes.pm (modified) (2 diffs)
• templates/home_stats.tt (modified) (1 diff)

trunk/npemap.org.uk/perllib/NPEMap/Postcodes.pm

@@ -45 +45 @@
     my $sth = $dbh->prepare($sql);
     $sth->execute();
-    return $sth->fetchrow_hashref;
+    return $sth->fetchall_arrayref({});
+}
+
+sub _getLastPostcodes {
+    my $dbh = shift;
+    my $num = shift;
+    my $sql = <<"HERE";
+SELECT easting, northing, outward, inward, TO_CHAR(created_at, 'DDth Mon HH24:MI')AS date
+FROM postcodes
+WHERE NOT deleted
+ORDER BY created_at DESC LIMIT ? 
+HERE
+
+    my $sth = $dbh->prepare($sql);
+    $sth->execute($num);
+    return $sth->fetchall_arrayref({});
 }
 
@@ -63 +78 @@
     my $allStats = _getAllStats($dbh);
     my $dateStats = _getDateStats($dbh);
+    my $lastPostcodes = _getLastPostcodes($dbh, 5);
 
     my $vars = {
         allstats => $allStats,
-        datestats => $dateStats
+        datestats => $dateStats,
+        lastpostcodes => $lastPostcodes
     };
     

trunk/npemap.org.uk/templates/home_stats.tt

@@ -3 +3 @@
 <li>Outward parts collected: [% allstats.us_out %]</li>
 </ul>
+
+<h3>Recent submissions:</h3>
+
+<ul>
+[% FOREACH postcode = lastpostcodes %]
+<li><a href="tiles/map.html#[% postcode.easting div 1000 %],[% postcode.northing div 1000 %],1">[% postcode.outward %] [% postcode.inward %]</a> ([% postcode.easting %], [% postcode.northing %]) [[% postcode.date %]]</li>
+[% END %]
+</ul>