[Koha-cvs] CVS: koha MARCdetail.pl,1.7,1.8 search.pl,1.23,1.24 thesaurus_popup.pl,1.7,1.8

[Paul POULAIN]

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

Modified Files:
	MARCdetail.pl search.pl thesaurus_popup.pl 
Log Message:
adding authentification with Auth.pm

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** MARCdetail.pl	19 Nov 2002 12:31:34 -0000	1.7
--- MARCdetail.pl	12 Dec 2002 16:33:58 -0000	1.8
***************
*** 41,44 ****
--- 41,45 ----
  use strict;
  require Exporter;
+ use C4::Auth;
  use C4::Context;
  use C4::Output;
***************
*** 62,66 ****
  #warn $record->as_formatted();
  # open template
! my $template = gettemplate("catalogue/MARCdetail.tmpl",0);
  # fill arrays
  my @loop_data =();
--- 63,75 ----
  #warn $record->as_formatted();
  # open template
! my ($template, $loggedinuser, $cookie)
! 		= get_template_and_user({template_name => "catalogue/MARCdetail.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {catalogue => 1},
! 			     debug => 1,
! 			     });
! 
  # fill arrays
  my @loop_data =();
***************
*** 145,148 ****
  						biblionumber => $biblionumber,
  						bibid => $bibid);
! print "Content-Type: text/html\n\n", $template->output;
  
--- 154,157 ----
  						biblionumber => $biblionumber,
  						bibid => $bibid);
! print $query->header(-cookie => $cookie),$template->output;
  

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** search.pl	19 Nov 2002 12:31:35 -0000	1.23
--- search.pl	12 Dec 2002 16:33:58 -0000	1.24
***************
*** 21,24 ****
--- 21,25 ----
  require Exporter;
  use CGI;
+ use C4::Auth;
  use HTML::Template;
  use C4::Context;
***************
*** 38,47 ****
  
  my $subject=$query->param('subject');
- my $template;
  # if it's a subject we need to use the subject.tmpl
  if ($subject) {
! 	$template = gettemplate("catalogue/subject.tmpl",0);
  } else {
! 	$template = gettemplate("catalogue/searchresults.tmpl", 0);
  }
  
--- 39,62 ----
  
  my $subject=$query->param('subject');
  # if it's a subject we need to use the subject.tmpl
+ my ($template, $loggedinuser, $cookie);
  if ($subject) {
!  	($template, $loggedinuser, $cookie)
!    		= get_template_and_user({template_name => "catalogue/subject.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {catalogue => 1},
! 			     debug => 1,
! 			     });
  } else {
!  	($template, $loggedinuser, $cookie)
! 		= get_template_and_user({template_name => "catalogue/searchresults.tmpl",
! 			     query => $query,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {catalogue => 1},
! 			     debug => 1,
! 			     });
  }
  

Index: thesaurus_popup.pl
===================================================================
RCS file: /cvsroot/koha/koha/thesaurus_popup.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** thesaurus_popup.pl	10 Dec 2002 13:54:08 -0000	1.7
--- thesaurus_popup.pl	12 Dec 2002 16:33:58 -0000	1.8
***************
*** 23,26 ****
--- 23,27 ----
  
  use strict;
+ use C4::Auth;
  use CGI;
  use C4::Context;
***************
*** 59,64 ****
  	$search_string=$insert;
  }
! 
! my $template = gettemplate("thesaurus_popup.tmpl",0);
  # /search thesaurus terms starting by search_string
  my @freelib;
--- 60,71 ----
  	$search_string=$insert;
  }
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "thesaurus_popup.tmpl",
! 			     query => $input,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  # /search thesaurus terms starting by search_string
  my @freelib;
***************
*** 87,91 ****
  						index => $index
  						);
! print "Content-Type: text/html\n\n", $template->output;
  
  
--- 94,98 ----
  						index => $index
  						);
! print $input->header(-cookie => $cookie),$template->output;