Fix so ysearch.pl uses utf-8

[koha_fer] / circ / branchoverdues.pl

diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl
index 7fd09ed..bbc67c6 100755 (executable)
--- a/circ/branchoverdues.pl
+++ b/circ/branchoverdues.pl
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 #
 # This file is part of Koha.
 #
@@ -22,7 +21,7 @@ use C4::Context;
 use CGI;
 use C4::Output;
 use C4::Auth;
-use C4::Date;
+use C4::Dates qw/format_date/;
 use C4::Overdues;    # AddNotifyLine
 use C4::Biblio;
 use C4::Koha;
@@ -104,10 +103,11 @@ my @todayoverduesloop;
 my $counter = 0;
 
 my @getoverdues = GetOverduesForBranch( $default, $location );
-
+use Data::Dumper;
+warn "HERE : $default / $location".Dumper(@getoverdues);
 # search for location authorised value
 my ($tag,$subfield) = GetMarcFromKohaField('items.location','');
-my $tagslib = &GetMarcStructure($dbh,1,'');
+my $tagslib = &GetMarcStructure(1,'');
 if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {
     my $values= GetAuthorisedValues($tagslib->{$tag}->{$subfield}->{authorised_value});
     $template->param(locationsloop => $values);