Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 18274: C4::Items - Remove GetItemStatus

Browse source 
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 65b7ad030c
    Bug 13423: Remove unused serials-recieve

Test plan:
  git grep GetItemStatus
should not return any used calls (only 1 occurrence in release notes)

Signed-off-by: Marc Véron <veron@veron.ch>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2017-03-15 13:10:16 -03:00 committed by Kyle M Hall
parent b038bb1310
commit 5e185f8036
1 changed files with 0 additions and 92 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
C4/Items.pm
View file

@ -67,7 +67,6 @@ BEGIN {
CheckItemPreSave
GetItemStatus
GetItemLocation
GetLostItems
GetItemsForInventory
@ -776,97 +775,6 @@ has copy-and-paste work.
=cut
=head2 GetItemStatus
$itemstatushash = GetItemStatus($fwkcode);
Returns a list of valid values for the
C<items.notforloan> field.
NOTE: does B<not> return an individual item's
status.
Can be MARC dependent.
fwkcode is optional.
But basically could be can be loan or not
Create a status selector with the following code
=head3 in PERL SCRIPT
my $itemstatushash = getitemstatus;
my @itemstatusloop;
foreach my $thisstatus (keys %$itemstatushash) {
my %row =(value => $thisstatus,
statusname => $itemstatushash->{$thisstatus}->{'statusname'},
);
push @itemstatusloop, \%row;
}
$template->param(statusloop=>\@itemstatusloop);
=head3 in TEMPLATE
<select name="statusloop" id="statusloop">
<option value="">Default</option>
[% FOREACH statusloo IN statusloop %]
[% IF ( statusloo.selected ) %]
<option value="[% statusloo.value %]" selected="selected">[% statusloo.statusname %]</option>
[% ELSE %]
<option value="[% statusloo.value %]">[% statusloo.statusname %]</option>
[% END %]
[% END %]
</select>
=cut
sub GetItemStatus {
# returns a reference to a hash of references to status...
my ($fwk) = @_;
my %itemstatus;
my $dbh = C4::Context->dbh;
my $sth;
$fwk = '' unless ($fwk);
my ( $tag, $subfield ) =
GetMarcFromKohaField( "items.notforloan", $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 ) {
$itemstatus{$authorisedvalue} = $lib;
}
return \%itemstatus;
}
else {
#No authvalue list
# build default
}
}
#No authvalue list
#build default
$itemstatus{"1"} = "Not For Loan";
return \%itemstatus;
}
=head2 GetItemLocation
$itemlochash = GetItemLocation($fwk);