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 Koha::Script;
  16 use C4::Biblio;
  17
  18 sub process {
  19
  20     my $dbh = C4::Context->dbh;
  21
  22     my $sth = $dbh->prepare(qq{UPDATE marc_subfield_structure SET kohafield='biblioitems.collectiontitle' where kohafield='biblio.seriestitle' and not tagfield like "4__"});
  23     return $sth->execute();
  24
  25
  26 }
  27
  28 if (lc(C4::Context->preference('marcflavour')) eq "unimarc"){
  29 print "count subfields changed :".process()." kohafields biblio.seriestitle changed into biblioitems.collectiontitle";
  30 }
  31 else {
  32         print "this script is UNIMARC only and should be used only on unimarc databases\n";
  33 }