1 package OpenILS::Application::Storage::CDBI::biblio;
4 #-------------------------------------------------------------------------------
6 use base qw/OpenILS::Application::Storage::CDBI/;
7 #-------------------------------------------------------------------------------
8 package biblio::record_entry;
10 #use OpenILS::Application::Storage::CDBI::asset;
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/ );
17 #-------------------------------------------------------------------------------
18 package biblio::record_node::subnode;
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];
25 package biblio::record_node;
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/ );
31 #-------------------------------------------------------------------------------
32 package biblio::record_note;
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/ );
39 #-------------------------------------------------------------------------------