Bug 6061: clearing up system preference on update
[wip/koha-chris_n.git] / misc / maintenance / UNIMARC_fix_collectiontitle.pl
1 #!/usr/bin/perl
2 #
3 # This script should be used only with UNIMARC flavour
4 # It is designed to report some missing information from biblio
5 # table into  marc data
6 #
7 use strict;
8 use warnings;
9
10 BEGIN {
11     use FindBin;
12     eval { require "$FindBin::Bin/../kohalib.pl" };
13 }
14
15 use C4::Biblio;
16
17 sub process {
18
19     my $dbh = C4::Context->dbh;
20
21     my $sth = $dbh->prepare(qq{UPDATE marc_subfield_structure SET kohafield='biblioitems.collectiontitle' where kohafield='biblio.seriestitle' and not tagfield like "4__"});
22     return $sth->execute();
23
24
25 }
26
27 if (lc(C4::Context->preference('marcflavour')) eq "unimarc"){
28 print "count subfields changed :".process()." kohafields biblio.seriestitle changed into biblioitems.collectiontitle";
29
30 else {
31         print "this script is UNIMARC only and should be used only on unimarc databases\n";
32 }