seealso field set to 255 chars

This commit is contained in:
tipaul 2004-04-14 19:49:00 +00:00
parent 4cbdd6d405
commit 81eb3e6fc6

View file

@ -248,7 +248,7 @@ my %requirefields = (
'type' => 'char(20)', 'type' => 'char(20)',
'options' => 'text' }, 'options' => 'text' },
z3950servers => { 'syntax' => 'char(80)' }, z3950servers => { 'syntax' => 'char(80)' },
marc_subfield_structure =>{'seealso' => 'char(80)'}, marc_subfield_structure =>{'seealso' => 'char(255)'},
bookshelf => {'owner' => 'char(80)', bookshelf => {'owner' => 'char(80)',
'category' => 'char(1)', 'category' => 'char(1)',
} }
@ -967,6 +967,25 @@ unless ( $branchcategories{'codedescription'} eq 'text' ) {
$sth->execute; $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";
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;
}
# Populate tables with required data # Populate tables with required data
foreach my $table ( keys %tabledata ) { foreach my $table ( keys %tabledata ) {
@ -1018,6 +1037,9 @@ $sth->finish;
exit; exit;
# $Log$ # $Log$
# Revision 1.75 2004/04/14 19:49:00 tipaul
# seealso field set to 255 chars
#
# Revision 1.74 2004/03/11 16:10:16 tipaul # Revision 1.74 2004/03/11 16:10:16 tipaul
# *** empty log message *** # *** empty log message ***
# #