Open-ILS/src/perlmods/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 #use OpenILS::Application::Storage::CDBI::asset;
  11
  12 biblio::record_entry->table( 'biblio_record_entry' );
  13 biblio::record_entry->columns( All => qw/id tcn_source tcn_value metarecord
  14                                          creator editor create_date edit_date
  15                                          source active deleted source/ );
  16
  17 #-------------------------------------------------------------------------------
  18 package biblio::record_node::subnode;
  19 sub _load {
  20         my $intra_doc_id = shift;
  21         my $owner_doc = shift()->owner_doc;
  22         return (biblio::record_node->search( owner_doc => $owner_doc, intra_doc_id => $intra_doc_id ))[0];
  23 }
  24
  25 package biblio::record_node;
  26 use base qw/biblio/;
  27
  28 biblio::record_node->table( 'biblio_record_data' );
  29 biblio::record_node->columns( All => qw/id owner_doc intra_doc_id parent_node node_type namespace_uri name value/ );
  30
  31 #-------------------------------------------------------------------------------
  32 package biblio::record_note;
  33 use base qw/biblio/;
  34
  35 biblio::record_note->table( 'biblio_record_note' );
  36 biblio::record_note->columns( All => qw/id record value creator editor create_date edit_date/ );
  37 biblio::record_note->columns( Stringify => qw/value/ );
  38
  39 #-------------------------------------------------------------------------------
  40
  41 1;
  42