From a78b5d16f5bc3476f37ec59e77b991d8ce65ca1b Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 23 Sep 2004 16:12:35 +0000
Subject: [PATCH] Bugfix in modification

---
 C4/AuthoritiesMarc.pm      | 13 ++++++++++---
 authorities/authorities.pl |  2 +-
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index d08786dd95..b3b6b231d1 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -271,7 +271,11 @@ sub AUTHcount_usage {
 		$tags_using_authtype.= "'".$tagfield."9',";
 	}
 	chop $tags_using_authtype;
-	$sth = $dbh->prepare("select count(*) from marc_subfield_table where concat(tag,subfieldcode) in ($tags_using_authtype) and subfieldvalue=?");
+	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);
 	my ($result) = $sth->fetchrow;
@@ -505,7 +509,7 @@ sub AUTHmodauthority {
 # 1st delete the authority,
 # 2nd recreate it
 	&AUTHdelauthority($dbh,$authid,1);
-	&AUTHaddauthority($dbh,$record,$authid);
+	&AUTHaddauthority($dbh,$record,$authid,AUTHfind_authtypecode($dbh,$authid));
 	# FIXME : modify the authority in biblio too.
 }
 
@@ -517,7 +521,7 @@ sub AUTHdelauthority {
 # the best solution for a modif is to delete / recreate the record.
 
 	my $record = AUTHgetauthority($dbh,$authid);
-	$dbh->do("delete from auth_header where authid=$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");
 # FIXME : delete or not in biblio tables (depending on $keep_biblio flag)
@@ -832,6 +836,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $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
 #
diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index 84dd055ac3..b8a5734b3f 100755
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -160,7 +160,7 @@ sub create_input () {
 
 sub build_tabs ($$$$) {
     my($template, $record, $dbh,$encoding) = @_;
-# warn "=>".$record->as_formatted;
+# "=>".$record->as_formatted;
     # fill arrays
     my @loop_data =();
     my $tag;
-- 
2.39.5