projects
/
koha-ffzg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 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 Koha::BiblioFrameworks;
-use Data::Dumper;
=head1 branchoverdues.pl
=head1 branchoverdues.pl
@@
-72,8
+70,7
@@
if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {
# now display infos
foreach my $num (@getoverdues) {
my %overdueforbranch;
# 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'};
$overdueforbranch{'title'} = $num->{'title'};
$overdueforbranch{'subtitle'} = $num->{'subtitle'};
$overdueforbranch{'medium'} = $num->{'medium'};