[Koha-cvs] CVS: koha modbibitem.pl,1.11,1.12 updateitem.pl,1.7,1.8

[Paul POULAIN]

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

Modified Files:
        modbibitem.pl updateitem.pl 
Log Message:
bugfixes

Index: modbibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbibitem.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** modbibitem.pl       15 Dec 2002 17:38:20 -0000      1.11
--- modbibitem.pl       18 Mar 2003 11:15:36 -0000      1.12
***************
*** 27,30 ****
--- 27,31 ----
  
  use strict;
+ require Exporter;
  
  use C4::Search;
***************
*** 34,37 ****
--- 35,42 ----
  use HTML::Template;
  
+ use C4::Biblio;
+ use C4::Catalogue;
+ use C4::Auth;
+ use C4::Interface::CGI::Output;
  
  my $input = new CGI;
***************
*** 44,48 ****
  }
  
! my $template = gettemplate("modbibitem.tmpl");
  
  my %inputs;
--- 49,60 ----
  }
  
! my ($template, $loggedinuser, $cookie) = get_template_and_user({
!       template_name   => 'modbibitem.tmpl',
!       query           => $input,
!       type            => "intranet",
!       authnotrequired => 0,
!       flagsrequired   => {catalogue => 1},
!     });
! 
  
  my %inputs;
***************
*** 86,90 ****
                                                                title => 
$data->{'title'},
                                                                author => 
$data->{'author'},
!                                                               description => 
$data->{'description'});
  
  my ($count,@bibitems)=bibitems($data->{'biblionumber'});
--- 98,104 ----
                                                                title => 
$data->{'title'},
                                                                author => 
$data->{'author'},
!                                                               description => 
$data->{'description'},
!                                                               loggedinuser => 
$loggedinuser,
!                                                               );
  
  my ($count,@bibitems)=bibitems($data->{'biblionumber'});

Index: updateitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updateitem.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** updateitem.pl       13 Oct 2002 07:36:09 -0000      1.7
--- updateitem.pl       18 Mar 2003 11:15:37 -0000      1.8
***************
*** 23,27 ****
  use CGI;
  use C4::Context;
- use C4::Acquisitions;
  use C4::Biblio;
  use C4::Output;
--- 23,26 ----