[Koha-cvs] CVS: koha/misc/migration_tools check_marc_definition.pl,1.1.2.2,1.1.2.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc/migration_tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19752/misc/migration_tools

Modified Files:
      Tag: rel_2_2
	check_marc_definition.pl 
Log Message:
improving script with a new parameter to show all the subfields usage.

Index: check_marc_definition.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/migration_tools/check_marc_definition.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** check_marc_definition.pl	7 Apr 2005 12:00:57 -0000	1.1.2.2
--- check_marc_definition.pl	16 Jun 2005 15:45:59 -0000	1.1.2.3
***************
*** 15,22 ****
  use Getopt::Long;
  my ( $input_marc_file, $number) = ('',0);
! my ($version,$confirm);
  GetOptions(
      'h' => \$version,
      'c' => \$confirm,
  );
  
--- 15,23 ----
  use Getopt::Long;
  my ( $input_marc_file, $number) = ('',0);
! my ($version,$confirm,$all);
  GetOptions(
      'h' => \$version,
      'c' => \$confirm,
+ 	'a' => \$all,
  );
  
***************
*** 26,29 ****
--- 27,32 ----
  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-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
***************
*** 38,47 ****
  my %tags;
  my $sth2 = $dbh->prepare("select tab,liblibrarian,kohafield from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?");
  while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
  	$sth2->execute($tag,$subfield,$frameworkcode);
  	$tags{$frameworkcode." / ".$tag." / ".$subfield} ++;
  	my ($tab,$liblibrarian,$kohafield) = $sth2->fetchrow;
! 	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";
  	}
  }
--- 41,57 ----
  my %tags;
  my $sth2 = $dbh->prepare("select tab,liblibrarian,kohafield from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?");
+ if ($all) {
+ 	print "framework|tag|subfield|value|used|tab\n";
+ }
  while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
  	$sth2->execute($tag,$subfield,$frameworkcode);
  	$tags{$frameworkcode." / ".$tag." / ".$subfield} ++;
  	my ($tab,$liblibrarian,$kohafield) = $sth2->fetchrow;
! 	if ($all) {
! 		print $frameworkcode."|".$tag.'|$'.$subfield."|".$liblibrarian."|".$total."|".$tab."\n";
! 	} 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";
! 		}
  	}
  }