adding asset.copy_alert report
[migration-tools.git] / bibs_items / stage-HOLDINGS-MULT.pl
1 #!/usr/bin/perl -w
2 # sed -i 's/\\/\//g' *MULT*
3 # ls *MULT* | ~/git/migraton-tools/bibs_items/stage-HOLDINGS-MULT.pl >> scripts/asset_copy_stage.sql
4
5 use strict;
6
7 my $first_time = 1;
8 my $schema;
9
10 sub first_time {
11     $schema = shift;
12     $first_time = 0;
13     print qq^
14 DROP TABLE IF EXISTS m_$schema.asset_copy_multi_legacy;
15 CREATE TABLE m_$schema.asset_copy_multi_legacy (
16     eg_bib_id BIGINT,
17     eg_copy_id INTEGER,
18     hseq TEXT,
19     subfield TEXT,
20     value TEXT
21 );
22 CREATE INDEX ON m_$schema.asset_copy_multi_legacy (eg_bib_id);
23 CREATE INDEX ON m_$schema.asset_copy_multi_legacy (eg_copy_id);
24 CREATE INDEX ON m_$schema.asset_copy_multi_legacy (hseq);
25 CREATE INDEX ON m_$schema.asset_copy_multi_legacy (subfield);
26 CREATE INDEX ON m_$schema.asset_copy_multi_legacy (hseq,subfield);\n\n
27 ^;
28
29 }
30
31
32 while (my $line = <>) {
33     chomp $line;
34     if ($line =~ /^(.+?)-.+(.)\.pg$/) {
35         first_time($1) if $first_time;
36         print "\\COPY m_$1.asset_copy_multi_legacy (eg_bib_id,hseq,value) FROM '$line'\n";
37         print "UPDATE m_$1.asset_copy_multi_legacy SET subfield = '$2' WHERE subfield IS NULL;\n\n";
38     }
39 }
40
41 print "UPDATE m_$schema.asset_copy_multi_legacy SET eg_copy_id = b.id FROM m_$schema.asset_copy_legacy b WHERE x_eg_bib_id = eg_bib_id AND x_hseq = hseq;\n\n";
42