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