# - Would also be a good idea to offer to do a backup at this time...
# NOTE: If you do something more than once in here, make it table driven.
-
+use lib "/usr/koha200pre2/modules";
use strict;
# CPAN modules
use DBI;
-
+use Getopt::Long;
# Koha modules
use C4::Context;
# FIXME - The user might be installing a new database, so can't rely
# on /etc/koha.conf anyway.
-my $debug = 1;
+my $debug = 0;
my (
$sth, $sti,
$prefitem, # preference item in systempreferences table
);
+my $silent;
+GetOptions(
+ 's' =>\$silent
+ );
my $dbh = C4::Context->dbh;
+print "connected to your DB. Checking & modifying it\n" unless $silent;
#-------------------
# Defines
flag char(30), flagdesc char(255),
defaulton int(11)
)",
+ auth_types => "(
+ authtypecode char(10) not NULL,
+ authtypetext char(255) not NULL,
+ auth_tag_to_report char(3) not NULL,
+ summary text not NULL,
+ PRIMARY KEY (authtypecode)
+ )",
+ biblio_framework => "(
+ frameworkcode char(4) not NULL,
+ frameworktext char(255) not NULL,
+ PRIMARY KEY (frameworkcode)
+ )",
+ auth_subfield_structure => "(
+ authtypecode char(10) NOT NULL default '',
+ tagfield char(3) NOT NULL default '',
+ tagsubfield char(1) NOT NULL default '',
+ liblibrarian char(255) NOT NULL default '',
+ libopac char(255) NOT NULL default '',
+ repeatable tinyint(4) NOT NULL default '0',
+ mandatory tinyint(4) NOT NULL default '0',
+ tab tinyint(1) default NULL,
+ authorised_value char(10) default NULL,
+ value_builder char(80) default NULL,
+ seealso char(255) default NULL,
+ PRIMARY KEY (authtypecode,tagfield,tagsubfield),
+ KEY tab (authtypecode,tab)
+ )",
+ auth_tag_structure => "(
+ authtypecode char(10) NOT NULL default '',
+ tagfield char(3) NOT NULL default '',
+ liblibrarian char(255) NOT NULL default '',
+ libopac char(255) NOT NULL default '',
+ repeatable tinyint(4) NOT NULL default '0',
+ mandatory tinyint(4) NOT NULL default '0',
+ authorised_value char(10) default NULL,
+ PRIMARY KEY (authtypecode,tagfield)
+ )",
+ auth_header => "(
+ authid bigint(20) unsigned NOT NULL auto_increment,
+ authtypecode char(10) NOT NULL default '',
+ datecreated date NOT NULL default '0000-00-00',
+ datemodified date default NULL,
+ origincode char(20) default NULL,
+ PRIMARY KEY (authid),
+ KEY origincode (origincode)
+ ) ",
+ auth_subfield_table => "(
+ subfieldid bigint(20) unsigned NOT NULL auto_increment,
+ authid bigint(20) unsigned NOT NULL default '0',
+ tag char(3) NOT NULL default '',
+ tagorder tinyint(4) NOT NULL default '1',
+ tag_indicator char(2) NOT NULL default '',
+ subfieldcode char(1) NOT NULL default '',
+ subfieldorder tinyint(4) NOT NULL default '1',
+ subfieldvalue varchar(255) default NULL,
+ PRIMARY KEY (subfieldid),
+ KEY authid (authid),
+ KEY tag (tag),
+ KEY subfieldcode (subfieldcode),
+ KEY subfieldvalue (subfieldvalue)
+ )",
+ auth_word => "(
+ authid bigint(20) NOT NULL default '0',
+ tagsubfield char(4) NOT NULL default '',
+ tagorder tinyint(4) NOT NULL default '1',
+ subfieldorder tinyint(4) NOT NULL default '1',
+ word varchar(255) NOT NULL default '',
+ sndx_word varchar(255) NOT NULL default '',
+ KEY authid (authid),
+ KEY marc_search (tagsubfield,word),
+ KEY word (word),
+ KEY sndx_word (sndx_word)
+ )",
+ suggestions => "(
+ suggestionid int(8) NOT NULL auto_increment,
+ suggestedby int(11) NOT NULL default '0',
+ managedby int(11) default NULL ,
+ STATUS varchar(10) NOT NULL default '',
+ note text,
+ author varchar(80) default NULL ,
+ title varchar(80) default NULL ,
+ copyrightdate smallint(6) default NULL ,
+ publishercode varchar(255) default NULL ,
+ date timestamp(8) NOT NULL ,
+ volumedesc varchar(255) default NULL ,
+ publicationyear smallint(6) default '0',
+ place varchar(255) default NULL ,
+ isbn varchar(10) default NULL ,
+ mailoverseeing smallint(1) default '0',
+ biblionumber int(11) default NULL ,
+ PRIMARY KEY (suggestionid) ,
+ KEY suggestedby(suggestedby) ,
+ KEY managedby(managedby)
+ )",
+ aqbasket => "(basketno int(11) NOT NULL auto_increment,
+ creationdate date,
+ closedate date,
+ booksellerid varchar(10),
+ authorisedby varchar(10),
+ booksellerinvoicenumber text,
+ PRIMARY KEY (basketno)
+ )",
+ serial => "(serialid int(11) NOT NULL auto_increment,
+ biblionumber varchar(100) NOT NULL default '',
+ subscriptionid varchar(100) NOT NULL default '',
+ serialseq varchar(100) NOT NULL default '',
+ status tinyint(4) NOT NULL default '0',
+ planneddate date NOT NULL default '0000-00-00',
+ PRIMARY KEY (serialid)
+ )",
+ subscription => "(biblionumber int(11) NOT NULL default '0',
+ subscriptionid int(11) NOT NULL auto_increment,
+ librarian varchar(100) default '',
+ startdate date default '0000-00-00',
+ aqbooksellerid int(11) default '0',
+ cost int(11) default '0',
+ aqbudgetid int(11) default '0',
+ weeklength tinyint(4) default '0',
+ monthlength tinyint(4) default '0',
+ numberlength tinyint(4) default '0',
+ periodicity tinyint(4) default '0',
+ dow varchar(100) default '',
+ numberingmethod varchar(100) default '',
+ notes text,
+ status varchar(100) NOT NULL default '',
+ add1 int(11) default 0,
+ every1 int(11) default 0,
+ whenmorethan1 int(11) default 0,
+ setto1 int(11),
+ lastvalue1 int(11),
+ add2 int(11) default 0,
+ every2 int(11) default 0,
+ whenmorethan2 int(11) default 0,
+ setto2 int(11),
+ lastvalue2 int(11),
+ add3 int(11) default 0,
+ every3 int(11) default 0,
+ innerloop1 int(11) default 0,
+ innerloop2 int(11) default 0,
+ innerloop3 int(11) default 0,
+ whenmorethan3 int(11) default 0,
+ setto3 int(11),
+ lastvalue3 int(11),
+ PRIMARY KEY (subscriptionid)
+ )",
+ subscriptionhistory => "(biblionumber int(11) NOT NULL default '0',
+ subscriptionid int(11) NOT NULL default '0',
+ histstartdate date NOT NULL default '0000-00-00',
+ enddate date default '0000-00-00',
+ missinglist longtext NOT NULL,
+ recievedlist longtext NOT NULL,
+ opacnote varchar(150) NOT NULL default '',
+ librariannote varchar(150) NOT NULL default '',
+ PRIMARY KEY (subscriptionid),
+ KEY biblionumber (biblionumber)
+ )",
+ categorytable => "(categorycode char(5) NOT NULL default '',
+ description text default '',
+ itemtypecodes text default '',
+ PRIMARY KEY (categorycode)
+ )",
+ subcategorytable => "(subcategorycode char(5) NOT NULL default '',
+ description text default '',
+ itemtypecodes text default '',
+ PRIMARY KEY (subcategorycode)
+ )",
+ mediatypetable => "(mediatypecode char(5) NOT NULL default '',
+ description text default '',
+ itemtypecodes text default '',
+ PRIMARY KEY (mediatypecode)
+ )",
);
my %requirefields = (
biblio => { 'abstract' => 'text' },
- deletedbiblio => { 'abstract' => 'text' },
+ deletedbiblio => { 'abstract' => 'text', 'marc' => 'blob' },
+ deleteditems => { 'marc' => 'blob', 'paidfor' => 'text', 'location' => 'varchar(80)'},
biblioitems => {
'lccn' => 'char(25)',
'url' => 'varchar(255)',
'nocalc' => 'int(11)'
},
borrowers => {
- 'userid' => 'char(30)',
- 'password' => 'char(30)',
- 'flags' => 'int(11)',
- 'textmessaging' => 'varchar(30)',
- 'zipcode' => 'varchar(25)',
- 'homezipcode' => 'varchar(25)',
+ 'userid' => 'char(30)',
+ 'password' => 'char(30)',
+ 'flags' => 'int(11)',
+ 'textmessaging' => 'varchar(30)',
+ 'zipcode' => 'varchar(25)',
+ 'homezipcode' => 'varchar(25)',
+ 'sort1' => 'char(80)',
+ 'sort2' => 'char(80)',
},
- aqorders => { 'budgetdate' => 'date' },
+ aqorders => { 'budgetdate' => 'date',
+ 'sort1' => 'char(80)',
+ 'sort2' => 'char(80)', },
aqbudget => {'aqbudgetid' => 'tinyint(4) auto_increment primary key'},
+ items => {'paidfor' => 'text', 'location' => 'char(80)'},
#added so that reference items are not available for reserves...
itemtypes => { 'notforloan' => 'smallint(6)' },
'type' => 'char(20)',
'options' => 'text' },
z3950servers => { 'syntax' => 'char(80)' },
+ marc_tag_structure =>{
+ 'frameworkcode' => 'char(4) not NULL default \'\''},
+ marc_subfield_structure =>{'seealso' => 'char(255)',
+ 'frameworkcode' => 'char(4) not NULL default \'\'',
+ 'hidden' => 'tinyint(1)',
+ 'isurl' => 'tinyint(1)',
+ 'link' => 'char(80)',
+ },
+ bookshelf => {'owner' => 'char(80)',
+ 'category' => 'char(1)',
+ },
+ marc_biblio => { 'frameworkcode' => 'char(4) not NULL default \'\'' },
);
my %dropable_table = (
serialissues => 'serialissues',
);
+my %uselessfields = (
+ aqorders => "requisitionedby,authorisedby,booksellerid,
+ deliverydays,followupdays,
+ numberfollowupsallowed,numberfollowupssent,
+ dateprinted,sourced,quantityreceiveddamaged,
+ subscriptionfrom,subscriptionto
+ "
+ );
# the other hash contains other actions that can't be done elsewhere. they are done
# either BEFORE of AFTER everything else, depending on "when" entry (default => AFTER)
flagdesc => 'Update borrower charges',
defaulton => 0
},
+ {
+ uniquefieldrequired => 'bit',
+ bit => 11,
+ flag => 'acquisition',
+ flagdesc => 'Acquisition and/or suggestion management',
+ defaulton => 0
+ },
+ {
+ uniquefieldrequired => 'bit',
+ bit => 12,
+ flag => 'management',
+ flagdesc => 'Set library management parameters',
+ defaulton => 0
+ },
+ {
+ uniquefieldrequired => 'bit',
+ bit => 13,
+ flag => 'tools',
+ flagdesc => 'Use tools (export, import, barcodes)',
+ defaulton => 0
+ },
],
systempreferences => [
{
uniquefieldrequired => 'variable',
forceupdate => { 'explanation' => 1,
'type' => 1 },
+ variable => 'LibraryName',
+ value => '<i><b>Koha<br/>Free Software ILS<br/><br/></b>Koha : a gift, a contribution<br/> in Maori</i>',
+ explanation => 'Library name as shown on main opac page',
+ type => ''
+
+ },
+ {
+ uniquefieldrequired => 'variable',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
variable => 'autoMemberNum',
value => '1',
explanation => 'Member number is auto-calculated',
'type' => 1,
'options' => 1 },
variable => 'acquisitions',
- value => 'simple',
+ value => 'normal',
explanation =>
'Normal, budget-based acquisitions, or Simple bibliographic-data acquisitions',
type => 'Choice',
variable => 'dateformat',
value => 'metric',
explanation =>
- 'date format (US mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy/mm/dd)',
+ 'date format (us mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy/mm/dd)',
type => 'Choice',
options => 'metric|us|iso'
},
variable => 'opacthemes',
forceupdate => { 'explanation' => 1,
'type' => 1 },
- value => 'default',
+ value => 'css',
explanation => 'Set the preferred order for themes. The top theme will be tried first.',
type => 'Themes'
},
explanation => 'the gist rate. NOT in %, but in numeric form (0.12 for 12%)',
type => 'free'
},
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'printcirculationslips',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
+ value => '0',
+ explanation => 'if set to 1, print circulation slips. If set to 0, don\'t',
+ type => 'free'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'suggestion',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
+ value => '0',
+ explanation => 'if set to 1, suggestions are activated in OPAC',
+ type => 'free'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'ISBD',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
+ value => 'Fill with appropriate value...',
+ explanation => 'ISBD',
+ type => 'free'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'virtualshelves',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
+ value => '0',
+ explanation => 'Set virtual shelves management ON or OFF',
+ type => 'YesNo'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'itemcallnumber',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1 },
+ value => '676a',
+ explanation => 'The MARC field/subfield that is used to calculate the itemcallnumber (in UNIMARC : 676a for Dewey, 680a for Loc)',
+ type => 'free'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'BiblioDefaultView',
+ value => 'normal',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1,
+ 'options' => 1},
+ explanation => 'Define the default view of a biblio. Can be either normal, marc or isbd',
+ type => 'Choice',
+ options => 'normal|marc|isbd'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'opacstylesheet',
+ value => '',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1},
+ explanation => 'Enter a complete URL to use an alternate stylesheet in OPAC',
+ type => 'free',
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'opacsmallimage',
+ value => '',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1},
+ explanation => 'Enter a complete URL to an image, will be on top/left instead of the Koha logo',
+ type => 'free',
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'opaclargeimage',
+ value => '',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1},
+ explanation => 'Enter a complete URL to an image, will be on the main page, instead of the Koha logo',
+ type => 'free',
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'delimiter',
+ value => ';',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1},
+ explanation => 'separator for reports exported to spreadsheet',
+ type => 'free',
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'MIME',
+ value => 'OPENOFFICE.ORG',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1,
+ 'options' => 1},
+ explanation => 'Define the default application for report exportations into files',
+ type => 'Choice',
+ options => 'EXCEL|OPENOFFICE.ORG'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'Delimiter',
+ value => ';',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1,
+ 'options' => 1},
+ explanation => 'Define the default separator character for report exportations into files',
+ type => 'Choice',
+ options => ';|tabulation|,|/|\|#'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'SubscriptionHistory',
+ value => ';',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1,
+ 'options' => 1},
+ explanation => 'Define the information level for serials history in OPAC',
+ type => 'Choice',
+ options => 'simplified|full'
+ },
+ {
+ uniquefieldrequired => 'variable',
+ variable => 'hidelostitems',
+ value => 'No',
+ forceupdate => { 'explanation' => 1,
+ 'type' => 1},
+ explanation => 'show or hide "lost" items in OPAC.',
+ type => 'YesNo',
+ },
],
);
$mysqlversion =~ /Ver (\S*) /;
$mysqlversion = $1;
if ( $mysqlversion ge '3.23' ) {
- print "Could convert to MyISAM database tables...\n";
+ print "Could convert to MyISAM database tables...\n" unless $silent;
}
#---------------------------------
# Now add any missing tables
foreach $table ( keys %requiretables ) {
- print "Checking $table table...\n" if $debug;
unless ( $existingtables{$table} ) {
- print "Adding $table table...\n";
+ print "Adding $table table...\n" unless $silent;
my $sth = $dbh->prepare("create table $table $requiretables{$table}");
$sth->execute;
if ( $sth->err ) {
# now drop useless tables
foreach $table ( keys %dropable_table ) {
- print "Dropping unused tables...\n" if $debug;
- if ( $existingtables{$table} ) {
- $dbh->do("drop table $table");
- if ( $dbh->err ) {
- print "Error : $dbh->errstr \n";
- }
- }
+ if ( $existingtables{$table} ) {
+ print "Dropping unused table $table\n" if $debug and not $silent;
+ $dbh->do("drop table $table");
+ if ( $dbh->err ) {
+ print "Error : $dbh->errstr \n";
+ }
+ }
}
unless ( $existingtables{'z3950servers'} ) {
- print "Adding z3950servers table...\n";
+ #MJR: added syntax entries to close bug 624
+ print "Adding z3950servers table...\n" unless $silent;
my $sti = $dbh->prepare( "create table z3950servers (
host char(255),
port int,
name text,
id int,
checked smallint,
- rank int)"
+ rank int,
+ syntax char(80))"
);
$sti->execute;
$sti = $dbh->prepare( "insert into z3950servers
'voyager',
'', '',
'Library of Congress',
- 1, 1, 1)"
+ 1, 1, 1, 'USMARC')"
);
$sti->execute;
}
+unless ( $existingtables{'issuingrules'} ) {
+ $dbh->do("alter table categoryitem rename issuingrules");
+ $dbh->do("ALTER TABLE issuingrules ADD maxissueqty int(4) default NULL");
+ $dbh->do("ALTER TABLE issuingrules ADD issuelength int(4) default NULL");
+ $dbh->do("ALTER TABLE issuingrules ADD branchcode varchar(4) NOT NULL default ''");
+ print "renaming categoryitem\n" unless $silent;
+}
+
#---------------------------------
# Columns
foreach $table ( keys %requirefields ) {
- print "Check table $table\n" if $debug;
+ print "Check table $table\n" if $debug and not $silent;
$sth = $dbh->prepare("show columns from $table");
$sth->execute();
undef %types;
$types{$column} = $type;
} # while
foreach $column ( keys %{ $requirefields{$table} } ) {
- print " Check column $column [$types{$column}]\n" if $debug;
+ print " Check column $column [$types{$column}]\n" if $debug and not $silent;
if ( !$types{$column} ) {
# column doesn't exist
- print "Adding $column field to $table table...\n";
+ print "Adding $column field to $table table...\n" unless $silent;
$query = "alter table $table
add column $column " . $requirefields{$table}->{$column};
print "Execute: $query\n" if $debug;
$sth =$dbh->prepare("alter table $table drop primary key, $action $field $type $null $key $extra default ?");
}
$sth->execute($default);
- print " Alter $field in $table\n";
+ print " Alter $field in $table\n" unless $silent;
}
}
}
-# Get list of columns from items table
+# Get list of columns from borrowers table
my %itemtypes;
my %nullenabled;
+$sth = $dbh->prepare("show columns from borrowers");
+$sth->execute;
+while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
+{
+ $itemtypes{$column} = $type;
+ $nullenabled{$column} = $null;
+}
+
+unless ( $itemtypes{'cardnumber'} eq 'varchar(20)' ) {
+ $itemtypes{'cardnumber'} =~ /varchar\((\d+)\)/;
+ my $oldlength = $1;
+ if ( $oldlength < 16 ) {
+ print "Setting maximum cardnumber length to 16 (was $oldlength) and marking unique.\n" unless $silent;
+ my $sti =
+ $dbh->prepare(
+ "alter table borrowers change cardnumber cardnumber varchar(16)");
+ $sti->execute;
+ $sti->finish;
+ $sti =
+ $dbh->prepare(
+ "alter table borrowers drop index cardnumber");
+ $sti->execute;
+ $sti->finish;
+ $sti =
+ $dbh->prepare(
+ "alter table borrowers add unique(cardnumber)");
+ $sti->execute;
+ $sti->finish;
+ }
+}
+#
+# Get list of columns from items table
$sth = $dbh->prepare("show columns from items");
$sth->execute;
while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
$itemtypes{'barcode'} =~ /varchar\((\d+)\)/;
my $oldlength = $1;
if ( $oldlength < 20 ) {
- print "Setting maximum barcode length to 20 (was $oldlength).\n";
+ print "Setting maximum barcode length to 20 (was $oldlength).\n" unless $silent;
my $sti =
$dbh->prepare(
"alter table items change barcode barcode varchar(20)");
while ( my ( $table, $non_unique, $key_name, $Seq_in_index, $Column_name, $Collation, $cardinality, $sub_part, $Packed, $comment ) = $sth->fetchrow )
{
if ($key_name eq 'barcode' && $non_unique eq 0) {
- print "dropping BARCODE index to enable empty barcodes\n";
+ print "dropping BARCODE index to enable empty barcodes\n" unless $silent;
$dbh->do("ALTER TABLE `items` DROP INDEX `barcode`");
}
}
$dbh->do("ALTER TABLE `items` CHANGE `barcode` `barcode` VARCHAR( 20 )") unless ($nullenabled{barcode} eq 'YES');
+#
+# creating fulltext index in bibliothesaurus if needed
+#
+$sth = $dbh->prepare("show index from bibliothesaurus");
+$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 'category_2') {
+ $exists=1;
+ }
+}
+print "Creating fulltext index on bibliothesaurus\n" unless $exists or $silent;
+$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 or $silent;
+$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 )");
+# making borrowernumber an auto_increment field
+$dbh->do("ALTER TABLE `borrowers` CHANGE `borrowernumber` `borrowernumber` INTEGER auto_increment");
+
+# changing indexes in marc_*_structure to use frameworkcode
+$dbh->do('alter table marc_subfield_structure drop index tab');
+$dbh->do('create index tab on marc_subfield_structure (frameworkcode,tab)');
+$dbh->do('alter table marc_subfield_structure drop index kohafield');
+$dbh->do('create index kohafield on marc_subfield_structure (frameworkcode,kohafield)');
+
+
# extending the timestamp in branchtransfers...
my %branchtransfers;
}
unless ( $branchtransfers{'datesent'} eq 'datetime' ) {
- print "Setting type of datesent in branchtransfers to datetime.\n";
+ print "Setting type of datesent in branchtransfers to datetime.\n" unless $silent;
my $sti =
$dbh->prepare(
"alter table branchtransfers change datesent datesent datetime");
}
unless ( $branchtransfers{'datearrived'} eq 'datetime' ) {
- print "Setting type of datearrived in branchtransfers to datetime.\n";
+ print "Setting type of datearrived in branchtransfers to datetime.\n" unless $silent;
my $sti =
$dbh->prepare(
"alter table branchtransfers change datearrived datearrived datetime");
unless ( $branchcategories{'categorycode'} eq 'varchar(4)' ) {
print
-"Setting type of categorycode in branchcategories to varchar(4),\n and making the primary key.\n";
+"Setting type of categorycode in branchcategories to varchar(4),\n and making the primary key.\n" unless $silent;
my $sti =
$dbh->prepare(
"alter table branchcategories change categorycode categorycode varchar(4) not null"
}
unless ( $branchcategories{'categoryname'} eq 'text' ) {
- print "Changing branchcode in branchcategories to categoryname text.\n";
+ print "Changing branchcode in branchcategories to categoryname text.\n" unless $silent;
my $sth =
$dbh->prepare(
"alter table branchcategories change branchcode categoryname text");
unless ( $branchcategories{'codedescription'} eq 'text' ) {
print
-"Replacing branchholding in branchcategories with codedescription text.\n";
+"Replacing branchholding in branchcategories with codedescription text.\n" unless $silent;
my $sth =
$dbh->prepare(
"alter table branchcategories change branchholding codedescription text"
$sth->execute;
}
+# changing the items table around...
+my %items;
+
+$sth = $dbh->prepare("show columns from items");
+$sth->execute;
+while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
+{
+ $items{$column} = $type;
+}
+
+if ($items{'bulk'} eq "varchar(30)") {
+ print " Setting callnumber in items table\n" unless $silent;
+ my $sti =
+ $dbh->prepare("ALTER TABLE `items` CHANGE `bulk` `itemcallnumber` VARCHAR( 30 ) DEFAULT NULL");
+ $sti->execute;
+ $sti = $dbh->prepare("update marc_subfield_structure set kohafield=\"items.itemcallnumber\" where kohafield=\"items.bulk\"");
+ $sti->execute;
+}
+
+# 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" unless $silent;
+ 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
+#
+$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 issuing rules\n" unless $exists or $silent;
+$dbh->do('ALTER TABLE issuingrules ADD PRIMARY KEY ( branchcode, categorycode, itemtype )') unless $exists;
+
+$dbh->do('ALTER TABLE marc_tag_structure drop primary key');
+$dbh->do('ALTER TABLE marc_tag_structure ADD PRIMARY KEY ( frameworkcode, tagfield )');
+
+$dbh->do('ALTER TABLE marc_subfield_structure drop primary key');
+$dbh->do('ALTER TABLE marc_subfield_structure ADD PRIMARY KEY ( frameworkcode, tagfield, tagsubfield )');
+
+# Get list of columns from marc_word table
+my %marc_word;
+my %nullenabled;
+$sth = $dbh->prepare("show columns from marc_word");
+$sth->execute;
+while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
+{
+ $marc_word{$column} = $type;
+ $nullenabled{$column} = $null;
+}
+if ($marc_word{subfieldid}) {
+ #create field tagsubfield, copy tag+subfieldid, then drop tag and subfieldid
+ print "Modifying marc_word (concat on tag and subfield for better perfs)\n" unless $silent;
+ $dbh->do("ALTER TABLE `marc_word` ADD `tagsubfield` CHAR( 4 ) NOT NULL AFTER `bibid`");
+ $dbh->do("update marc_word set tagsubfield=concat(tag,subfieldid)");
+ $dbh->do("alter table marc_word drop tag");
+ $dbh->do("alter table marc_word drop subfieldid");
+ $dbh->do("create index Search_Marc on marc_word (tagsubfield,word)");
+}
# Populate tables with required data
+# fill aqbasket if it's empty and aqorder is not
+# => it means it has just been created & must be filled
+$sth = $dbh->prepare("select count(*) from aqbasket");
+$sth->execute;
+if ($sth->fetchrow == 0) {
+ $sth = $dbh->prepare("select count(*) from aqorders");
+ $sth->execute;
+ if ($sth->fetchrow >0) {
+ print "Populating new table aqbasket\n";
+ print "IMPORTANT NOTE: error message \"Duplicate entry 'X' for key 1\" may appear. it should not be a real trouble\n";
+ $sth=$dbh->prepare("select distinct basketno,booksellerid,authorisedby,entrydate,booksellerinvoicenumber from aqorders");
+ $sth->execute;
+ my ($basketno,$booksellerid,$authorisedby,$entrydate,$booksellerinvoicenumber);
+ my $sth2 = $dbh->prepare("insert into aqbasket (basketno,creationdate,booksellerid,authorisedby,booksellerinvoicenumber) values (?,?,?,?,?)");
+ while (($basketno,$booksellerid,$authorisedby,$entrydate,$booksellerinvoicenumber) = $sth->fetchrow) {
+ print "$basketno,$entrydate,$booksellerid,$authorisedby,$booksellerinvoicenumber\n";
+ $sth2->execute($basketno,$entrydate,$booksellerid,$authorisedby,$booksellerinvoicenumber);
+ }
+ }
+}
foreach my $table ( keys %tabledata ) {
- print "Checking for data required in table $table...\n";
+ print "Checking for data required in table $table...\n" unless $silent;
my $tablerows = $tabledata{$table};
foreach my $row (@$tablerows) {
my $uniquefieldrequired = $row->{uniquefieldrequired};
}
}
} else {
- print "Adding row to $table: ";
+ print "Adding row to $table: " unless $silent;
my @values;
my $fieldlist;
my $placeholders;
next if $field eq 'forceupdate';
my $value = $row->{$field};
push @values, $value;
- print " $field => $value";
+ print " $field => $value" unless $silent;
$fieldlist .= "$field,";
$placeholders .= "?,";
}
- print "\n";
+ print "\n" unless $silent;
$fieldlist =~ s/,$//;
$placeholders =~ s/,$//;
my $sth =
}
}
+# at last, remove useless fields
+foreach $table ( keys %uselessfields ) {
+ my @fields = split /,/,$uselessfields{$table};
+ my $fields;
+ my $exists;
+ foreach my $fieldtodrop (@fields) {
+ $fieldtodrop =~ s/\t//g;
+ $fieldtodrop =~ s/\n//g;
+ $exists =0;
+ $sth = $dbh->prepare("show columns from $table");
+ $sth->execute;
+ while ( my ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow )
+ {
+ $exists =1 if ($column eq $fieldtodrop);
+ }
+ if ($exists) {
+ print "deleting $fieldtodrop field in $table...\n" unless $silent;
+ my $sth = $dbh->prepare("alter table $table drop $fieldtodrop");
+ $sth->execute;
+ }
+ }
+} # foreach
+
+
$sth->finish;
exit;
# $Log$
-# Revision 1.61 2003/10/01 15:03:45 tipaul
-# oups... typo fix in z3950random field definition
-#
-# Revision 1.59 2003/09/30 16:22:05 tipaul
-# adding barcode NOT mandatory feature. Just run updatedatabase to get it.
-# Note it's impossible to issue an item without barcode, as issue/returns is based on barcode...
+# Revision 1.105 2005/06/20 14:36:44 tipaul
+# synch'ing 2.2 and head
#
-# Revision 1.58 2003/07/16 04:08:29 acli
-# Minor spelling correction
-#
-# Revision 1.57 2003/07/11 11:50:29 tipaul
-# fixing a bug that occured when adding a field into a table.
-#
-# Revision 1.56 2003/07/07 15:37:20 tipaul
-# *** empty log message ***
-#
-# Revision 1.53 2003/07/07 14:11:16 tipaul
-# fixing bug #526 : gst rate is now calculated through systempref gist entry.
-# Before this fix :
-# * was harcoded to 12,5%
-# * some bugs in template parameters prevented the javascript to work.
-# * some bugs prevented some calculations to be done properly.
-#
-# Revision 1.52 2003/06/23 15:54:32 tipaul
-# *** empty log message ***
-#
-# Revision 1.51 2003/06/23 11:27:29 tipaul
-# *** empty log message ***
+# Revision 1.100.2.5 2005/06/06 15:23:36 tipaul
+# adding a systempref to choose either to show or hide "lost" items. Note that "lost items" can be related to an authorised value list, so does not necessary mean "item definetly lost". Even here, some libraries want to see lost items, and some don't want. This parameter will make everybody happy !
#
-# Revision 1.50 2003/06/11 21:28:22 tonnesen
-# Added modifications required to the systempreferences table by the new
-# systempreferences.pl script. The systempreferences.pl script will not work
-# properly until this table is updated.
+# Revision 1.100.2.4 2005/06/06 14:15:55 tipaul
+# adding 2 systemparameters to define an alternate image as logo in opac (the image on main page & on each top-left page)
#
-# Revision 1.49 2003/05/26 10:41:53 tipaul
-# bugfix : borrowers modifs overwritten by stupid hash entry existing twice.
+# Revision 1.100.2.3 2005/06/02 21:05:34 hdl
+# adding variable SubscriptionHistory
#
-# Revision 1.48 2003/05/20 19:50:45 slef
-# Initial fix to bug 456: hardwired paths
+# Revision 1.100.2.2 2005/03/29 15:41:43 tipaul
+# * new permissions : management & tools. You now have 2 new permissions :
+# - management : means the user can manage library parameters, but NOT system parameters.
+# - parameters : means the user can manage all parameters (including system parameters : marc structure, authorised values, system preferences. Was the only flag previously existing)
+# - tools : means the user can import/export datas & edit barcodes.
+# note that for compatibility reasons, a user having "parameters" can access everything.
+# * new permission scheme. In every template new variables are available. They are written CAN_user_permission, with permission being one of the permission flag. templates can now show or hidde menu entries depending on user permissions. For example, a user with just circ permissions should have only the "circulation" button on home page. Templates are NOT updated in this version (except for system parameters, as proof of concept), they will be in the next ones. But the scheme is ready.
#
-# Revision 1.47 2003/05/15 12:23:33 tipaul
-# adding zipcode and homezipcode into borrowers table (bug #246
+# Revision 1.100.2.1 2005/03/17 17:15:18 tipaul
+# defaulting opacstylesheet to '' instead of 'normal' (that is stupid)
#
-# Revision 1.46 2003/05/08 12:48:24 wolfpac444
-# Added "noissuescharge" parameter
+# Revision 1.100 2004/12/10 16:11:32 tipaul
+# Improvement : adding a systempref to define default view in OPAC (either normal, MARC or ISBD). Created automatically during install or update. Check that you have a Koha >> parameters >> systempreferences >> BiblioDefaultView, Variable type : Choice, Variable options : normal|marc|isbd
#
-# Revision 1.45 2003/05/08 12:26:16 wolfpac444
-# Bug fixes
+# Revision 1.99 2004/12/02 17:17:00 tipaul
+# adding acquisition permission
#
-# Revision 1.44 2003/05/03 05:39:57 rangi
-# Fixing bug 429
-# (Wording changes in the explanation fields in system preferences)
+# Revision 1.98 2004/11/26 20:26:49 tipaul
+# bugfix for auth_header creation
#
-# Revision 1.43 2003/05/02 23:01:09 rangi
-# Adding the textmessaging column to the borrowers table.
-# insertdata.pl is expecting this to exist, and hence modifying/adding
-# borrowers was broken.
+# Revision 1.97 2004/11/23 09:11:08 tipaul
+# adding itemcallnumber entry
#
-# Also ran they script thru perltidy
+# Revision 1.96 2004/11/16 13:03:45 tipaul
+# removing ldap systempref, it's now in C4/Auth_with_ldap.pm separate package
#
-# Revision 1.42 2003/04/29 16:53:25 tipaul
-# really proud of this commit :-)
-# z3950 search and import seems to works fine.
-# Let me explain how :
-# * a "search z3950" button is added in the addbiblio template.
-# * when clicked, a popup appears and z3950/search.pl is called
-# * z3950/search.pl calls addz3950search in the DB
-# * the z3950 daemon retrieve the records and stores them in z3950results AND in marc_breeding table.
-# * as long as there as searches pending, the popup auto refresh every 2 seconds, and says how many searches are pending.
-# * when the user clicks on a z3950 result => the parent popup is called with the requested biblio, and auto-filled
-#
-# Note :
-# * character encoding support : (It's a nightmare...) In the z3950servers table, a "encoding" column has been added. You can put "UNIMARC" or "USMARC" in this column. Depending on this, the char_decode in C4::Biblio.pm replaces marc-char-encode by an iso 8859-1 encoding. Note that in the breeding import this value has been added too, for a better support.
-# * the marc_breeding and z3950* tables have been modified : they have an encoding column and the random z3950 number is stored too for convenience => it's the key I use to list only requested biblios in the popup.
-#
-# Revision 1.41 2003/04/29 08:09:44 tipaul
-# z3950 support is coming...
-# * adding a syntax column in z3950 table = this column will say wether the z3950 must be called with PerferedRecordsyntax => USMARC or PerferedRecordsyntax => UNIMARC. I tried some french UNIMARC z3950 servers, and some only send USMARC, some only UNIMARC, some can answer with both.
-# Note this is a 1st draft. More to follow (today ? I hope).
-#
-# Revision 1.40 2003/04/22 10:48:27 wolfpac444
-# Added "father" column to bibliothesaurus table
-#
-# Revision 1.39 2003/04/04 08:45:00 tipaul
-# last commits before 1.9.1
-#
-# Revision 1.38 2003/03/18 10:58:19 tipaul
-# adding checkdigit parameter that choose how to check the members cardnumber.
-# At the moment :
-# * none = no checking
-# * katipo = checked as before
-#
-# Revision 1.37 2003/01/30 01:47:48 acli
-# Corrected syntax error reported by Benedict
+# Revision 1.95 2004/11/08 19:57:32 tipaul
+# bugfix
#
-# Made the indentation somewhat easier to read; the messiness probably caused
-# the original syntax error.
+# Revision 1.94 2004/09/06 10:00:29 tipaul
+# adding a "location" field to the library.
+# This field is useful when the callnumber contains no information on the room where the item is stored.
+# With this field, we now have 3 levels of informations to find a book :
+# * the branch.
+# * the location.
+# * the callnumber.
#
-# Revision 1.36 2003/01/28 15:13:30 tipaul
-# userflag table now created in upgrade script (bugfix #171)
+# This should be versatile enough to solve any storing method.
+# This hack is quite simple, due to the nice Biblio.pm API. The MARC => koha db link is automatically managed. Just add the link in the parameters section.
#
-# Revision 1.35 2003/01/27 03:12:49 acli
-# Reworded the description for "acquisitions" to make it fit on the screen
+# Revision 1.93 2004/08/12 14:50:50 tipaul
+# bugfixes
#
-# Added "iso" to dateformat, since dateformat is not yet being used anyway
+# Revision 1.92 2004/08/06 16:38:42 tipaul
+# changing DB structure to calculate next issue number.
+# Seems to work fine.
#
-# Revision 1.34 2003/01/23 12:30:02 tipaul
-# introducint marcflavour in systempref file : used for character decoding
+# Still misses the date calculation & the test of end of subscription (maybe for monday ?)
#
-# Revision 1.33 2003/01/21 09:03:27 tipaul
-# bugfix (NOTE : this bugs makes installation of the 1.3.3 a little fuzzy. Please fix your DB if you installed 1.3.3)
+# Revision 1.91 2004/07/15 09:52:28 tipaul
+# Acquisition & Suggestion :
+# * acquisition rewritte : create a aqbasket table to deal with "bookseller order header".
+# * add "close basket" feature : a closed basket can't be modified
+# * suggestion feature : manage suggestions in acquisition (after suggestion filled in OPAC)
#
-# Revision 1.32 2003/01/16 10:29:45 tipaul
-# adding a MARC parameter in systempref ( which is ON or OFF)
-# the search will be a marc search if MARC=ON
-# and a standard (v1.2) search if MARC=OFF
+# Revision 1.90 2004/07/06 08:24:18 tipaul
+# adding 2 free fields that can be used for sorting purposes
#
-# Revision 1.31 2003/01/06 13:32:43 tipaul
-# *** empty log message ***
+# Revision 1.89 2004/07/02 15:55:08 tipaul
+# Adding 2 new fields, called "sort1" and "sort2"
+# They can be used for sorting & statistics reasons by the library.
#
-# Revision 1.29 2003/01/06 11:14:11 tipaul
-# last bugfixes before 1.3.3 : systempref table correctly filled
+# Revision 1.88 2004/06/26 23:34:26 rangi
+# Fixing typo
#
-# Revision 1.28 2002/12/10 13:27:47 tipaul
-# bugfixes (davide mails in koha-dev)
+# Revision 1.87 2004/06/23 13:03:09 tipaul
+# fixes in DB structure
#
-# Revision 1.27 2002/11/26 15:04:54 tipaul
-# road to 1.3.2. Updating db structure during installation
+# Revision 1.86 2004/06/22 11:30:57 tipaul
+# adding -s (silent) flag, to have a silent install.
+# only updater will be verbose
#
-# Revision 1.26 2002/11/12 17:42:40 tonnesen
-# Merged some features over from rel-1-2, including primary key checking.
+# Revision 1.85 2004/06/17 15:19:44 tipaul
+# missing Marc_Search index on marc_word
#
-# Revision 1.25 2002/11/12 16:44:38 tipaul
-# road to 1.3.2 :
-# * many bugfixes
-# * adding value_builder : you can map a subfield in the marc_subfield_structure to a sub stored in "value_builder" directory. In this directory you can create screen used to build values with any method. In this commit is a 1st draft of the builder for 100$a unimarc french subfield, which is composed of 35 digits, with 12 differents values (only the 4th first are provided for instance)
+# Revision 1.84 2004/06/17 08:25:21 tipaul
+# DB modifs : merging tag & subfield in marc_word table
#
-# Revision 1.24 2002/10/30 14:00:23 arensb
-# (bug fix): Fixed typo.
+# Revision 1.83 2004/06/10 08:32:02 tipaul
+# MARC authority management (continued)
#
-# Revision 1.23 2002/10/25 10:55:46 tipaul
-# Road to 1.3.2
-# * bugfixes and improvements
-# * manage mandatory MARC subfields
-# * new table : authorised_values. this table contains categories and authorised values for the category. On MARC management, you can map a subfield to a authorised_values category. If you do this, the subfield can only be filled with a authorised_value of the selected category.
-# this submit contains everything needed :
-# * updatedatabase
-# * admin screens
-# * "links" management
-# * creation of a html-list if a subfield is mapped to an authorised value.
+# Revision 1.82 2004/06/03 12:46:58 tipaul
+# * frameworks and itemtypes are independant
#
-# Note this is different from authorities support, which will come soon.
-# The authorised_values is supposed to contains a "small" number of authorised values for a category (less than 50-100). If you enter more authorised values than this, it should be hard to find what you want in a BIG list...
+# WARNING : will work only if applied to a 2.0 base. some modifs have been done since last commit that will NOT be applied if you run updatedatabase again.
#
-# Revision 1.22 2002/10/15 10:08:19 tipaul
-# fixme corrected, re-indent and adding the marc_breeding table (see commit of marcimport.pl for more explanations about breeding)
-#
-# Revision 1.21 2002/10/14 11:48:59 tipaul
+# Revision 1.81 2004/05/28 09:56:21 tipaul
# bugfix
#
-# Revision 1.20 2002/10/10 04:49:41 arensb
-# Added some FIXME comments.
-#
-# Revision 1.19 2002/10/05 10:17:17 arensb
-# Merged with arensb-context branch: use C4::Context->dbh instead of
-# &C4Connect, and generally prefer C4::Context over C4::Database.
-#
-# Revision 1.18.2.2 2002/10/05 06:18:43 arensb
-# Added a whole mess of FIXME comments.
-#
-# Revision 1.18.2.1 2002/10/04 02:46:00 arensb
-# Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
-# C4Connect.
+# Revision 1.80 2004/05/28 08:32:00 tipaul
+# adding :
+# * MARC authority file
+# * seealso & hidden in MARC biblio structure.
#
-# Revision 1.18 2002/09/24 13:50:55 tipaul
-# long WAS the road to 1.3.0...
-# coming VERY SOON NOW...
-# modifying installer and buildrelease to update the DB
-#
-# Revision 1.17 2002/09/24 12:57:35 tipaul
-# long WAS the road to 1.3.0...
-# coming VERY SOON NOW...
-# modifying installer and buildrelease to update the DB
+# Revision 1.79 2004/05/18 09:50:07 tipaul
+# *** empty log message ***
#
-# Revision 1.16 2002/07/31 02:34:27 finlayt
+# Revision 1.78 2004/05/10 09:29:33 tipaul
+# css is now the default theme for OPAC.
+# It will be the theme used for improvements and new things in OPAC.
#
-# added "notforloan" field to the itemtypes table.
+# Revision 1.77 2004/05/06 14:56:51 tipaul
+# adding table issuingrules (previously called categoryitem
#
-# Revision 1.15 2002/07/20 22:30:06 rangi
-# Making sure fix makes it into the main branch as well
-# Fix for bug 69
+# Revision 1.76 2004/05/03 09:32:25 tipaul
+# adding printcirculationsplit parameter (already existed, but was not in systempref by defaul)
#
-# Revision 1.14 2002/07/08 16:20:26 tonnesen
-# Added sessionqueries table and password/userid fields to borrowers table
+# Revision 1.75 2004/04/14 19:49:00 tipaul
+# seealso field set to 255 chars
#
-# Revision 1.13 2002/07/04 18:05:36 tonnesen
-# bug fix
+# Revision 1.74 2004/03/11 16:10:16 tipaul
+# *** empty log message ***
#
-# Revision 1.12 2002/07/04 16:41:06 tonnesen
-# Merged changes from rel-1-2. Abstracted table structure changes by alan.
+# Revision 1.73 2004/03/06 20:26:13 tipaul
+# adding seealso feature in MARC searches
#
projects / koha_gimpoz / blobdiff