[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;