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

[doXulting]

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

Modified Files:
	authorities-home.pl 
Log Message:
New stuff for authorities

Index: authorities-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** authorities-home.pl	5 Jul 2004 13:38:02 -0000	1.3
--- authorities-home.pl	6 Jul 2004 13:15:46 -0000	1.4
***************
*** 37,44 ****
  my $op = $query->param('op');
  my $authtypecode = $query->param('authtypecode');
- warn "La authtypecode = $authtypecode\n";
  my $dbh = C4::Context->dbh;
  
  my $startfrom=$query->param('startfrom');
  $startfrom=0 if(!defined $startfrom);
  my ($template, $loggedinuser, $cookie);
--- 37,44 ----
  my $op = $query->param('op');
  my $authtypecode = $query->param('authtypecode');
  my $dbh = C4::Context->dbh;
  
  my $startfrom=$query->param('startfrom');
+ my $authid=$query->param('authid');
  $startfrom=0 if(!defined $startfrom);
  my ($template, $loggedinuser, $cookie);
***************
*** 66,71 ****
  	$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,
  										\@excluding, \@operator, \@value,
--- 66,69 ----
***************
*** 145,150 ****
  } elsif ($op eq "delete") {
  
! 	warn "Ici effacement\n";
! 	
  	($template, $loggedinuser, $cookie)
  		= get_template_and_user({template_name => "authorities/authorities-home.tmpl",
--- 143,148 ----
  } elsif ($op eq "delete") {
  
! 	&AUTHdelauthority($dbh,$authid, 1);
! 
  	($template, $loggedinuser, $cookie)
  		= get_template_and_user({template_name => "authorities/authorities-home.tmpl",