[Koha-cvs] CVS: koha/authorities authorities-home.pl,1.2,1.3

[doXulting]

Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19092/koha/authorities

Modified Files:
        authorities-home.pl 
Log Message:
First step for working authorities

Index: authorities-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** authorities-home.pl 10 Jun 2004 08:28:40 -0000      1.2
--- authorities-home.pl 5 Jul 2004 13:38:02 -0000       1.3
***************
*** 37,40 ****
--- 37,41 ----
  my $op = $query->param('op');
  my $authtypecode = $query->param('authtypecode');
+ warn "La authtypecode = $authtypecode\n";
  my $dbh = C4::Context->dbh;
  
***************
*** 65,68 ****
--- 66,70 ----
        $resultsperpage = 19 if(!defined $resultsperpage);
        my @tags;
+       warn "a ce pont labas dbh ($dbh), tags(address@hidden), and_or 
(address@hidden), excluding (address@hidden), operator (address@hidden), value 
(address@hidden), resultsperpage $resultsperpage, $startfrom, [$authtypecode]";
  
        my ($results,$total) = authoritysearch($dbh, 
address@hidden,address@hidden,
***************
*** 141,145 ****
                                                        );
  
! } elsif ($op eq "AddStatement") {
  
        ($template, $loggedinuser, $cookie)
--- 143,162 ----
                                                        );
  
! } elsif ($op eq "delete") {
! 
!       warn "Ici effacement\n";
!       
!       ($template, $loggedinuser, $cookie)
!               = get_template_and_user({template_name => 
"authorities/authorities-home.tmpl",
!                               query => $query,
!                               type => 'intranet',
!                               authnotrequired => 0,
!                               flagsrequired => {catalogue => 1},
!                               debug => 1,
!                               });
! #     $template->param("statements" => address@hidden,
! #                                             "nbstatements" => 
$nbstatements);
! }
! elsif ($op eq "AddStatement") {
  
        ($template, $loggedinuser, $cookie)