[Koha-cvs] CVS: koha/updater updatedatabase,1.4.2.22,1.4.2.23

[Steve Tonnesen]

Update of /cvsroot/koha/koha/updater
In directory usw-pr-cvs1:/tmp/cvs-serv8409/updater

Modified Files:
      Tag: rel-1-2
        updatedatabase 
Log Message:
Added admin script for editing z39.50 server list.


Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.4.2.22
retrieving revision 1.4.2.23
diff -C2 -r1.4.2.22 -r1.4.2.23
*** updatedatabase      25 Oct 2002 17:34:33 -0000      1.4.2.22
--- updatedatabase      25 Oct 2002 18:28:39 -0000      1.4.2.23
***************
*** 159,162 ****
--- 159,165 ----
        { field => 'printername', type => 'char(40)', null => '', key => 'PRI', 
default => '' },
        ],
+ z3950servers => [
+       { field => 'id', type => 'int', null => '', key => 'PRI', default => 
'', extra => 'auto_increment' },
+       ],
  );
  
***************
*** 255,262 ****
  } # foreach table
  
- #my %fielddefinitions=(
- #printers => [
- #     { field => 'printername', type => 'char(40)', null => '', key => 'PRI', 
default='' },
- #);
  foreach $table ( keys %fielddefinitions ) {
      print "Check table $table\n" if $debug;
--- 258,261 ----
***************
*** 278,283 ****
        my $key = $row->{key};
        my $default = $row->{default};
        my $def=$definitions->{$field};
!       unless ($type eq $def->{type} && $null eq $def->{null} && $key eq 
$def->{key} && $default eq $def->{default}) {
            if ($null eq '') {
                $null='NOT NULL';
--- 277,283 ----
        my $key = $row->{key};
        my $default = $row->{default};
+       my $extra = $row->{extra};
        my $def=$definitions->{$field};
!       unless ($type eq $def->{type} && $null eq $def->{null} && $key eq 
$def->{key} && $default eq $def->{default} && $extra eq $def->{extra}) {
            if ($null eq '') {
                $null='NOT NULL';
***************
*** 286,290 ****
                $key ='PRIMARY KEY';
            }
!           my $sth=$dbh->prepare("alter table $table change $field $field 
$type $null $key default ?");
            $sth->execute($default);
            print "  Alter $field in $table\n";
--- 286,293 ----
                $key ='PRIMARY KEY';
            }
!           unless ($extra eq 'auto_increment') {
!               $extra='';
!           }
!           my $sth=$dbh->prepare("alter table $table change $field $field 
$type $null $key $extra default ?");
            $sth->execute($default);
            print "  Alter $field in $table\n";
***************
*** 401,404 ****
--- 404,410 ----
  
  # $Log$
+ # Revision 1.4.2.23  2002/10/25 18:28:39  tonnesen
+ # Added admin script for editing z39.50 server list.
+ #
  # Revision 1.4.2.22  2002/10/25 17:34:33  tonnesen
  # Initialize the dateformat systempreference variable to 'metric' if it 
doesn't