From 012699e8f4c8d5a2d92a24962e564eb0b7206d88 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 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 --- C4/Items.pm | 85 ------------------------------------------------------------- 1 file changed, 85 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index 55230c9..9222d86 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -779,91 +779,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.9.3