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 }