koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/updater updatedatabase,1.76,1.77


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/updater updatedatabase,1.76,1.77
Date: Thu, 06 May 2004 07:56:54 -0700

Update of /cvsroot/koha/koha/updater
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12789/updater

Modified Files:
        updatedatabase 
Log Message:
adding table issuingrules (previously called categoryitem

Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -r1.76 -r1.77
*** updatedatabase      3 May 2004 09:32:25 -0000       1.76
--- updatedatabase      6 May 2004 14:56:51 -0000       1.77
***************
*** 252,256 ****
      bookshelf => {'owner' => 'char(80)',
                                        'category' => 'char(1)',
!                               }
  );
  
--- 252,256 ----
      bookshelf => {'owner' => 'char(80)',
                                        'category' => 'char(1)',
!                               },
  );
  
***************
*** 714,717 ****
--- 714,722 ----
      $sti->execute;
  }
+ unless ( $existingtables{'issuingrules'} ) {
+       $dbh->do("alter table categoryitem rename issuingrules");
+       print "renaming categoryitem\n";
+ }
+ 
  
  #---------------------------------
***************
*** 996,999 ****
--- 1001,1020 ----
  }
  
+ #
+ # creating  index in issuingrules if needed
+ #
+ $sth = $dbh->prepare("show index from issuingrules");
+ $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 'PRIMARY') {
+               $exists=1;
+       }
+ }
+ print "Creating  index on z3950results\n" unless $exists;
+ $dbh->do('ALTER TABLE issuingrules ADD PRIMARY KEY ( branchcode, 
categorycode, itemtype )') unless $exists;
+ 
+ 
  # Populate tables with required data
  
***************
*** 1047,1050 ****
--- 1068,1074 ----
  
  # $Log$
+ # Revision 1.77  2004/05/06 14:56:51  tipaul
+ # adding table issuingrules (previously called categoryitem
+ #
  # Revision 1.76  2004/05/03 09:32:25  tipaul
  # adding printcirculationsplit parameter (already existed, but was not in 
systempref by defaul)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]