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( Others => qw/fingerprint master_record mods/ );
  14
  15 #-------------------------------------------------------------------------------
  16 package metabib::title_field_entry;
  17 use base qw/metabib/;
  18
  19 metabib::title_field_entry->table( 'metabib_title_field_entry' );
  20 metabib::title_field_entry->columns( Primary => qw/id/ );
  21 metabib::title_field_entry->columns( Others => qw/field value/ );
  22
  23
  24 #-------------------------------------------------------------------------------
  25 package metabib::author_field_entry;
  26 use base qw/metabib/;
  27
  28 metabib::author_field_entry->table( 'metabib_author_field_entry' );
  29 metabib::author_field_entry->columns( Primary => qw/id/ );
  30 metabib::author_field_entry->columns( Others => qw/field value/ );
  31
  32
  33 #-------------------------------------------------------------------------------
  34 package metabib::subject_field_entry;
  35 use base qw/metabib/;
  36
  37 metabib::subject_field_entry->table( 'metabib_subject_field_entry' );
  38 metabib::subject_field_entry->columns( Primary => qw/id/ );
  39 metabib::subject_field_entry->columns( Others => qw/field value/ );
  40
  41
  42 #-------------------------------------------------------------------------------
  43 package metabib::keyword_field_entry;
  44 use base qw/metabib/;
  45
  46 metabib::keyword_field_entry->table( 'metabib_keyword_field_entry' );
  47 metabib::keyword_field_entry->columns( Primary => qw/id/ );
  48 metabib::keyword_field_entry->columns( Others => qw/field value/ );
  49
  50 #-------------------------------------------------------------------------------
  51 package metabib::title_field_entry_source_map;
  52 use base qw/metabib/;
  53
  54 metabib::title_field_entry_source_map->table( 'metabib_title_field_entry_source_map' );
  55 metabib::title_field_entry_source_map->columns( Primary => qw/field_entry source_record/ );
  56
  57 #-------------------------------------------------------------------------------
  58 package metabib::author_field_entry_source_map;
  59 use base qw/metabib/;
  60
  61 metabib::author_field_entry_source_map->table( 'metabib_author_field_entry_source_map' );
  62 metabib::author_field_entry_source_map->columns( Primary => qw/field_entry source_record/ );
  63
  64 #-------------------------------------------------------------------------------
  65 package metabib::subject_field_entry_source_map;
  66 use base qw/metabib/;
  67
  68 metabib::subject_field_entry_source_map->table( 'metabib_subject_field_entry_source_map' );
  69 metabib::subject_field_entry_source_map->columns( Primary => qw/field_entry source_record/ );
  70
  71 #-------------------------------------------------------------------------------
  72 package metabib::keyword_field_entry_source_map;
  73 use base qw/metabib/;
  74
  75 metabib::keyword_field_entry_source_map->table( 'metabib_keyword_field_entry_source_map' );
  76 metabib::keyword_field_entry_source_map->columns( Primary => qw/field_entry source_record/ );
  77
  78 #-------------------------------------------------------------------------------
  79 package metabib::metarecord_source_map;
  80 use base qw/metabib/;
  81
  82 metabib::metarecord_source_map->table( 'metabib_metarecord_source_map' );
  83 metabib::metarecord_source_map->columns( Primary => qw/metarecord source_record/ );
  84
  85 #-------------------------------------------------------------------------------
  86 package metabib::full_rec;
  87 use base qw/metabib/;
  88
  89 metabib::full_rec->table( 'metabib_full_rec' );
  90 metabib::full_rec->columns( Primary => qw/id/ );
  91 metabib::full_rec->columns( Others => qw/record tag ind1 ind2 subfield value/ );
  92
  93 #-------------------------------------------------------------------------------
  94
  95 1;
  96