root/trunk/antimatter/tim/Modules/SFLC/TimeTracker/Category.pm

# Copyright (C) 2005   Software Freedom Law Center, Inc.
#  Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
#
#  This software gives you freedom; it is licensed to you under version
#  3 of the GNU Affero General Public License, along with the
#  additional permission in the following paragraph.
#
#  This software is distributed WITHOUT ANY WARRANTY, without even the
#  implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
#  PURPOSE.  See the GNU Affero General Public License for further
#  details.
#
# You should have received a copy of the GNU Affero General Public
# License, version 3 along with this software.  If not, see
# <http://www.gnu.org/licenses/>.

package SFLC::TimeTracker::Category;

use strict;
use warnings;

require Exporter;
#use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our @EXPORT_OK = qw(Create Initialize);

our @EXPORT = qw( );

our $VERSION = '0.01';

our $DATABASE;
use Carp;

use Date::Manip;

use strict;
use warnings;

sub getDatabase {
  return $SFLC::TimeTracker::Input::DATABASE;
}
###############################################################################
sub new {
  my $class = shift;
  my %args = @_;

  my $name = $args{name};
  croak "Unable to create new category without a name" if not defined $name;

  croak "malformed category name, $name" unless $name =~ m%^/\S+(?:/\S+)*%;

  chomp $name;

  my $userH = $args{userHandle};

  my $self = bless {}, $class;

  $self->{name} = "\L$name\E";

  $self->{id} = $self->getDatabase()->categoryAliasLookup($userH, $name);
  $self->{id} = $self->getDatabase()->insertCategory($self)
    if (not defined $self->{id});
  return $self;
}

sub prettyPrint {
  my $self = shift;
  return $self->get('name');
}

sub get {
  my($self, $field) = @_;
  if ($field !~ /^(?:name|id)$/) {
    croak "invalid field $field";
  }
  return $self->{$field};
}
1;