X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Fbranchoverdues.pl;h=84414ded334f120533ba62b259b3c033c0c12e4a;hb=f41f272ff087d65ed11d760e6c7c58818c3a24d4;hp=422b32cda6045d66ac5a55a3d63f6b1a2919074b;hpb=3fe837bc74d110b9b3f378ee0565464d8529e827;p=koha-ffzg.git diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl index 422b32cda6..84414ded33 100755 --- a/circ/branchoverdues.pl +++ b/circ/branchoverdues.pl @@ -19,14 +19,12 @@ use Modern::Perl; use C4::Context; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; -use C4::Overdues; -use C4::Biblio; -use C4::Koha; -use Koha::DateUtils; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Overdues qw( GetOverduesForBranch ); +use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure ); +use C4::Koha qw( GetAuthorisedValues ); use Koha::BiblioFrameworks; -use Data::Dumper; =head1 branchoverdues.pl @@ -72,8 +70,7 @@ if ($tagslib->{$tag}->{$subfield}->{authorised_value}) { # now display infos foreach my $num (@getoverdues) { my %overdueforbranch; - my $dt = dt_from_string($num->{date_due}, 'sql'); - $overdueforbranch{'date_due'} = output_pref($dt); + $overdueforbranch{'date_due'} = $num->{date_due}; $overdueforbranch{'title'} = $num->{'title'}; $overdueforbranch{'subtitle'} = $num->{'subtitle'}; $overdueforbranch{'medium'} = $num->{'medium'};