$DBversion = "3.09.00.028";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
unless ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
- my %referencetypes = ( '00' => 'PERSO_CODE',
- '10' => 'ORGO_CODE',
+ my %referencetypes = ( '00' => 'PERSO_NAME',
+ '10' => 'CORPO_NAME',
'11' => 'MEETI_NAME',
'30' => 'UNIF_TITLE',
'48' => 'CHRON_TERM',
SetVersion ($DBversion);
}
+$DBversion ="3.09.00.034";
+if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
+ $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'PERSO_NAME' WHERE frameworkcode = 'PERSO_CODE'");
+ $dbh->do("UPDATE auth_subfield_structure SET frameworkcode = 'CORPO_NAME' WHERE frameworkcode = 'ORGO_CODE'");
+ print "Upgrade to $DBversion done (Bug 8207: correct typo in authority types)\n";
+ SetVersion($DBversion);
+}
+
=head1 FUNCTIONS
=head2 TableExists($table)
use strict;
sub kohaversion {
- our $VERSION = '3.09.00.033';
+ our $VERSION = '3.09.00.034';
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install