[Koha-cvs] CVS: koha/C4 AuthoritiesMarc.pm,1.13,1.14

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30294/C4

Modified Files:
	AuthoritiesMarc.pm 
Log Message:
Scanning every the Subfields of auth_tag_to_report for FindDuplicate

Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** AuthoritiesMarc.pm	5 Apr 2005 15:23:41 -0000	1.13
--- AuthoritiesMarc.pm	5 Apr 2005 17:07:46 -0000	1.14
***************
*** 873,902 ****
  	
  	if ($record->fields($auth_tag_to_report)) {
! 		foreach my $subfieldcount (1..$#subfield){
! 			if ($record->field($auth_tag_to_report)->subfields($subfield[$subfieldcount])) {
! #				warn "tag :".$tag." subfield: $subfield value : ".$record->field($tag)->subfield($subfield);
! 				push @tags, $auth_tag_to_report.$subfield[$subfieldcount];
! #				warn "'".$tag.$subfield."' value :". $record->field($tag)->subfield($subfield);
! 				push @and_or, "and";
! 				push @excluding, "";
! 				push @operator, "contains";
! 				push @value, $record->field($auth_tag_to_report)->subfield($subfield[$subfieldcount]);
! 			}
! 		}
! 		
! # 		my $sth = $dbh->prepare("select tagfield,tagsubfield from auth_subfield_structure where tagfield=? and authtypecode=? and tab >= 0");
! # 		$sth->execute($auth_tag_to_report,$authtypecode);
! # 		warn " field $auth_tag_to_report exists";
! # 		while (my ($tag,$subfield) = $sth->fetchrow){
! # 			if ($record->field($tag)->subfields($subfield)) {
  # #				warn "tag :".$tag." subfield: $subfield value : ".$record->field($tag)->subfield($subfield);
! # 				push @tags, $tag.$subfield;
  # #				warn "'".$tag.$subfield."' value :". $record->field($tag)->subfield($subfield);
  # 				push @and_or, "and";
  # 				push @excluding, "";
  # 				push @operator, "contains";
! # 				push @value, $record->field($tag)->subfield($subfield);
  # 			}
  # 		}
  	}
   
--- 873,902 ----
  	
  	if ($record->fields($auth_tag_to_report)) {
! # 		foreach my $subfieldcount (1..$#subfield){
! # 			if ($record->field($auth_tag_to_report)->subfields($subfield[$subfieldcount])) {
  # #				warn "tag :".$tag." subfield: $subfield value : ".$record->field($tag)->subfield($subfield);
! # 				push @tags, $auth_tag_to_report.$subfield[$subfieldcount];
  # #				warn "'".$tag.$subfield."' value :". $record->field($tag)->subfield($subfield);
  # 				push @and_or, "and";
  # 				push @excluding, "";
  # 				push @operator, "contains";
! # 				push @value, $record->field($auth_tag_to_report)->subfield($subfield[$subfieldcount]);
  # 			}
  # 		}
+ 		
+  		my $sth = $dbh->prepare("select tagfield,tagsubfield from auth_subfield_structure where tagfield=? and authtypecode=? ");
+  		$sth->execute($auth_tag_to_report,$authtypecode);
+  #		warn " field $auth_tag_to_report exists";
+  		while (my ($tag,$subfield) = $sth->fetchrow){
+  			if ($record->field($tag)->subfield($subfield)) {
+  #				warn "tag :".$tag." subfield: $subfield value : ".$record->field($tag)->subfield($subfield);
+  				push @tags, $tag.$subfield;
+  #				warn "'".$tag.$subfield."' value :". $record->field($tag)->subfield($subfield);
+  				push @and_or, "and";
+  				push @excluding, "";
+  				push @operator, "contains";
+  				push @value, $record->field($tag)->subfield($subfield);
+  			}
+  		}
  	}
   
***************
*** 925,928 ****
--- 925,931 ----
  # $Id$
  # $Log$
+ # Revision 1.14  2005/04/05 17:07:46  hdl
+ # Scanning every the Subfields of auth_tag_to_report for FindDuplicate
+ #
  # Revision 1.13  2005/04/05 15:23:41  hdl
  # Searching for double entries when adding a new authority.