[Koha-cvs] CVS: koha/authorities authorities.pl,1.9,1.10

[Henri-Damien LAURENT]

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

Modified Files:
	authorities.pl 
Log Message:
Searching for double entries when adding a new authority.

Index: authorities.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** authorities.pl	5 Apr 2005 09:58:48 -0000	1.9
--- authorities.pl	5 Apr 2005 15:23:41 -0000	1.10
***************
*** 161,165 ****
  sub build_tabs ($$$$) {
      my($template, $record, $dbh,$encoding) = @_;
! # "=>".$record->as_formatted;
      # fill arrays
      my @loop_data =();
--- 161,165 ----
  sub build_tabs ($$$$) {
      my($template, $record, $dbh,$encoding) = @_;
! #	warn "=>".$record->as_formatted if $record;
      # fill arrays
      my @loop_data =();
***************
*** 348,361 ****
  	# now, redirect to additem page
  		print $input->redirect("detail.pl?authid=$authid");
  		exit;
  	} else {
  	# it may be a duplicate, warn the user and do nothing
- #		build_tabs ($template, $record, $dbh,$encoding);
- #		build_hidden_data;
  		$template->param(
   			duplicateauthnumber		=> $duplicateauthnumber,
   			duplicateauthid				=> $duplicateauthid,
!  			duplicateauthvalue				=> $duplicateauthvalue,
! 			 );
  	}
  #------------------------------------------------------------------------------------------------------------------------------
--- 348,364 ----
  	# now, redirect to additem page
  		print $input->redirect("detail.pl?authid=$authid");
+  		build_tabs ($template, $record, $dbh,$encoding);
+  		build_hidden_data;
  		exit;
  	} else {
  	# it may be a duplicate, warn the user and do nothing
  		$template->param(
   			duplicateauthnumber		=> $duplicateauthnumber,
   			duplicateauthid				=> $duplicateauthid,
!  			duplicateauthvalue			=> $duplicateauthvalue,
! 			);
! 		warn " AUTH : ".$record->as_formatted,
!  		build_tabs ($template, $record, $dbh,$encoding);
!  		build_hidden_data;
  	}
  #------------------------------------------------------------------------------------------------------------------------------
***************
*** 416,423 ****
  #------------------------------------------------------------------------------------------------------------------------------
  	&AUTHdelauthority($dbh,$authid);
  }
  
! build_tabs ($template, $record, $dbh,$encoding);
! build_hidden_data;
  $template->param(
  	authid                       => $authid,
--- 419,429 ----
  #------------------------------------------------------------------------------------------------------------------------------
  	&AUTHdelauthority($dbh,$authid);
+ } else {
+ 	build_tabs ($template, $record, $dbh,$encoding);
+ 	build_hidden_data;
  }
  
! # build_tabs ($template, $record, $dbh,$encoding);
! # build_hidden_data;
  $template->param(
  	authid                       => $authid,