Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/action.pm

   1 package OpenILS::Application::Storage::CDBI::action;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package action;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8
   9 package action::survey;
  10 use base qw/action/;
  11 __PACKAGE__->table('action_survey');
  12 __PACKAGE__->columns(Primary => 'id');
  13 __PACKAGE__->columns(Essential => qw/name description owner start_date end_date usr_summary opac required/);
  14 #-------------------------------------------------------------------------------
  15
  16 package action::survey_question;
  17 use base qw/action/;
  18 __PACKAGE__->table('action_survey_question');
  19 __PACKAGE__->columns(Primary => 'id');
  20 __PACKAGE__->columns(Essential => qw/survey question/);
  21 #-------------------------------------------------------------------------------
  22
  23
  24 package action::survey_answer;
  25 use base qw/action/;
  26 __PACKAGE__->table('action_survey_answer');
  27 __PACKAGE__->columns(Primary => 'id');
  28 __PACKAGE__->columns(Essential => qw/question answer/);
  29 #-------------------------------------------------------------------------------
  30
  31 package action::survey_response;
  32 use base qw/action/;
  33 __PACKAGE__->table('action_survey_response');
  34 __PACKAGE__->columns(Primary => 'id');
  35 __PACKAGE__->columns(Essential => qw/usr survey question answer answer_date effective_date/);
  36 #-------------------------------------------------------------------------------
  37
  38 package action::circulation;
  39 use base qw/action/;
  40 __PACKAGE__->table('action_circulation');
  41 __PACKAGE__->columns(Primary => 'id');
  42 __PACKAGE__->columns(Essential => qw/xact_start usr target_copy circ_lib
  43                                      duration renewal_remaining fine_amount
  44                                      max_fines fine_interval/);
  45 __PACKAGE__->columns(Others => qw/note stop_fines xact_finish/);
  46
  47 #-------------------------------------------------------------------------------
  48
  49 1;
  50