Changeset 65

Show
Ignore:
Timestamp:
04/13/07 19:11:47 (1 year ago)
Author:
simon
Message:

Few cosmetic fixes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/Tagtools.pm

    r64 r65  
    11package Tagtools; 
     2use warnings; 
    23use Lingua::EN::Inflect::Number qw(to_PL); 
    34use URI::Escape; 
    …… 
    3738    *{$whence."::_calendar"} = sub { 
    3839        my $arg = shift; 
     40        require Time::Piece; 
    3941        my ($y, $m) = split /-/, ($arg || Time::Piece->new->ymd); 
    4042        my @m = Calendar::Simple::calendar($m, $y); 
    …… 
    7779    # At this point, the $via_table should now be able to be named as... 
    7880    my $tag_class = $class_for->($tag_table_name); 
    79     my $via_table = $tag_table_name."ging"; 
    8081    my $via = $tag_class."ging"; 
    8182 
    8283    # Set up the class 
    8384    @{$via."::ISA"} = @{$tag_class."::ISA"}; 
     85    $via->table($via_table); 
    8486    $via->columns(TEMP => qw/count/); 
    8587    $via->columns(Essential => "id", $tag_table_name, $target_table);