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 creator
  14                                          editor create_date edit_date item_type
  15                                          source active deleted last_xact_id/ );
  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(
  23                         owner_doc       => $owner_doc,
  24                         intra_doc_id    => $intra_doc_id
  25                 )
  26         )[0];
  27 }
  28
  29 package biblio::record_node;
  30 use base qw/biblio/;
  31
  32 biblio::record_node->table( 'biblio_record_data' );
  33 biblio::record_node->columns( All => qw/id owner_doc intra_doc_id
  34                                         parent_node node_type
  35                                         namespace_uri name value last_xact_id/ );
  36
  37 #biblio::record_node->has_a(
  38 #       parent_node     => 'biblio::record_node::subnode',
  39 #       inflate         => sub {
  40 #                               return biblio::record_node::subnode::_load(@_)
  41 #                       },
  42 #);
  43
  44
  45 #-------------------------------------------------------------------------------
  46 package biblio::record_marc;
  47 use base qw/biblio/;
  48
  49 biblio::record_marc->table( 'biblio_record_marc' );
  50 biblio::record_marc->columns( All => qw/id marc last_xact_id/ );
  51 #biblio::record_marc->columns( Stringify => qw/marc/ );
  52 #biblio::record_marc->is_a( id => qw/biblio::record_entry/ );
  53
  54 #-------------------------------------------------------------------------------
  55 package biblio::record_mods;
  56 use base qw/biblio/;
  57
  58 biblio::record_mods->table( 'biblio_record_mods' );
  59 biblio::record_mods->columns( All => qw/id mods/ );
  60 #biblio::record_mods->columns( Stringify => qw/mods/ );
  61 #biblio::record_mods->is_a( id => qw/biblio::record_entry/ );
  62
  63 #-------------------------------------------------------------------------------
  64 package biblio::record_note;
  65 use base qw/biblio/;
  66
  67 biblio::record_note->table( 'biblio_record_note' );
  68 biblio::record_note->columns( All => qw/id record value creator
  69                                         editor create_date edit_date/ );
  70 #biblio::record_note->columns( Stringify => qw/value/ );
  71 #biblio::record_note->is_a( record => qw/biblio::record_entry/ );
  72
  73 #-------------------------------------------------------------------------------
  74
  75 1;
  76