From a6ecd221ab7db8df18b1fbcb1ea11353a9437893 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 13 Apr 2007 19:11:47 +0000
Subject: [PATCH] Few cosmetic fixes.
git-svn-id: http://svn.simon-cozens.org/memories/trunk@65 041978f6-d955-411f-a9d7-1d8545c9c3c7
---
Tagtools.pm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
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
--
2.39.5