[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 ----