use C4::Output;
use C4::Koha;
use C4::Auth;
-use C4::Branch; # GetBranches
use C4::Biblio; # GetBiblioItemData
use Koha::DateUtils;
+use Koha::Libraries;
my $input = new CGI;
my $itm = $input->param('itm');
my $bi = $input->param('bi');
my $biblionumber = $input->param('biblionumber');
-my $branches = GetBranches;
my $idata = itemdatanum($itm);
my $data = GetBiblioItemData($bi);
-my $homebranch = $branches->{ $idata->{'homebranch'} }->{'branchname'};
-my $holdingbranch = $branches->{ $idata->{'holdingbranch'} }->{'branchname'};
-
my $lastmove = lastmove($itm);
my $lastdate;
}
);
-my $branchloop = GetBranchesLoop(C4::Context->userenv->{branch});
-foreach (@$branchloop) {
- my $date = lastseenat( $itm, $_->{value} );
- my ($datechunk, $timechunk) = slashdate($date);
- $_->{issues} = issuesat($itm, $_->{value});
- $_->{seen} = $datechunk;
- $_->{seentime} = $timechunk;
+my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;
+for my $library ( @$libraries ) {
+ $library->{selected} = 1 if $library->{branchcode} eq C4::Context->userenv->{branch};
+ $library->{issues} = issuesat($itm, $library->{branchcode});
+ $library->{seen} = lastseenat( $itm, $library->{branchcode} ) || undef;
}
$template->param(
author => $data->{'author'},
barcode => $idata->{'barcode'},
biblioitemnumber => $bi,
- homebranch => $homebranch,
- holdingbranch => $holdingbranch,
+ homebranch => $idata->{homebranch},
+ holdingbranch => $idata->{holdingbranch},
lastdate => $lastdate ? $lastdate : 0,
count => $count,
- branchloop => $branchloop,
+ libraries => $libraries,
);
output_html_with_http_headers $input, $cookie, $template->output;
my $date = ( $date1 lt $date2 ) ? $date2 : $date1 ;
return ($date);
}
-
-#####################################################
-# return date and time from timestamp
-sub slashdate {
- my ($date) = @_;
- $date or return;
- return (
- output_pref({ dt => dt_from_string( $date ), dateonly => 1 }),
- substr($date,11,5)
- );
-}