rt/lib/RT/Transactions.pm

   1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Transactions.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
   2
   3 =head1 NAME
   4
   5   RT::Transactions - a collection of RT Transaction objects
   6
   7 =head1 SYNOPSIS
   8
   9   use RT::Transactions;
  10
  11
  12 =head1 DESCRIPTION
  13
  14
  15 =head1 METHODS
  16
  17 =begin testing
  18
  19 ok (require RT::TestHarness);
  20 ok (require RT::Transactions);
  21
  22 =end testing
  23
  24 =cut
  25
  26 package RT::Transactions;
  27 use RT::EasySearch;
  28
  29 @ISA= qw(RT::EasySearch);
  30 use RT::Transaction;
  31
  32 # {{{ sub _Init
  33 sub _Init   {
  34   my $self = shift;
  35
  36   $self->{'table'} = "Transactions";
  37   $self->{'primary_key'} = "id";
  38
  39   # By default, order by the date of the transaction, rather than ID.
  40   $self->OrderBy( ALIAS => 'main',
  41                   FIELD => 'Created',
  42                   ORDER => 'ASC');
  43
  44   return ( $self->SUPER::_Init(@_));
  45 }
  46 # }}}
  47
  48 # {{{ sub NewItem
  49 sub NewItem  {
  50     my $self = shift;
  51
  52     return(RT::Transaction->new($self->CurrentUser));
  53 }
  54 # }}}
  55
  56
  57 =head2 example methods
  58
  59   Queue RT::Queue or Queue Id
  60   Ticket RT::Ticket or Ticket Id
  61
  62
  63 LimitDate
  64
  65 Type TRANSTYPE
  66 Field STRING
  67 OldValue OLDVAL
  68 NewValue NEWVAL
  69 Data DATA
  70 TimeTaken
  71 Actor USEROBJ/USERID
  72 ContentMatches STRING
  73
  74 =cut
  75
  76
  77 1;
  78