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

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	check_marc_definition.pl 
Log Message:
updating to deal with frameworkcodes.

Index: check_marc_definition.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/migration_tools/check_marc_definition.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** check_marc_definition.pl	1 Mar 2005 13:07:57 -0000	1.1.2.1
--- check_marc_definition.pl	7 Apr 2005 12:00:57 -0000	1.1.2.2
***************
*** 36,42 ****
--- 36,44 ----
  my $sth = $dbh->prepare("SELECT count(*), tag, subfieldcode, frameworkcode FROM marc_subfield_table, marc_biblio WHERE marc_biblio.bibid = marc_subfield_table.bibid group by frameworkcode,tag,subfieldcode");
  $sth->execute;
+ 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") {
***************
*** 45,47 ****
--- 47,55 ----
  }
  
+ $sth = $dbh->prepare("select frameworkcode,tagfield,tagsubfield from marc_subfield_structure where tab<>-1 order by frameworkcode,tagfield,tagsubfield");
+ $sth->execute;
+ print "===================\n";
+ 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 "Done\n";