catalogue.pm deals only with acquisitions.

[koha_gimpoz] / acqui / recieveorder.pl

diff --git a/acqui/recieveorder.pl b/acqui/recieveorder.pl
index 4fb40f3..302df0f 100755 (executable)
--- a/acqui/recieveorder.pl
+++ b/acqui/recieveorder.pl
@@ -1,58 +1,52 @@
 #!/usr/bin/perl
 
+# $Id$
+
 #script to show display basket of orders
 #written by chris@katipo.co.nz 24/2/2000
 
-use C4::Acquisitions;
-use C4::Output;
-use CGI;
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
 use strict;
+use CGI;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Database;
+use HTML::Template;
+use C4::Acquisition;
 
 my $input=new CGI;
-print $input->header();
 my $id=$input->param('id');
-my ($count,@booksellers)=bookseller($id); 
-print startpage;
-
-print startmenu('acquisitions');
-
-print <<EOP
-
-<FONT SIZE=6><em>Receive Orders From Supplier <a href=whitcoulls.html>$booksellers[0]->{'name'}</a></em></FONT>
-<p>
-<CENTER>
-<form method=post action="receive.pl">
-<input type=hidden name=id value=$id>
-<p>
-<table border=1 cellspacing=0 cellpadding=5>
-<tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>SUPPLIER INVOICE INFORMATION</B></td></tr>
-<TR VALIGN=TOP >
-<TD>Supplier Invoice Number</td>
-<td><input type=text size=20 name=invoice>        
-</td>
-</tr>
-<TR VALIGN=TOP>
-<TD>GST</td>
-<td><input type=text size=20 name=gst>
-</td>
-</tr>
-<TR VALIGN=TOP>
-<TD>Freight</td>
-<td><input type=text size=20 name=freight>
-</td>
-</tr>
-<TR VALIGN=TOP>
-<TD></td>
-<td><input type=image  name=submit src=/images/continue.gif border=0 width=120 height=42>
-</td>
-</tr>
-</table>
-</CENTER>
-
-EOP
-;
-
-
-print endmenu('acquisitions');
-
-print endpage;
+my ($count,@booksellers)=bookseller($id);
+
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "acqui/recieveorder.tmpl",
+                            query => $input,
+                            type => "intranet",
+                            authnotrequired => 0,
+                            flagsrequired => {acquisition => 1},
+                            debug => 1,
+                            });
+
+$template->param(
+               name => $booksellers[0]->{'name'},
+               id => $id,
+               );
+
+output_html_with_http_headers $input, $cookie, $template->output;