From 30c8919dbac8e48ad27d0fa3723b833289d36c25 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Tue, 28 Oct 2008 13:11:16 +0100 Subject: [PATCH] Bug Fixing : export would export no biblios when IndependantBranches set and user is kohaadmin I think we can escape defaulting to the userenv Branch with restricting the list to the user branch Signed-off-by: Henri-Damien LAURENT --- tools/export.pl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/tools/export.pl b/tools/export.pl index b0cf6beaea..573859ae55 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -51,9 +51,6 @@ my ($template, $loggedinuser, $cookie) C4::Context->userenv->{branch}?1:0); my $branches = GetBranches($limit_ind_branch); my $branch = $query->param("branch"); - if ( C4::Context->preference("IndependantBranches") ) { - $branch = C4::Context->userenv->{'branch'}; - } if ($op eq "export") { binmode(STDOUT,":utf8"); @@ -80,8 +77,8 @@ if ($op eq "export") { ($itemtype && C4::Context->preference('item-level_itypes')); my $query = $items_filter ? "SELECT DISTINCT biblioitems.biblionumber - FROM biblioitems,items - WHERE biblioitems.biblionumber=items.biblionumber " + FROM biblioitems JOIN items + USING (biblionumber) WHERE 1" : "SELECT biblioitems.biblionumber FROM biblioitems WHERE biblionumber >0 "; @@ -123,6 +120,7 @@ if ($op eq "export") { $query .= (C4::Context->preference('item-level_itypes')) ? " AND items.itype = ? " : " AND biblioitems.itemtype = ?"; push @sql_params, $itemtype; } + warn "$query, @sql_params"; my $sth = $dbh->prepare($query); $sth->execute(@sql_params); -- 2.39.5