@ -23,6 +23,8 @@ This script displays lost items.
= cut
use strict ;
use warnings ;
use CGI ;
use C4::Auth ;
use C4::Output ;
@ -30,6 +32,7 @@ use C4::Biblio;
use C4::Items ;
use C4::Koha ; # GetItemTypes
use C4::Branch ; # GetBranches
use C4::Dates qw/format_date/ ;
my $ query = new CGI ;
my ( $ template , $ loggedinuser , $ cookie ) = get_template_and_user (
@ -62,6 +65,9 @@ if ( $get_items ) {
$ where { $ itype } = $ itemtypesfilter if defined $ itemtypesfilter ;
my $ items = GetLostItems ( \ % where , $ orderbyfilter ) ;
foreach my $ it ( @$ items ) {
$ it - > { 'datelastseen' } = format_date ( $ it - > { 'datelastseen' } ) ;
}
$ template - > param (
total = > scalar @$ items ,
itemsloop = > $ items ,
@ -71,23 +77,13 @@ if ( $get_items ) {
}
# getting all branches.
my $ branches = GetBranches ;
my $ branch = C4::Context - > userenv - > { "branchname" } ;
my @ branchloop ;
foreach my $ thisbranch ( keys %$ branches ) {
my $ selected = 1 if $ thisbranch eq $ branch ;
my % row = (
value = > $ thisbranch ,
selected = > $ selected ,
branchname = > $ branches - > { $ thisbranch } - > { 'branchname' } ,
) ;
push @ branchloop , \ % row ;
}
#my $branches = GetBranches;
#my $branch = C4::Context->userenv->{"branchname"};
# getting all itemtypes
my $ itemtypes = & GetItemTypes ( ) ;
my @ itemtypesloop ;
foreach my $ thisitemtype ( sort keys %$ itemtypes ) {
foreach my $ thisitemtype ( sort { $ itemtypes - > { $ a } - > { description } cmp $ itemtypes - > { $ b } - > { description } } keys %$ itemtypes ) {
my % row = (
value = > $ thisitemtype ,
description = > $ itemtypes - > { $ thisitemtype } - > { 'description' } ,
@ -98,7 +94,7 @@ foreach my $thisitemtype ( sort keys %$itemtypes ) {
# get lost statuses
my $ lost_status_loop = C4::Koha:: GetAuthorisedValues ( 'LOST' ) ;
$ template - > param ( branchloop = > \ @ branchloop ,
$ template - > param ( branchloop = > GetBranchesLoop ( C4::Context - > userenv - > { 'branch' } ) ,
itemtypeloop = > \ @ itemtypesloop ,
loststatusloop = > $ lost_status_loop ,
) ;