[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(\@tags), and_or (\@and_or), excluding (\@excluding), operator (\@operator), value (\@value), resultsperpage $resultsperpage, $startfrom, [$authtypecode]";
  
  	my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or,
***************
*** 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" => \@statements,
! # 						"nbstatements" => $nbstatements);
! }
! elsif ($op eq "AddStatement") {
  
  	($template, $loggedinuser, $cookie)