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

last commits before 1.9.1

Browse source
This commit is contained in:
tipaul 2003-04-04 08:40:44 +00:00
parent 1e335be7fa
commit e60f831e1f
4 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Biblio.pm
View file

@ -1,6 +1,9 @@
package C4::Biblio;
# $Id$
# $Log$
# Revision 1.42 2003/04/04 08:41:11 tipaul
# last commits before 1.9.1
#
# Revision 1.41 2003/04/01 12:26:43 tipaul
# fixes
#
@ -723,7 +726,6 @@ sub MARCmodbiblio {
# modify the subfield if it's a different string
if ($oldfield->subfield(@$subfield[0]) ne @$subfield[1] ) {
my $subfieldid=&MARCfindsubfieldid($dbh,$bibid,$field->tag(),$tagorder,@$subfield[0],$subfieldorder);
warn "subfieldid => $subfieldid";
&MARCmodsubfield($dbh,$subfieldid,@$subfield[1]);
}
}

2
C4/Output.pm
View file

@ -120,11 +120,9 @@ sub themelanguage {
THEME:
foreach my $th (@themes) {
foreach my $la (@languages) {
warn "File = $htdocs/$th/$la/$tmpl\n";
if (-e "$htdocs/$th/$la/$tmpl") {
$theme = $th;
$lang = $la;
warn "FOUND";
last THEME;
}
}

7
C4/SearchMarc.pm
View file

@ -69,7 +69,6 @@ sub catalogsearch {
my $sql_where1; # will contain the "true" where
my $sql_where2; # will contain m1.bibid=m2.bibid
my $nb=1;
warn "value : ".@$value;
for(my $i=0; $i<=@$value;$i++) {
if (@$value[$i]) {
if ($nb==1) {
@ -128,9 +127,11 @@ sub catalogsearch {
chop $sql_tables;
my $sth;
if ($sql_where2) {
$sth = $dbh->prepare("select m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");
$sth = $dbh->prepare("select distinct m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");
warn("-->select m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");
} else {
$sth = $dbh->prepare("select m1.bibid from $sql_tables where $sql_where1");
$sth = $dbh->prepare("select distinct m1.bibid from $sql_tables where $sql_where1");
warn("==>select m1.bibid from $sql_tables where $sql_where1");
}
$sth->execute;
my @result;

2
acqui.simple/addbiblio.pl
View file

@ -215,7 +215,7 @@ sub build_tabs ($$$) {
my %subfield_data;
$subfield_data{tag}=$tag;
$subfield_data{subfield}=$subfield;
$subfield_data{marc_lib}="<DIV id=\"error$i\">".$tagslib->{$tag}->{$subfield}->{lib}."</div>";
$subfield_data{marc_lib}="<DIV id=\"error$i\">".$tagslib->{$tag}->{$subfield}->{lib}."</div>";
$subfield_data{tag_mandatory}=$tagslib->{$tag}->{mandatory};
$subfield_data{mandatory}=$tagslib->{$tag}->{$subfield}->{mandatory};
$subfield_data{repeatable}=$tagslib->{$tag}->{$subfield}->{repeatable};