From e0acd9bdf8500aa3cc2e5aeccbd1631f0b841040 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 15 Mar 2017 17:14:56 -0300 Subject: [PATCH] Bug 18278: C4::Items - Remove GetItemLocation MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit This subroutine is no longer in used. It was previously call from serials/serials-recieve.pl, which was not used and has been removed by commit 65b7ad030cd5cd0e3148fbbd1496d31b5cf149f7 Bug 13423: Remove unused serials-recieve Test plan: git grep GetItemLocation Signed-off-by: Marc Véron Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- C4/Items.pm | 86 ----------------------------------------------------- 1 file changed, 86 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index 637824927d..6c2757078d 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -68,7 +68,6 @@ BEGIN { CheckItemPreSave - GetItemLocation GetLostItems GetItemsForInventory GetItemInfosOf @@ -776,91 +775,6 @@ has copy-and-paste work. =cut -=head2 GetItemLocation - - $itemlochash = GetItemLocation($fwk); - -Returns a list of valid values for the -C field. - -NOTE: does B return an individual item's -location. - -where fwk stands for an optional framework code. -Create a location selector with the following code - -=head3 in PERL SCRIPT - - my $itemlochash = getitemlocation; - my @itemlocloop; - foreach my $thisloc (keys %$itemlochash) { - my $selected = 1 if $thisbranch eq $branch; - my %row =(locval => $thisloc, - selected => $selected, - locname => $itemlochash->{$thisloc}, - ); - push @itemlocloop, \%row; - } - $template->param(itemlocationloop => \@itemlocloop); - -=head3 in TEMPLATE - - - -=cut - -sub GetItemLocation { - - # returns a reference to a hash of references to location... - my ($fwk) = @_; - my %itemlocation; - my $dbh = C4::Context->dbh; - my $sth; - $fwk = '' unless ($fwk); - my ( $tag, $subfield ) = - GetMarcFromKohaField( "items.location", $fwk ); - if ( $tag and $subfield ) { - my $sth = - $dbh->prepare( - "SELECT authorised_value - FROM marc_subfield_structure - WHERE tagfield=? - AND tagsubfield=? - AND frameworkcode=?" - ); - $sth->execute( $tag, $subfield, $fwk ); - if ( my ($authorisedvaluecat) = $sth->fetchrow ) { - my $authvalsth = - $dbh->prepare( - "SELECT authorised_value,lib - FROM authorised_values - WHERE category=? - ORDER BY lib" - ); - $authvalsth->execute($authorisedvaluecat); - while ( my ( $authorisedvalue, $lib ) = $authvalsth->fetchrow ) { - $itemlocation{$authorisedvalue} = $lib; - } - return \%itemlocation; - } - else { - - #No authvalue list - # build default - } - } - - #No authvalue list - #build default - $itemlocation{"1"} = "Not For Loan"; - return \%itemlocation; -} - =head2 GetLostItems $items = GetLostItems( $where ); -- 2.39.5