+++ /dev/null
-# $Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Templates.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
-
-=head1 NAME
-
- RT::Templates - a collection of RT Template objects
-
-=head1 SYNOPSIS
-
- use RT::Templates;
-
-=head1 DESCRIPTION
-
-
-=head1 METHODS
-
-=begin testing
-
-ok (require RT::TestHarness);
-ok (require RT::Templates);
-
-=end testing
-
-=cut
-
-package RT::Templates;
-use RT::EasySearch;
-@ISA= qw(RT::EasySearch);
-
-
-# {{{ sub _Init
-
-=head2 _Init
-
- Returns RT::Templates specific init info like table and primary key names
-
-=cut
-
-sub _Init {
-
- my $self = shift;
- $self->{'table'} = "Templates";
- $self->{'primary_key'} = "id";
- return ($self->SUPER::_Init(@_));
-}
-# }}}
-
-# {{{ LimitToNotInQueue
-
-=head2 LimitToNotInQueue
-
-Takes a queue id # and limits the returned set of templates to those which
-aren't that queue's templates.
-
-=cut
-
-sub LimitToNotInQueue {
- my $self = shift;
- my $queue_id = shift;
- $self->Limit(FIELD => 'Queue',
- VALUE => "$queue_id",
- OPERATOR => '!='
- );
-}
-# }}}
-
-# {{{ LimitToGlobal
-
-=head2 LimitToGlobal
-
-Takes no arguments. Limits the returned set to "Global" templates
-which can be used with any queue.
-
-=cut
-
-sub LimitToGlobal {
- my $self = shift;
- my $queue_id = shift;
- $self->Limit(FIELD => 'Queue',
- VALUE => "0",
- OPERATOR => '='
- );
-}
-# }}}
-
-# {{{ LimitToQueue
-
-=head2 LimitToQueue
-
-Takes a queue id # and limits the returned set of templates to that queue's
-templates
-
-=cut
-
-sub LimitToQueue {
- my $self = shift;
- my $queue_id = shift;
- $self->Limit(FIELD => 'Queue',
- VALUE => "$queue_id",
- OPERATOR => '='
- );
-}
-# }}}
-
-# {{{ sub NewItem
-
-=head2 NewItem
-
-Returns a new empty Template object
-
-=cut
-
-sub NewItem {
- my $self = shift;
-
- use RT::Template;
- my $item = new RT::Template($self->CurrentUser);
- return($item);
-}
-# }}}
-
-1;
-