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

   1 package OpenILS::Application::Storage::CDBI::authority;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package authority;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8 package authority::record_entry;
   9 use base qw/authority/;
  10
  11 authority::record_entry->table( 'authority_record_entry' );
  12 authority::record_entry->columns( All => qw/id arn_source arn_value creator editor
  13                                       create_date edit_date source active
  14                                       deleted marc last_xact_id/ );
  15
  16 #-------------------------------------------------------------------------------
  17 package authority::record_note;
  18 use base qw/authority/;
  19
  20 authority::record_note->table( 'authority_record_note' );
  21 authority::record_note->columns( All => qw/id record value creator
  22                                         editor create_date edit_date/ );
  23 #-------------------------------------------------------------------------------
  24 package authority::full_rec;
  25 use base qw/authority/;
  26
  27 authority::full_rec->table( 'authority_full_rec' );
  28 authority::full_rec->columns( Primary => qw/id/ );
  29 authority::full_rec->columns( Essential => qw/record tag ind1 ind2 subfield value/ );
  30
  31 #-------------------------------------------------------------------------------
  32 package authority::record_descriptor;
  33 use base qw/authority/;
  34 #use OpenILS::Application::Storage::CDBI::asset;
  35
  36 authority::record_descriptor->table( 'authority_rec_descriptor' );
  37 authority::record_descriptor->columns( Primary => qw/id/ );
  38 authority::record_descriptor->columns( Essential => qw/record record_status
  39                                                     char_encoding/ );
  40
  41 #-------------------------------------------------------------------------------
  42
  43
  44 1;
  45