re-adding oldbiblionumber for the sake of the plugin
[koha.git] / cataloguing / addbiblio-nomarc.pl
1 #!/usr/bin/perl
2
3 # $Id$
4
5 #
6 # TODO
7 #
8 # Add info on biblioitems and items already entered as you enter new ones
9 #
10
11 # Copyright 2000-2002 Katipo Communications
12 #
13 # This file is part of Koha.
14 #
15 # Koha is free software; you can redistribute it and/or modify it under the
16 # terms of the GNU General Public License as published by the Free Software
17 # Foundation; either version 2 of the License, or (at your option) any later
18 # version.
19 #
20 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
21 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
22 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
23 #
24 # You should have received a copy of the GNU General Public License along with
25 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
26 # Suite 330, Boston, MA  02111-1307 USA
27
28 # $Log$
29 # Revision 1.1  2006/01/17 16:40:54  tipaul
30 # moving acqui.simple directory to cataloguing, as acqui.simple contains cataloguing scripts...
31 #
32 # Revision 1.3  2005/05/04 08:45:22  tipaul
33 # synch'ing 2.2 and head
34 #
35 # Revision 1.2.4.1  2005/03/25 12:52:42  tipaul
36 # needs "editcatalogue" flag, not "catalogue"
37 #
38 # Revision 1.2  2003/05/09 23:47:22  rangi
39 # This script is now templated
40 # 3 more to go i think
41 #
42
43 use CGI;
44 use strict;
45 use C4::Output;
46 use HTML::Template;
47 use C4::Auth;
48 use C4::Interface::CGI::Output;
49
50 my $input = new CGI;
51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
52     {
53         template_name   => "acqui.simple/addbiblio-nomarc.tmpl",
54         query           => $input,
55         type            => "intranet",
56         authnotrequired => 0,
57         flagsrequired   => { editcatalogue => 1 },
58         debug           => 1,
59     }
60 );
61
62 my $error = $input->param('error');
63
64 $template->param(
65     ERROR => $error,
66 );
67
68 output_html_with_http_headers $input, $cookie, $template->output;