From: Simon Cozens Date: Fri, 13 Apr 2007 19:11:47 +0000 (+0000) Subject: Few cosmetic fixes. X-Git-Tag: 1.2+svn20070808~3 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=a6ecd221ab7db8df18b1fbcb1ea11353a9437893;p=memories.git Few cosmetic fixes. git-svn-id: http://svn.simon-cozens.org/memories/trunk@65 041978f6-d955-411f-a9d7-1d8545c9c3c7 --- diff --git a/Tagtools.pm b/Tagtools.pm index 04e2f63..44c5405 100644 --- a/Tagtools.pm +++ b/Tagtools.pm @@ -1,4 +1,5 @@ package Tagtools; +use warnings; use Lingua::EN::Inflect::Number qw(to_PL); use URI::Escape; use HTML::TagCloud; @@ -36,6 +37,7 @@ sub import { }; *{$whence."::_calendar"} = sub { my $arg = shift; + require Time::Piece; my ($y, $m) = split /-/, ($arg || Time::Piece->new->ymd); my @m = Calendar::Simple::calendar($m, $y); my @month; @@ -76,11 +78,11 @@ sub _setup_tagging { # At this point, the $via_table should now be able to be named as... my $tag_class = $class_for->($tag_table_name); - my $via_table = $tag_table_name."ging"; my $via = $tag_class."ging"; # Set up the class @{$via."::ISA"} = @{$tag_class."::ISA"}; + $via->table($via_table); $via->columns(TEMP => qw/count/); $via->columns(Essential => "id", $tag_table_name, $target_table); # Set up the auxilliary methods