Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/metabib.pm

   1 package OpenILS::Application::Storage::CDBI::metabib;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package metabib;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8 package metabib::metarecord;
   9 use base qw/metabib/;
  10
  11 metabib::metarecord->table( 'metabib_metarecord' );
  12 metabib::metarecord->columns( Primary => qw/id/ );
  13 metabib::metarecord->columns( Essential => qw/fingerprint master_record mods/ );
  14
  15 #-------------------------------------------------------------------------------
  16 package metabib::identifier_field_entry;
  17 use base qw/metabib/;
  18
  19 metabib::identifier_field_entry->table( 'metabib_identifier_field_entry' );
  20 metabib::identifier_field_entry->columns( Primary => qw/id/ );
  21 metabib::identifier_field_entry->columns( Essential => qw/field value source/ );
  22
  23
  24 #-------------------------------------------------------------------------------
  25 package metabib::title_field_entry;
  26 use base qw/metabib/;
  27
  28 metabib::title_field_entry->table( 'metabib_title_field_entry' );
  29 metabib::title_field_entry->columns( Primary => qw/id/ );
  30 metabib::title_field_entry->columns( Essential => qw/field value source/ );
  31
  32
  33 #-------------------------------------------------------------------------------
  34 package metabib::author_field_entry;
  35 use base qw/metabib/;
  36
  37 metabib::author_field_entry->table( 'metabib_author_field_entry' );
  38 metabib::author_field_entry->columns( Primary => qw/id/ );
  39 metabib::author_field_entry->columns( Essential => qw/field value source/ );
  40
  41
  42 #-------------------------------------------------------------------------------
  43 package metabib::subject_field_entry;
  44 use base qw/metabib/;
  45
  46 metabib::subject_field_entry->table( 'metabib_subject_field_entry' );
  47 metabib::subject_field_entry->columns( Primary => qw/id/ );
  48 metabib::subject_field_entry->columns( Essential => qw/field value source/ );
  49
  50
  51 #-------------------------------------------------------------------------------
  52 package metabib::keyword_field_entry;
  53 use base qw/metabib/;
  54
  55 metabib::keyword_field_entry->table( 'metabib_keyword_field_entry' );
  56 metabib::keyword_field_entry->columns( Primary => qw/id/ );
  57 metabib::keyword_field_entry->columns( Essential => qw/field value source/ );
  58
  59 #-------------------------------------------------------------------------------
  60 package metabib::series_field_entry;
  61 use base qw/metabib/;
  62
  63 metabib::series_field_entry->table( 'metabib_series_field_entry' );
  64 metabib::series_field_entry->columns( Primary => qw/id/ );
  65 metabib::series_field_entry->columns( Essential => qw/field value source/ );
  66
  67 #-------------------------------------------------------------------------------
  68 package metabib::metarecord_source_map;
  69 use base qw/metabib/;
  70
  71 metabib::metarecord_source_map->table( 'metabib_metarecord_source_map' );
  72 metabib::metarecord_source_map->columns( Primary => qw/id/ );
  73 metabib::metarecord_source_map->columns( Essential => qw/metarecord source/ );
  74
  75 #-------------------------------------------------------------------------------
  76 package metabib::full_rec;
  77 use base qw/metabib/;
  78
  79 metabib::full_rec->table( 'metabib_full_rec' );
  80 metabib::full_rec->columns( Primary => qw/id/ );
  81 metabib::full_rec->columns( Essential => qw/record tag ind1 ind2 subfield value/ );
  82
  83 #-------------------------------------------------------------------------------
  84 package metabib::record_descriptor;
  85 use base qw/metabib/;
  86 #use OpenILS::Application::Storage::CDBI::asset;
  87
  88 metabib::record_descriptor->table( 'metabib_rec_descriptor' );
  89 metabib::record_descriptor->columns( Primary => qw/id/ );
  90 metabib::record_descriptor->columns( Essential => qw/record item_type item_form bib_level
  91                                          control_type char_encoding enc_level lit_form vr_format
  92                                          cat_form pub_status item_lang audience type_mat date1 date2/ );
  93
  94 #-------------------------------------------------------------------------------
  95
  96 1;
  97