3 # This script should be used only with UNIMARC flavour
4 # It is designed to report some missing information from biblio
14 my $dbh = C4::Context->dbh;
16 my $sth = $dbh->prepare(qq{UPDATE marc_subfield_structure SET kohafield='biblioitems.collectiontitle' where kohafield='biblio.seriestitle' and not tagfield like "4__"});
17 return $sth->execute();
22 if (lc(C4::Context->preference('marcflavour')) eq "unimarc"){
23 print "count subfields changed :".process()." kohafields biblio.seriestitle changed into biblioitems.collectiontitle";
26 print "this script is UNIMARC only and should be used only on unimarc databases\n";