Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bugfix in modification

Browse source
This commit is contained in:
tipaul 2004-09-23 16:12:35 +00:00
parent 121ba6b2ba
commit a78b5d16f5
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
C4/AuthoritiesMarc.pm
View file

@ -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
#

2
authorities/authorities.pl
View file

@ -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;