[Koha-cvs] CVS: koha/acqui addorder.pl,1.13,1.14

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui
In directory sc8-pr-cvs1:/tmp/cvs-serv10354/acqui

Modified Files:
        addorder.pl 
Log Message:
fix for #409

Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** addorder.pl 13 Feb 2003 17:27:47 -0000      1.13
--- addorder.pl 2 May 2003 13:04:00 -0000       1.14
***************
*** 24,33 ****
--- 24,49 ----
  use strict;
  use CGI;
+ use C4::Auth;
  use C4::Output;
  use C4::Catalogue;
  use C4::Biblio;
+ use C4::Output;
+ use C4::Interface::CGI::Output;
+ use C4::Database;
+ use HTML::Template;
+ 
  #use Date::Manip;
  
  my $input = new CGI;
+ # get_template_and_user used only to check auth & get user id
+ my ($template, $loggedinuser, $cookie)
+     = get_template_and_user({template_name => "acqui/order.tmpl",
+                            query => $input,
+                            type => "intranet",
+                            authnotrequired => 0,
+                            flagsrequired => {acquisition => 1},
+                            debug => 1,
+                            });
+ 
  my $existing=$input->param('existing');
  my $title=$input->param('title');
***************
*** 49,53 ****
  my $notes=$input->param('notes');
  my $bookfund=$input->param('bookfund');
! my $who=$input->remote_user;
  my $bibnum;
  my $bibitemnum;
--- 65,69 ----
  my $notes=$input->param('notes');
  my $bookfund=$input->param('bookfund');
! my $who=$loggedinuser;
  my $bibnum;
  my $bibitemnum;