Attachment 7476 Details for Bug 7505 – Bug 7505 Superlibrarian can't export all biblios when IndependantBranches is enabled

[patch] Bug 7505 Superlibrarian can't export all biblios when IndependantBranches is enabled

Bug-7505-Superlibrarian-cant-export-all-biblios-wh.patch (text/plain), 1.78 KB, created by Jared Camins-Esakov on 2012-02-07 14:48:21 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jared Camins-Esakov

Created: 2012-02-07 14:48:21 UTC

Size: 1.78 KB

patch

obsolete

>From 573b3ea790aa2006c1b9490dcf1f6fd0af0c31ce Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Demians?= <f.demians@tamil.fr>
>Date: Mon, 6 Feb 2012 20:00:24 +0100
>Subject: [PATCH] Bug 7505 Superlibrarian can't export all biblios when IndependantBranches is enabled
>Content-Type: text/plain; charset="UTF-8"
>
>When a Koha user has superlibrarian permissions, and if
>IndependantBranches is enabled, in Tools > Export bibliographic and
>holdings, this user can't export all biblio records. He will just export
>the biblio from the branch he belongs to.
>
>This patch fix that.
>
>To test:
>
>  - Do a ALL records export as superlibrian on a multi-branches Koha instance
>  - Examine the resulting MARC file with the tool of your choice (MArcEdit,
>    yaz-marcdump, etc.)
>  - You will see that 952/995 contains exlusively items from your branch (as
>    Koha user)
>
>Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
>---
> tools/export.pl |    5 +++--
> 1 files changed, 3 insertions(+), 2 deletions(-)
>
>diff --git a/tools/export.pl b/tools/export.pl
>index 66763d6..d3d8646 100755
>--- a/tools/export.pl
>+++ b/tools/export.pl
>@@ -47,11 +47,12 @@ my ($template, $loggedinuser, $cookie)
> 
> 	my $limit_ind_branch=(C4::Context->preference('IndependantBranches') &&
>               C4::Context->userenv &&
>-              C4::Context->userenv->{flags} % 2 !=1  &&
>+              !(C4::Context->userenv->{flags} & 1) &&
>               C4::Context->userenv->{branch}?1:0);
> 	my $branches = GetBranches($limit_ind_branch);    
>     my $branch                = $query->param("branch") || '';
>-	if ( C4::Context->preference("IndependantBranches") ) {
>+	if ( C4::Context->preference("IndependantBranches") &&
>+         !(C4::Context->userenv->{flags} & 1) ) {
>     	$branch = C4::Context->userenv->{'branch'};
> 	}
> 
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 7505: 7469 | 7476