From 467befee67caa83a69e2e51dc2222315d8d133ac Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 12 Sep 2006 09:27:39 +0000
Subject: [PATCH] improving check_marc_definition.pl to be able to
 automatically set used subfields & unset unused subfields (run without
 parameters to see new parameters)

---
 misc/migration_tools/check_marc_definition.pl | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/misc/migration_tools/check_marc_definition.pl b/misc/migration_tools/check_marc_definition.pl
index 08098660a9..af7d7efb99 100755
--- a/misc/migration_tools/check_marc_definition.pl
+++ b/misc/migration_tools/check_marc_definition.pl
@@ -14,11 +14,13 @@ use Time::HiRes qw(gettimeofday);
 
 use Getopt::Long;
 my ( $input_marc_file, $number) = ('',0);
-my ($version,$confirm,$all);
+my ($version,$confirm,$all,$autoclean,$autoactivate);
 GetOptions(
     'h' => \$version,
     'c' => \$confirm,
 	'a' => \$all,
+	'l' => \$autoclean,
+	'm' => \$autoactivate,
 );
 
 if ($version || ($confirm eq '')) {
@@ -27,6 +29,8 @@ Script that compare the datas in the DB and the setting of MARC structure
 It show all fields/subfields that are in the MARC DB but NOT in any tab (= fields used but not visible) Usually, this means you made an error in your MARC editor. Sometimes, this is something normal.
 
 options
+\t-l : autoclean => all unused subfields will be unactivated automatically in frameworks. Use carefully !!!!
+\t-m : autoactivate => all subfields used but unactivated will automatically be activated in tab 1. Use carrefully !!!
 \t-a : will show all subfields usages, not only subfields in tab ignore that are used.
 Enter $0 -c to run this script (the -c being here only to "confirm"
 EOF
@@ -43,6 +47,7 @@ my $sth2 = $dbh->prepare("select tab,liblibrarian,kohafield from marc_subfield_s
 if ($all) {
 	print "framework|tag|subfield|value|used|tab\n";
 }
+my $sth3 = $dbh->prepare("update marc_subfield_structure set tab=1 where frameworkcode=? and tagfield=? and tagsubfield=?");
 while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
 	$sth2->execute($tag,$subfield,$frameworkcode);
 	$tags{$frameworkcode." / ".$tag." / ".$subfield} ++;
@@ -52,6 +57,8 @@ while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
 	} else {
 		if ($tab eq -1 && $kohafield ne "biblio.biblionumber" && $kohafield ne "biblioitems.biblioitemnumber" && $kohafield ne "items.itemnumber") {
 			print "Tab ignore for framework $frameworkcode, $tag\$$subfield - $liblibrarian (used $total times)\n";
+			$sth3->execute($frameworkcode,$tag,$subfield) if $autoactivate && tab eq -1;
+			
 		}
 	}
 }
@@ -59,7 +66,12 @@ while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
 $sth = $dbh->prepare("select frameworkcode,tagfield,tagsubfield from marc_subfield_structure where tab<>-1 order by frameworkcode,tagfield,tagsubfield");
 $sth->execute;
 print "===================\n";
+# for autoclean...
+my $sth2 = $dbh->prepare("update marc_subfield_structure set tab=-1 where frameworkcode=? and tagfield=? and tagsubfield=?");
 while (my ($frameworkcode,$tag,$subfield) = $sth->fetchrow) {
-	print "$tag, $subfield in framework $frameworkcode is active, but never filled\n" unless $tags{$frameworkcode." / ".$tag." / ".$subfield};
+	print "$tag, $subfield in framework $frameworkcode is active, but never filled" unless $tags{$frameworkcode." / ".$tag." / ".$subfield};
+	print "... auto cleaned" if $autoclean;
+	print "\n" unless $tags{$frameworkcode." / ".$tag." / ".$subfield};
+	$sth2->execute($frameworkcode,$tag,$subfield) if $autoclean;
 }
 print "Done\n";
-- 
2.39.5