From 84a21924d0a1a724c22f002f0d5a9c3529ed66ef Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Sat, 8 Feb 2003 21:47:15 +0000
Subject: [PATCH] Updated script to use get_template_and_user Noted tab size

---
 imemberentry.pl | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/imemberentry.pl b/imemberentry.pl
index 507c342546..8aea1cb9e3 100755
--- a/imemberentry.pl
+++ b/imemberentry.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# NOTE: standard 8-space tabs here
 
 #script to set up screen for modification of borrower details
 #written 20/12/99 by chris@katipo.co.nz
@@ -22,14 +23,24 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use C4::Auth;
 use C4::Output;
 use CGI;
 use C4::Search;
+use C4::Interface::CGI::Output;
 use HTML::Template;
 
 my $input = new CGI;
 
-my $template = gettemplate("members/imemberentry.tmpl");
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "members/imemberentry.tmpl",
+			     query => $input,
+			     type => "intranet",
+			     authnotrequired => 0,
+			     flagsrequired => {borrowers => 1},
+			     debug => 1,
+			     });
+
 
 my $member=$input->param('bornum');
 if ($member eq ''){
@@ -39,8 +50,12 @@ my $type=$input->param('type');
 
 my $data=borrdata('',$member);
 
-$template->param( startmenumember => startmenu('member'),
+$template->param({ startmenumember => startmenu('member'),
 			endmenumember   => endmenu('member'),
-			member          => $member );
+			member          => $member });
+
+output_html_with_http_headers $input, $cookie, $template->output;
 
-print "Content-Type: text/html\n\n", $template->output;
+# Local Variables:
+# tab-width: 8
+# End:
-- 
2.39.5