[Koha-cvs] CVS: koha moditem.pl,1.6,1.7 moredetail.pl,1.20,1.21

[Paul POULAIN]

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

Modified Files:
        moditem.pl moredetail.pl 
Log Message:
bugfixes (use Acquisition.pm removed and image templating fixed)

Index: moditem.pl
===================================================================
RCS file: /cvsroot/koha/koha/moditem.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** moditem.pl  16 Dec 2002 00:26:18 -0000      1.6
--- moditem.pl  18 Mar 2003 09:52:30 -0000      1.7
***************
*** 27,37 ****
  
  use strict;
  
  use C4::Search;
  use CGI;
  use C4::Output;
! use C4::Acquisitions;
  use C4::Biblio;
  use HTML::Template;
  
  my $input = new CGI;
--- 27,42 ----
  
  use strict;
+ require Exporter;
  
  use C4::Search;
  use CGI;
  use C4::Output;
! #use C4::Acquisitions;
  use C4::Biblio;
  use HTML::Template;
+ use C4::Koha;
+ use C4::Catalogue;
+ use C4::Auth;
+ use C4::Interface::CGI::Output;
  
  my $input = new CGI;
***************
*** 43,49 ****
  }
  
- #print $input->header;
- #print $input->dump;
- 
  my $data=bibitemdata($bibitemnum);
  
--- 48,51 ----
***************
*** 53,59 ****
  
  
! #print startpage();
! #print startmenu('catalogue');
! my $template=gettemplate("moditem.tmpl");
  
  my %inputs;
--- 55,65 ----
  
  
! my ($template, $loggedinuser, $cookie) = get_template_and_user({
!       template_name   => 'moditem.tmpl',
!       query           => $input,
!       type            => "intranet",
!       authnotrequired => 0,
!       flagsrequired   => {catalogue => 1},
!     });
  
  my %inputs;

Index: moredetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/moredetail.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** moredetail.pl       9 Feb 2003 09:07:11 -0000       1.20
--- moredetail.pl       18 Mar 2003 09:52:30 -0000      1.21
***************
*** 31,35 ****
  use C4::Auth;
  use C4::Interface::CGI::Output;
!   
  my $query=new CGI;
  
--- 31,35 ----
  use C4::Auth;
  use C4::Interface::CGI::Output;
! 
  my $query=new CGI;
  
***************
*** 47,51 ****
      });
  
! # get variables 
  
  my $biblionumber=$query->param('bib');
--- 47,51 ----
      });
  
! # get variables
  
  my $biblionumber=$query->param('bib');