From 08ba8abf0fe441a54cf7ea442990f4de4880e967 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 14 Jan 2003 16:41:17 +0000
Subject: [PATCH] bugfix : use gettemplate_and_user instead of gettemplate. fix
 a blank screen in 1.3.3 in "import in breeding farm"

---
 acqui.simple/marcimport.pl | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index 0b1d4d935a..5dee78b522 100755
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -35,15 +35,13 @@ use DBI;
 
 # Koha modules used
 use C4::Context;
-#use C4::Database;
-#use C4::Acquisitions;
 use C4::Output;
 use C4::Input;
 use C4::Biblio;
-#use C4::SimpleMarc;
-#use C4::Z3950;
 use MARC::File::USMARC;
 use HTML::Template;
+use C4::Output;
+use C4::Auth;
 
 #------------------
 # Constants
@@ -67,8 +65,15 @@ my $dbh = C4::Context->dbh;
 my $uploadmarc=$input->param('uploadmarc');
 my $overwrite_biblio = $input->param('overwrite_biblio');
 my $filename = $input->param('filename');
+my ($template, $loggedinuser, $cookie)
+	= get_template_and_user({template_name => "acqui.simple/marcimport.tmpl",
+					query => $input,
+					type => "intranet",
+					authnotrequired => 0,
+					flagsrequired => {parameters => 1},
+					debug => 1,
+					});
 
-my $template = gettemplate("acqui.simple/marcimport.tmpl");
 $template->param(SCRIPT_NAME => $ENV{'SCRIPT_NAME'},
 						uploadmarc => $uploadmarc);
 if ($uploadmarc && length($uploadmarc)>0) {
@@ -799,6 +804,10 @@ sub FormatMarcText {
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
 # $Log$
+# Revision 1.24  2003/01/14 16:41:17  tipaul
+# bugfix : use gettemplate_and_user instead of gettemplate.
+# fix a blank screen in 1.3.3 in "import in breeding farm"
+#
 # Revision 1.23  2003/01/06 13:06:28  tipaul
 # removing trailing #
 #
-- 
2.39.5