use strict;
use C4::Stats;
-use C4::Date;
+use C4::Dates qw/format_date/;
use CGI;
use C4::Output;
-use HTML::Template;
+use C4::Branch; # GetBranches
use C4::Auth;
-use C4::Interface::CGI::Output;
use C4::Koha;
+use C4::Items;
my $input = new CGI;
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { editcatalogue => 1 },
+ flagsrequired => { reports => 1 },
debug => 1,
}
);
# FIXME still need to shift the text to the template so its translateable
if ( $data->[$i]) {
# find if its on issue
- my @items = &ItemInfo( undef, $line{'biblionumber'}, 'intra' );
+ my @items = GetItemsInfo($line{'biblionumber'}, 'intra' );
my $onissue = 0;
foreach my $item (@items) {
if ( $item->{'datedue'} eq 'Reserved' ) {