[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