Preliminary fix of the CGI.pm problem of always assuming that everything is
[wip/koha-chris_n.git] / acqui.simple / addbooks.pl
1 #!/usr/bin/perl
2
3 # $Id$
4
5 #
6 # Modified saas@users.sf.net 12:00 01 April 2001
7 # The biblioitemnumber was not correctly initialised
8 # The max(barcode) value was broken - koha 'barcode' is a string value!
9 # - If left blank, barcode value now defaults to max(biblionumber)
10
11 #
12 # TODO
13 #
14 # Add info on biblioitems and items already entered as you enter new ones
15 #
16 # Add info on biblioitems and items already entered as you enter new ones
17
18
19 # Copyright 2000-2002 Katipo Communications
20 #
21 # This file is part of Koha.
22 #
23 # Koha is free software; you can redistribute it and/or modify it under the
24 # terms of the GNU General Public License as published by the Free Software
25 # Foundation; either version 2 of the License, or (at your option) any later
26 # version.
27 #
28 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
29 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
30 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
31 #
32 # You should have received a copy of the GNU General Public License along with
33 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
34 # Suite 330, Boston, MA  02111-1307 USA
35
36 use strict;
37 use CGI;
38 use C4::Auth;
39 use C4::Catalogue;
40 use C4::Biblio;
41 use C4::Output;
42 use C4::Charset;
43 use HTML::Template;
44
45 my $query = new CGI;
46
47 my $error   = $query->param('error');
48 my $success = $query->param('biblioitem');
49 my ($template, $loggedinuser, $cookie)
50     = get_template_and_user({template_name => "acqui.simple/addbooks.tmpl",
51                              query => $query,
52                              type => "intranet",
53                              authnotrequired => 0,
54                              flagsrequired => {catalogue => 1},
55                              debug => 1,
56                              });
57 print $query->header(
58     -type => guesstype($template->output),
59     -cookie => $cookie
60 ),$template->output;