[Koha-cvs] CVS: koha mainpage.pl,1.3,1.4 plugin_launcher.pl,1.1,1.2 thesaurus_popup.pl,1.6,1.7

[Paul POULAIN]

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

Modified Files:
        mainpage.pl plugin_launcher.pl thesaurus_popup.pl 
Log Message:
* bugfixes
* improvements done during dombes intallation/tests
* adding authentication (new Auth.pm)

Index: mainpage.pl
===================================================================
RCS file: /cvsroot/koha/koha/mainpage.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** mainpage.pl 28 Oct 2002 20:02:57 -0000      1.3
--- mainpage.pl 10 Dec 2002 13:54:08 -0000      1.4
***************
*** 13,15 ****
  my $template = gettemplate("intranet-main.tmpl");
  
! print "Content-Type: text/html\n\n", $template->output;
--- 13,15 ----
  my $template = gettemplate("intranet-main.tmpl");
  
! print  $query->header(-cookie => $cookie), $template->output;

Index: plugin_launcher.pl
===================================================================
RCS file: /cvsroot/koha/koha/plugin_launcher.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** plugin_launcher.pl  20 Nov 2002 16:44:30 -0000      1.1
--- plugin_launcher.pl  10 Dec 2002 13:54:08 -0000      1.2
***************
*** 1,5 ****
  #!/usr/bin/perl
  
! # written 10/5/2002 by Paul
  
  # Copyright 2000-2002 Katipo Communications
--- 1,5 ----
  #!/usr/bin/perl
  
! # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 28,32 ****
  
  my $input = new CGI;
  my $plugin_name="value_builder/".$input->param("plugin_name");
  require $plugin_name;
! &plugin($input);
--- 28,33 ----
  
  my $input = new CGI;
+ my $plugin_name=$input->param("plugin_name");
  my $plugin_name="value_builder/".$input->param("plugin_name");
  require $plugin_name;
! &plugin($input);
\ No newline at end of file

Index: thesaurus_popup.pl
===================================================================
RCS file: /cvsroot/koha/koha/thesaurus_popup.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** thesaurus_popup.pl  12 Nov 2002 15:58:43 -0000      1.6
--- thesaurus_popup.pl  10 Dec 2002 13:54:08 -0000      1.7
***************
*** 27,34 ****
  use HTML::Template;
  use C4::Search;
- #use C4::Circulation::Circ2;
  use C4::Output;
! #use C4::Biblio;
! 
  # get all the data ....
  my %env;
--- 27,32 ----
  use HTML::Template;
  use C4::Search;
  use C4::Output;
! use C4::Authorities;
  # get all the data ....
  my %env;
***************
*** 41,44 ****
--- 39,43 ----
  my $category = $input->param('category');
  my $index= $input->param('index');
+ my $insert = $input->param('insert');
  
  my $dbh = C4::Context->dbh;
***************
*** 56,59 ****
--- 55,62 ----
        }
  }
+ if ($op eq "add") {
+       newauthority($dbh,$category,$insert,$insert,'',1,'');
+       $search_string=$insert;
+ }
  
  my $template = gettemplate("thesaurus_popup.tmpl",0);
***************
*** 63,68 ****
  my $select_list;
  if ($search_string) {
!       my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where 
freelib like '".$search_string."%' and category ='$category'");
!       $sti->execute;
        while (my $line=$sti->fetchrow_hashref) {
                $stdlib{$line->{'id'}} = "$line->{'freelib'}";
--- 66,72 ----
  my $select_list;
  if ($search_string) {
! #     my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where 
freelib like '".$search_string."%' and category ='$category'");
!       my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where 
match (category,freelib) AGAINST ('$search_string') and category ='$category'");
!               $sti->execute;
        while (my $line=$sti->fetchrow_hashref) {
                $stdlib{$line->{'id'}} = "$line->{'freelib'}";