oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a bug during the upgrade process where certain types of data forms would fail to migrate.

Browse source 
Fixed a bug during the upgrade process where wobject proxies that were pointing to invalid wobjects would fail to migrate.
This commit is contained in:
JT Smith 2003-06-01 19:44:31 +00:00
parent d7867d9507
commit ed20f59ca4
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
docs/upgrades/upgrade_5.2.6-5.3.0.pl
View file

@ -144,6 +144,7 @@ $sth->finish;
"update DataForm_field set status='editable' where status=3",
"update DataForm_field set type='selectList' where type='select'",
"alter table DataForm add column templateId int not null default 1",
"alter table DataForm_entryData drop primary key",
"alter table DataForm_entryData drop column sequenceNumber",
"alter table DataForm add column emailTemplateId int not null default 2",
"alter table DataForm add column acknowlegementTemplateId int not null default 3",
@ -173,11 +174,18 @@ foreach (qw(Article DataForm EventsCalendar FAQ FileManager Item LinkList Messag
$sth->finish;
WebGUI::SQL->write("alter table $_ drop column templateId");
}
print "\tMigrating wobject proxies.\n" unless ($quiet);
WebGUI::SQL->write("alter table WobjectProxy add column proxiedNamespace varchar(35)");
my $sth = WebGUI::SQL->read("select wobject.namespace,wobject.wobjectId from WobjectProxy left join wobject
my $sth = WebGUI::SQL->read("select wobject.namespace,wobject.wobjectId,WobjectProxy.proxiedWobjectId from WobjectProxy left join wobject
on WobjectProxy.proxiedWobjectId=wobject.wobjectId");
while (my @data = $sth->array) {
WebGUI::SQL->write("update WobjectProxy set proxiedNamespace=".quote($data[0])." where proxiedWobjectId=$data[1]");
if ($data[1] eq "") {
WebGUI::SQL->write("delete from WobjectProxy where proxiedWobjectId='$data[2]'");
WebGUI::SQL->write("delete from wobject where wobjectId='$data[2]'");
} else {
WebGUI::SQL->write("update WobjectProxy set proxiedNamespace=".quote($data[0])." where proxiedWobjectId=$data[1]");
}
}
$sth->finish;

1
docs/upgrades/upgrade_5.3.1-5.3.2.sql
View file

@ -190,5 +190,6 @@ insert into international (internationalId,languageId,namespace,message,lastUpda
delete from international where languageId=2 and namespace='WebGUI' and internationalId=12;
insert into international (internationalId,languageId,namespace,message,lastUpdated) values (12,2,'WebGUI','Editieren abschalten.', 1050568811);
alter table DataForm_entryData add primary key (DataForm_entryId,name);