From 67d5ebdedfc60736341654984d9f9871b348818b Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 9 Sep 2005 09:09:25 +0000 Subject: [PATCH] * adding column branch to the result list when searching a borrower * fixing a bug that prevented to add a borrower when IndependantBranches was ON --- koha-tmpl/intranet-tmpl/default/en/members/member.tmpl | 8 ++++---- members/member.pl | 1 + members/memberentry.pl | 2 +- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/default/en/members/member.tmpl b/koha-tmpl/intranet-tmpl/default/en/members/member.tmpl index 3fefd1a1e9..c257360452 100644 --- a/koha-tmpl/intranet-tmpl/default/en/members/member.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/members/member.tmpl @@ -23,8 +23,8 @@   Card - Surname - Firstname + Name + Branch Category Address OD/Issues @@ -39,8 +39,8 @@ - "> - + ">, + diff --git a/members/member.pl b/members/member.pl index 45948e2355..e01b4bf7c4 100755 --- a/members/member.pl +++ b/members/member.pl @@ -97,6 +97,7 @@ for (my $i=0; $i < $count; $i++){ categorycode => $results->[$i]{'categorycode'}, streetaddress => $results->[$i]{'streetaddress'}, city => $results->[$i]{'city'}, + branchcode => $results->[$i]{'branchcode'}, odissue => "$od/$issue", fines => $fines, borrowernotes => $results->[$i]{'borrowernotes'}); diff --git a/members/memberentry.pl b/members/memberentry.pl index d6b9f01ca1..4bdf208442 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -159,7 +159,7 @@ if ($delete){ } if (C4::Context->preference("IndependantBranches")) { my $userenv = C4::Context->userenv; - if ($userenv->{flags} != 1){ + if ($userenv->{flags} != 1 && $data->{branchcode}){ unless ($userenv->{branch} eq $data->{'branchcode'}){ print $input->redirect("/cgi-bin/koha/members/members-home.pl"); } -- 2.39.5