[Koha-cvs] CVS: koha/updater updatedatabase,1.70.2.1,1.70.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
        updatedatabase 
Log Message:
new index in z3950results table

Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.70.2.1
retrieving revision 1.70.2.2
diff -C2 -r1.70.2.1 -r1.70.2.2
*** updatedatabase      18 Dec 2003 17:22:24 -0000      1.70.2.1
--- updatedatabase      20 Jan 2004 09:46:53 -0000      1.70.2.2
***************
*** 857,860 ****
--- 857,875 ----
  $dbh->do('create fulltext index category_2 on bibliothesaurus 
(category,freelib)') unless $exists;
  
+ #
+ # creating  index in z3950results if needed
+ #
+ $sth = $dbh->prepare("show index from z3950results");
+ $sth->execute;
+ my $exists=0;
+ while ( my ( $table, $non_unique, $key_name, $Seq_in_index, $Column_name, 
$Collation, $cardinality, $sub_part, $Packed, $comment ) = $sth->fetchrow )
+ {
+       if ($key_name eq 'query_server') {
+               $exists=1;
+       }
+ }
+ print "Creating  index on z3950results\n" unless $exists;
+ $dbh->do('create unique index query_server on z3950results (queryid,server)') 
unless $exists;
+ 
  # changing z3950daemon field to NULL in marc_breeding
  $dbh->do("ALTER TABLE `marc_breeding` CHANGE `z3950random` `z3950random` 
VARCHAR( 40 )");
***************
*** 982,985 ****
--- 997,1003 ----
  
  # $Log$
+ # Revision 1.70.2.2  2004/01/20 09:46:53  tipaul
+ # new index in z3950results table
+ #
  # Revision 1.70.2.1  2003/12/18 17:22:24  tipaul
  # fix for 625