|
Lines 31-37
use C4::Koha;
Link Here
|
| 31 |
use C4::Auth; |
31 |
use C4::Auth; |
| 32 |
use C4::Branch; # GetBranches |
32 |
use C4::Branch; # GetBranches |
| 33 |
use C4::Biblio; # GetBiblioItemData |
33 |
use C4::Biblio; # GetBiblioItemData |
| 34 |
use C4::Dates qw/format_date/; |
34 |
use Koha::DateUtils; |
| 35 |
|
35 |
|
| 36 |
my $input = new CGI; |
36 |
my $input = new CGI; |
| 37 |
my $itm = $input->param('itm'); |
37 |
my $itm = $input->param('itm'); |
|
Lines 86-92
$template->param(
Link Here
|
| 86 |
biblioitemnumber => $bi, |
86 |
biblioitemnumber => $bi, |
| 87 |
homebranch => $homebranch, |
87 |
homebranch => $homebranch, |
| 88 |
holdingbranch => $holdingbranch, |
88 |
holdingbranch => $holdingbranch, |
| 89 |
lastdate => $lastdate ? format_date($lastdate) : 0, |
89 |
lastdate => $lastdate ? $lastdate : 0, |
| 90 |
count => $count, |
90 |
count => $count, |
| 91 |
branchloop => $branchloop, |
91 |
branchloop => $branchloop, |
| 92 |
); |
92 |
); |
|
Lines 177-183
sub slashdate {
Link Here
|
| 177 |
my ($date) = @_; |
177 |
my ($date) = @_; |
| 178 |
$date or return; |
178 |
$date or return; |
| 179 |
return ( |
179 |
return ( |
| 180 |
format_date($date), |
180 |
output_pref({ dt => dt_from_string( $date ), dateonly => 1 }), |
| 181 |
substr($date,11,5) |
181 |
substr($date,11,5) |
| 182 |
); |
182 |
); |
| 183 |
} |
183 |
} |