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

Paul POULAIN tipaul at users.sourceforge.net
Tue Mar 18 12:15:42 CET 2003


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, at bibitems)=bibitems($data->{'biblionumber'});
--- 98,104 ----
  								title => $data->{'title'},
  								author => $data->{'author'},
! 								description => $data->{'description'},
! 								loggedinuser => $loggedinuser,
! 								);
  
  my ($count, at 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 ----





More information about the Koha-cvs mailing list