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