#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
# Suite 330, Boston, MA 02111-1307 USA
use strict;
-use C4::Auth;
use CGI;
+use C4::Auth;
use C4::Context;
use C4::Branch; # GetBranches
use C4::Output;
use C4::Koha;
-use C4::Interface::CGI::Output;
use C4::Circulation;
use Date::Manip;
=head1 DESCRIPTION
-
-=over2
+=over 2
=cut
debug => 1,
});
$template->param(do_it => $do_it,
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
);
if ($do_it) {
# Displaying results