[Koha-cvs] CVS: koha imemberentry.pl,1.4,1.5

[Ambrose Li]

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

Modified Files:
        imemberentry.pl 
Log Message:
Updated script to use get_template_and_user
Noted tab size


Index: imemberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/imemberentry.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** imemberentry.pl     28 Oct 2002 18:00:57 -0000      1.4
--- imemberentry.pl     8 Feb 2003 21:47:15 -0000       1.5
***************
*** 1,3 ****
--- 1,4 ----
  #!/usr/bin/perl
+ # NOTE: standard 8-space tabs here
  
  #script to set up screen for modification of borrower details
***************
*** 23,34 ****
  
  use strict;
  use C4::Output;
  use CGI;
  use C4::Search;
  use HTML::Template;
  
  my $input = new CGI;
  
! my $template = gettemplate("members/imemberentry.tmpl");
  
  my $member=$input->param('bornum');
--- 24,45 ----
  
  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, $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');
***************
*** 40,46 ****
  my $data=borrdata('',$member);
  
! $template->param( startmenumember => startmenu('member'),
                        endmenumember   => endmenu('member'),
!                       member          => $member );
  
! print "Content-Type: text/html\n\n", $template->output;
--- 51,61 ----
  my $data=borrdata('',$member);
  
! $template->param({ startmenumember => startmenu('member'),
                        endmenumember   => endmenu('member'),
!                       member          => $member });
! 
! output_html_with_http_headers $input, $cookie, $template->output;
  
! # Local Variables:
! # tab-width: 8
! # End: