Changeset 230 for trunk/npemap.org.uk/perllib

Timestamp:

Oct 29, 2006, 6:10:20 PM (15 years ago)

Author:

Dominic Hargreaves

Message:

Better stats stuff

Location:

trunk/npemap.org.uk/perllib/NPEMap

Files:

• Config.pm (modified) (2 diffs)
• Postcodes.pm (modified) (1 diff)

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

@@ -1 +1 @@
 package NPEMap::Config;
 
-use vars qw(@ISA @EXPORT $tt_config $rootdir $dbname);
+use vars qw(@ISA @EXPORT $tt_config $rootdir);
 use warnings;
 use strict;
@@ -9 +9 @@
 require Exporter;
 @ISA    = qw(Exporter);
-@EXPORT = qw($tt_config $dbname $dbhost $dbuser $dbpass);
+@EXPORT = qw($tt_config $dbname $dbhost $dbuser $dbpass $staticdir);
 
 # Read in site config

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

@@ -68 +68 @@
         datestats => $dateStats
     };
-    $template->process('home_stats.tt', $vars) or die $template->error();
+    
+    $template->process('home_stats.tt', $vars, $staticdir . '/stats.html')
+        or warn $template->error();
 }