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( 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/ );
19 #-------------------------------------------------------------------------------
20 #package biblio::record_node::subnode;
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
31 #package biblio::record_node;
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/ );
39 #biblio::record_node->has_a(
40 # parent_node => 'biblio::record_node::subnode',
42 # return biblio::record_node::subnode::_load(@_)
47 #-------------------------------------------------------------------------------
48 #package biblio::record_marc;
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/ );
56 #-------------------------------------------------------------------------------
57 #package biblio::record_mods;
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/ );
65 #-------------------------------------------------------------------------------
66 package biblio::record_note;
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/ );
75 #-------------------------------------------------------------------------------