Open-ILS/src/perlmods/lib/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( Primary => qw/id/ );
  13 authority::record_entry->columns( Essential => qw/creator editor
  14                                       create_date edit_date source active
  15                                       deleted marc last_xact_id/ );
  16
  17 #-------------------------------------------------------------------------------
  18 package authority::record_note;
  19 use base qw/authority/;
  20
  21 authority::record_note->table( 'authority_record_note' );
  22 authority::record_note->columns( Primary => qw/id/ );
  23 authority::record_note->columns( Essential => qw/record value creator
  24                                         editor create_date edit_date/ );
  25 #-------------------------------------------------------------------------------
  26 package authority::full_rec;
  27 use base qw/authority/;
  28
  29 authority::full_rec->table( 'authority_full_rec' );
  30 authority::full_rec->columns( Primary => qw/id/ );
  31 authority::full_rec->columns( Essential => qw/record tag ind1 ind2 subfield value/ );
  32
  33 #-------------------------------------------------------------------------------
  34 package authority::record_descriptor;
  35 use base qw/authority/;
  36 #use OpenILS::Application::Storage::CDBI::asset;
  37
  38 authority::record_descriptor->table( 'authority_rec_descriptor' );
  39 authority::record_descriptor->columns( Primary => qw/id/ );
  40 authority::record_descriptor->columns( Essential => qw/record record_status
  41                                                     char_encoding/ );
  42
  43 #-------------------------------------------------------------------------------
  44
  45
  46 1;
  47