Lines 58-73
if ( ! $result || $show_help ) {
Link Here
|
58 |
|
58 |
|
59 |
my $dbh = C4::Context->dbh; |
59 |
my $dbh = C4::Context->dbh; |
60 |
|
60 |
|
61 |
my $count_sth = $dbh->prepare( 'SELECT COUNT(biblionumber) FROM biblio CROSS JOIN biblioitems USING (biblionumber) WHERE ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="a"]\') OR ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="v"]\') OR ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="n"]\') OR ExtractValue(marcxml,\'//datafield[@tag="490"]/subfield[@code="a"]\') OR ExtractValue(marcxml,\'//datafield[@tag="490"]/subfield[@code="v"]\')' ); |
61 |
my $count_sth = $dbh->prepare( |
62 |
|
62 |
q| |
63 |
my $bibs_sth = $dbh->prepare( 'SELECT biblionumber FROM biblio CROSS JOIN biblioitems USING (biblionumber) WHERE ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="a"]\') OR ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="v"]\') OR ExtractValue(marcxml,\'//datafield[@tag="440"]/subfield[@code="n"]\') OR ExtractValue(marcxml,\'//datafield[@tag="490"]/subfield[@code="a"]\') OR ExtractValue(marcxml,\'//datafield[@tag="490"]/subfield[@code="v"]\')' ); |
63 |
SELECT COUNT(biblionumber) |
|
|
64 |
FROM biblio_metadata |
65 |
WHERE format='marcxml' |
66 |
AND marcflavour=? |
67 |
AND ( |
68 |
ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="a"]') |
69 |
OR ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="v"]') |
70 |
OR ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="n"]') |
71 |
OR ExtractValue(metadata,'//datafield[@tag="490"]/subfield[@code="a"]') |
72 |
OR ExtractValue(metadata,'//datafield[@tag="490"]/subfield[@code="v"]') |
73 |
) |
74 |
| |
75 |
); |
76 |
|
77 |
my $bibs_sth = $dbh->prepare( |
78 |
q| |
79 |
SELECT biblionumber |
80 |
FROM biblio_metadata |
81 |
WHERE format='marcxml' |
82 |
AND marcflavour=? |
83 |
AND ( |
84 |
ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="a"]') |
85 |
OR ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="v"]') |
86 |
OR ExtractValue(metadata,'//datafield[@tag="440"]/subfield[@code="n"]') |
87 |
OR ExtractValue(metadata,'//datafield[@tag="490"]/subfield[@code="a"]') |
88 |
OR ExtractValue(metadata,'//datafield[@tag="490"]/subfield[@code="v"]') |
89 |
) |
90 |
| |
91 |
); |
64 |
|
92 |
|
65 |
unless ( $commit ) { |
93 |
unless ( $commit ) { |
66 |
print_usage(); |
94 |
print_usage(); |
67 |
} |
95 |
} |
68 |
|
96 |
|
69 |
print "Examining MARC records...\n"; |
97 |
print "Examining MARC records...\n"; |
70 |
$count_sth->execute(); |
98 |
$count_sth->execute( C4::Context->preference('marcflavour') ); |
71 |
my ( $num_records ) = $count_sth->fetchrow; |
99 |
my ( $num_records ) = $count_sth->fetchrow; |
72 |
|
100 |
|
73 |
unless ( $commit ) { |
101 |
unless ( $commit ) { |
Lines 105-111
my %fields = (
Link Here
|
105 |
}, |
133 |
}, |
106 |
); |
134 |
); |
107 |
|
135 |
|
108 |
$bibs_sth->execute(); |
136 |
$bibs_sth->execute( C4::Context->preference('marcflavour') ); |
109 |
while ( my ( $biblionumber ) = $bibs_sth->fetchrow ) { |
137 |
while ( my ( $biblionumber ) = $bibs_sth->fetchrow ) { |
110 |
my $framework = GetFrameworkCode( $biblionumber ) || ''; |
138 |
my $framework = GetFrameworkCode( $biblionumber ) || ''; |
111 |
my ( @newfields ); |
139 |
my ( @newfields ); |
112 |
- |
|
|