From b29067886f535ac70f3b7b43d17ef2131a7a4def Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 18 Mar 2003 09:52:30 +0000 Subject: [PATCH] bugfixes (use Acquisition.pm removed and image templating fixed) --- .../intranet-tmpl/default/en/moditem.tmpl | 3 +-- moditem.pl | 20 ++++++++++++------- moredetail.pl | 4 ++-- 3 files changed, 16 insertions(+), 11 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/default/en/moditem.tmpl b/koha-tmpl/intranet-tmpl/default/en/moditem.tmpl index 0d507126b0..aa14ad672f 100644 --- a/koha-tmpl/intranet-tmpl/default/en/moditem.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/moditem.tmpl @@ -37,8 +37,7 @@ No "> - +//images/filesave.png border=0> diff --git a/moditem.pl b/moditem.pl index c2d1564f42..46c0e34986 100755 --- a/moditem.pl +++ b/moditem.pl @@ -26,13 +26,18 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; +require Exporter; use C4::Search; use CGI; use C4::Output; -use C4::Acquisitions; +#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; my $submit=$input->param('delete.x'); @@ -42,9 +47,6 @@ if ($submit ne ''){ print $input->redirect("/cgi-bin/koha/delitem.pl?itemnum=$itemnum&bibitemnum=$bibitemnum"); } -#print $input->header; -#print $input->dump; - my $data=bibitemdata($bibitemnum); my $item=itemnodata('blah','',$itemnum); @@ -52,9 +54,13 @@ my $item=itemnodata('blah','',$itemnum); #my ($analyticauthor)=analytic($biblionumber,'a'); -#print startpage(); -#print startmenu('catalogue'); -my $template=gettemplate("moditem.tmpl"); +my ($template, $loggedinuser, $cookie) = get_template_and_user({ + template_name => 'moditem.tmpl', + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + }); my %inputs; diff --git a/moredetail.pl b/moredetail.pl index c89db96538..3eb64b9e90 100755 --- a/moredetail.pl +++ b/moredetail.pl @@ -30,7 +30,7 @@ use C4::Catalogue; use C4::Output; # contains gettemplate use C4::Auth; use C4::Interface::CGI::Output; - + my $query=new CGI; # FIXME subject is not exported to the template? @@ -46,7 +46,7 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({ flagsrequired => {catalogue => 1}, }); -# get variables +# get variables my $biblionumber=$query->param('bib'); my $title=$query->param('title'); -- 2.39.5