[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(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,
                                                                                
address@hidden, address@hidden, address@hidden,
--- 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",