[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.