[Koha-cvs] CVS: koha/updater updatedatabase,1.55,1.56

[Paul POULAIN]

Update of /cvsroot/koha/koha/updater
In directory sc8-pr-cvs1:/tmp/cvs-serv14807/updater

Modified Files:
        updatedatabase 
Log Message:


Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.55
retrieving revision 1.56
diff -C2 -r1.55 -r1.56
*** updatedatabase      7 Jul 2003 15:36:13 -0000       1.55
--- updatedatabase      7 Jul 2003 15:37:20 -0000       1.56
***************
*** 717,724 ****
                        }
  # if it's a primary key, drop the previous pk, before altering the table
                        if ($key eq 'PRI') {
!                               my $sth =$dbh->prepare("alter table $table 
change $field $field $type $null $key $extra default ?");
                        } else {
!                               my $sth =$dbh->prepare("alter table $table drop 
primary key, change $field $field $type $null $key $extra default ?");
                        }
                        $sth->execute($default);
--- 717,725 ----
                        }
  # if it's a primary key, drop the previous pk, before altering the table
+                       my $sth;
                        if ($key eq 'PRI') {
!                               $sth =$dbh->prepare("alter table $table change 
$field $field $type $null $key $extra default ?");
                        } else {
!                               $sth =$dbh->prepare("alter table $table drop 
primary key, change $field $field $type $null $key $extra default ?");
                        }
                        $sth->execute($default);
***************
*** 869,874 ****
  
  # $Log$
! # Revision 1.55  2003/07/07 15:36:13  tipaul
! # (again) fix to avoid errors when creating fields that are primary keys and 
a previous primary key exist.
  #
  # Revision 1.53  2003/07/07 14:11:16  tipaul
--- 870,875 ----
  
  # $Log$
! # Revision 1.56  2003/07/07 15:37:20  tipaul
! # *** empty log message ***
  #
  # Revision 1.53  2003/07/07 14:11:16  tipaul