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

[Paul POULAIN]

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

Modified Files:
        authorities.pl 
Log Message:
authorities (continued)

Index: authorities.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** authorities.pl      10 Jun 2004 08:28:40 -0000      1.2
--- authorities.pl      17 Jun 2004 08:19:20 -0000      1.3
***************
*** 337,341 ****
        warn "IN ADD : ".$record->as_formatted();
        if ($is_a_modif) {
!                AUTHmodauthority($dbh,$record,$authid,$authtypecode);
        } else {
                ($authid) = 
AUTHaddauthority($dbh,$record,$authid,$authtypecode);
--- 337,341 ----
        warn "IN ADD : ".$record->as_formatted();
        if ($is_a_modif) {
!                AUTHmodauthority($dbh,$authid,$record,$authtypecode);
        } else {
                ($authid) = 
AUTHaddauthority($dbh,$record,$authid,$authtypecode);
***************
*** 420,424 ****
                                authtypetext => 
$authtypes->{$thisauthtype}{'authtypetext'},
                        );
-       warn "X = $authtypes->{$thisauthtype}{'authtypetext'}";
        push @authtypesloop, \%row;
  }
--- 420,423 ----