Bug 32437: Add Objects for ImportAuths

[koha-ffzg.git] / circ / branchoverdues.pl

diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl
index 422b32c..84414de 100755 (executable)
--- 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'};