[Koha-cvs] CVS: koha/updater updatedatabase,1.82,1.83

[Paul POULAIN]

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

Modified Files:
        updatedatabase 
Log Message:
MARC authority management (continued)

Index: updatedatabase
===================================================================
RCS file: /cvsroot/koha/koha/updater/updatedatabase,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -r1.82 -r1.83
*** updatedatabase      3 Jun 2004 12:46:58 -0000       1.82
--- updatedatabase      10 Jun 2004 08:32:02 -0000      1.83
***************
*** 213,216 ****
--- 213,217 ----
                                        authtypetext char(255) not NULL,
                                        auth_tag_to_report char(3) not NULL,
+                                       summary text not NULL,
                                        PRIMARY KEY (authtypecode)
                        )",
***************
*** 262,266 ****
                                                subfieldorder tinyint(4) NOT 
NULL default '1',
                                                subfieldvalue varchar(255) 
default NULL,
-                                               valuebloblink bigint(20) 
default NULL,
                                                PRIMARY KEY  (subfieldid),
                                                KEY authid (authid),
--- 263,266 ----
***************
*** 1112,1115 ****
--- 1112,1132 ----
  }
  
+ # changing the marc_subfield_structure table around...
+ my %marc_subfield_structure;
+ 
+ $sth = $dbh->prepare("show columns from marc_subfield_structure");
+ $sth->execute;
+ while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow 
)
+ {
+     $marc_subfield_structure{$column} = $type;
+ }
+ 
+ if ($marc_subfield_structure{thesaurus_category}) {
+     print "  changing thesaurus_category in marc_subfield_structure table\n";
+     my $sti =
+       $dbh->prepare("ALTER TABLE marc_subfield_structure CHANGE 
`thesaurus_category` `authtypecode` VARCHAR(10 ) DEFAULT NULL");
+     $sti->execute;
+ }
+ 
  #
  # creating  index in issuingrules if needed
***************
*** 1184,1187 ****
--- 1201,1207 ----
  
  # $Log$
+ # Revision 1.83  2004/06/10 08:32:02  tipaul
+ # MARC authority management (continued)
+ #
  # Revision 1.82  2004/06/03 12:46:58  tipaul
  # * frameworks and itemtypes are independant