[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