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

   1 package OpenILS::Application::Storage::CDBI::biblio;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package biblio;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8 package biblio::record_entry;
   9 use base qw/biblio/;
  10
  11 biblio::record_entry->table( 'biblio_record_entry' );
  12 biblio::record_entry->columns( Essential => qw/id tcn_source tcn_value creator editor
  13                                       create_date edit_date source active quality owner share_depth
  14                                       deleted marc last_xact_id fingerprint/ );
  15
  16 #-------------------------------------------------------------------------------
  17 package biblio::record_note;
  18 use base qw/biblio/;
  19
  20 biblio::record_note->table( 'biblio_record_note' );
  21 biblio::record_note->columns( Essential => qw/id record value creator
  22                                         editor create_date edit_date pub/ );
  23 #-------------------------------------------------------------------------------
  24
  25 #-------------------------------------------------------------------------------
  26 package biblio::peer_type;
  27 use base qw/biblio/;
  28
  29 biblio::peer_type->table( 'biblio_peer_type' );
  30 biblio::peer_type->columns( Essential => qw/id name/ );
  31 #-------------------------------------------------------------------------------
  32
  33 #-------------------------------------------------------------------------------
  34 package biblio::peer_bib_copy_map;
  35 use base qw/biblio/;
  36
  37 biblio::peer_bib_copy_map->table( 'biblio_peer_bib_copy_map' );
  38 biblio::peer_bib_copy_map->columns( Essential => qw/id peer_type peer_record target_copy/ );
  39 #-------------------------------------------------------------------------------
  40
  41 #-------------------------------------------------------------------------------
  42 package biblio::monograph_part;
  43 use base qw/biblio/;
  44
  45 biblio::monograph_part->table( 'biblio_monograph_part' );
  46 biblio::monograph_part->columns( Essential => qw/id record label label_sortkey/ );
  47 #-------------------------------------------------------------------------------
  48
  49 1;
  50