From 32bee6a6f5875b238c0b58f6468329fe330fb48a Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 28 Mar 2019 11:07:02 -0400 Subject: [PATCH] Bug 20256: Use new methods Signed-off-by: Bob Bennhoff - CLiC --- Koha/Item.pm | 4 +--- catalogue/detail.pl | 8 +------- catalogue/moredetail.pl | 3 +++ cataloguing/additem.pl | 13 +++++++++---- .../prog/en/modules/catalogue/detail.tt | 4 +++- tools/batchMod.pl | 19 ++++++++----------- 6 files changed, 25 insertions(+), 26 deletions(-) diff --git a/Koha/Item.pm b/Koha/Item.pm index 70819cc96b..6469671eb0 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -227,9 +227,7 @@ sub safe_to_delete { return "not_same_branch" if defined C4::Context->userenv - and !C4::Context->IsSuperLibrarian() - and C4::Context->preference("IndependentBranches") - and ( C4::Context->userenv->{branch} ne $self->homebranch ); + and !Koha::Patrons->find( C4::Context->userenv->{number} )->can_edit_item( $self ) ) # check it doesn't have a waiting reserve return "book_reserved" diff --git a/catalogue/detail.pl b/catalogue/detail.pl index 85782ecc71..79402ff7b0 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -373,13 +373,7 @@ foreach my $item (@items) { $item->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $item->{'itemnumber'} ); } - if ( C4::Context->preference('IndependentBranches') ) { - my $userenv = C4::Context->userenv(); - if ( not C4::Context->IsSuperLibrarian() - and $userenv->{branch} ne $item->{homebranch} ) { - $item->{cannot_be_edited} = 1; - } - } + $item->{cannot_be_edited} = !$patron->can_edit_item( $item_object ); if ($currentbranch and C4::Context->preference('SeparateHoldings')) { if ($itembranchcode and $itembranchcode eq $currentbranch) { diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index a736c30c8c..233f90428a 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -227,6 +227,9 @@ foreach my $item (@items){ $item->{'nomod'}=1; } } + + $item->{nomod} = !$patron->can_edit_item( $item ); + if ($item->{'datedue'}) { $item->{'issue'}= 1; } else { diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index ec27c1a426..eac929b77b 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -414,7 +414,8 @@ my ($template, $loggedinuser, $cookie) # Does the user have a restricted item editing permission? -my $uid = Koha::Patrons->find( $loggedinuser )->userid; +my $patron = Koha::Patrons->find( $loggedinuser ); +my $uid = $patron->userid; my $restrictededition = $uid ? haspermission($uid, {'editcatalogue' => 'edit_items_restricted'}) : undef; # In case user is a superlibrarian, editing is not restricted $restrictededition = 0 if ($restrictededition != 0 && C4::Context->IsSuperLibrarian()); @@ -818,13 +819,17 @@ foreach my $field (@fields) { || $subfieldvalue; } - if (($field->tag eq $branchtagfield) && ($subfieldcode eq $branchtagsubfield) && C4::Context->preference("IndependentBranches")) { + if ( $subfieldvalue + && ( $field->tag eq $branchtagfield ) + && ( $subfieldcode eq $branchtagsubfield ) ) + { #verifying rights - my $userenv = C4::Context->userenv(); - unless (C4::Context->IsSuperLibrarian() or (($userenv->{'branch'} eq $subfieldvalue))){ + unless ( $patron->can_edit_item($subfieldvalue) ) { + warn "NOMOD"; $this_row{'nomod'} = 1; } } + $this_row{itemnumber} = $subfieldvalue if ($field->tag() eq $itemtagfield && $subfieldcode eq $itemtagsubfield); if ( C4::Context->preference('EasyAnalyticalRecords') ) { diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt index 6ef518489b..0faacbd204 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt @@ -258,7 +258,9 @@ [% IF (StaffDetailItemSelection) %] - + [% UNLESS item.cannot_be_edited %] + + [% END %] [% END %] [% IF ( item_level_itypes ) %] diff --git a/tools/batchMod.pl b/tools/batchMod.pl index 8b13257e5d..08dc6f5138 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -75,7 +75,8 @@ my ($template, $loggedinuser, $cookie) }); # Does the user have a restricted item edition permission? -my $uid = $loggedinuser ? Koha::Patrons->find( $loggedinuser )->userid : undef; +my $patron = Koha::Patrons->find( $loggedinuser ); +my $uid = $loggedinuser ? $patron->userid : undef; my $restrictededition = $uid ? haspermission($uid, {'tools' => 'items_batchmod_restricted'}) : undef; # In case user is a superlibrarian, edition is not restricted $restrictededition = 0 if ($restrictededition != 0 && C4::Context->IsSuperLibrarian()); @@ -591,21 +592,17 @@ sub BuildItemsData{ my ( $itemtagfield, $itemtagsubfield) = &GetMarcFromKohaField( "items.itemnumber" ); my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField( "items.homebranch" ); foreach my $itemnumber (@itemnumbers){ - my $itemdata = Koha::Items->find($itemnumber); - next unless $itemdata; # Should have been tested earlier, but just in case... - $itemdata = $itemdata->unblessed; + my $item = Koha::Items->find($itemnumber); + next unless $item; # Should have been tested earlier, but just in case... + my $itemdata = $item->unblessed; my $itemmarc=Item2Marc($itemdata); my %this_row; foreach my $field (grep {$_->tag() eq $itemtagfield} $itemmarc->fields()) { # loop through each subfield my $itembranchcode=$field->subfield($branchtagsubfield); - if ($itembranchcode && C4::Context->preference("IndependentBranches")) { - #verifying rights - my $userenv = C4::Context->userenv(); - unless (C4::Context->IsSuperLibrarian() or (($userenv->{'branch'} eq $itembranchcode))){ - $this_row{'nomod'}=1; - } - } + if ($itembranchcode) { + $this_row{'nomod'} = !$patron->can_edit_item($item); + } my $tag=$field->tag(); foreach my $subfield ($field->subfields) { my ($subfcode,$subfvalue)=@$subfield; -- 2.24.1 (Apple Git-126)