[Koha-cvs] CVS: koha/C4 AuthoritiesMarc.pm,1.6,1.7

[Paul POULAIN]

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

Modified Files:
        AuthoritiesMarc.pm 
Log Message:
Bugfix in modification

Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** AuthoritiesMarc.pm  18 Aug 2004 16:00:24 -0000      1.6
--- AuthoritiesMarc.pm  23 Sep 2004 16:13:00 -0000      1.7
***************
*** 272,276 ****
        }
        chop $tags_using_authtype;
!       $sth = $dbh->prepare("select count(*) from marc_subfield_table where 
concat(tag,subfieldcode) in ($tags_using_authtype) and subfieldvalue=?");
  #     warn "Q : select count(*) from marc_subfield_table where 
concat(tag,subfieldcode) in ($tags_using_authtype) and subfieldvalue=$authid";
        $sth->execute($authid);
--- 272,280 ----
        }
        chop $tags_using_authtype;
!       if ($tags_using_authtype) {
!               $sth = $dbh->prepare("select count(*) from marc_subfield_table 
where concat(tag,subfieldcode) in ($tags_using_authtype) and subfieldvalue=?");
!       } else {
!               $sth = $dbh->prepare("select count(*) from marc_subfield_table 
where subfieldvalue=?");
!       }
  #     warn "Q : select count(*) from marc_subfield_table where 
concat(tag,subfieldcode) in ($tags_using_authtype) and subfieldvalue=$authid";
        $sth->execute($authid);
***************
*** 506,510 ****
  # 2nd recreate it
        &AUTHdelauthority($dbh,$authid,1);
!       &AUTHaddauthority($dbh,$record,$authid);
        # FIXME : modify the authority in biblio too.
  }
--- 510,514 ----
  # 2nd recreate it
        &AUTHdelauthority($dbh,$authid,1);
!       
&AUTHaddauthority($dbh,$record,$authid,AUTHfind_authtypecode($dbh,$authid));
        # FIXME : modify the authority in biblio too.
  }
***************
*** 518,522 ****
  
        my $record = AUTHgetauthority($dbh,$authid);
!       $dbh->do("delete from auth_header where authid=$authid");
        $dbh->do("delete from auth_subfield_table where authid=$authid");
        $dbh->do("delete from auth_word where authid=$authid");
--- 522,526 ----
  
        my $record = AUTHgetauthority($dbh,$authid);
!       $dbh->do("delete from auth_header where authid=$authid") unless 
$keep_biblio;
        $dbh->do("delete from auth_subfield_table where authid=$authid");
        $dbh->do("delete from auth_word where authid=$authid");
***************
*** 833,836 ****
--- 837,843 ----
  # $Id$
  # $Log$
+ # Revision 1.7  2004/09/23 16:13:00  tipaul
+ # Bugfix in modification
+ #
  # Revision 1.6  2004/08/18 16:00:24  tipaul
  # fixes for authorities management