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 status='editable' where status=3",
"update DataForm_field set type='selectList' where type='select'", "update DataForm_field set type='selectList' where type='select'",
"alter table DataForm add column templateId int not null default 1", "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_entryData drop column sequenceNumber",
"alter table DataForm add column emailTemplateId int not null default 2", "alter table DataForm add column emailTemplateId int not null default 2",
"alter table DataForm add column acknowlegementTemplateId int not null default 3", "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; $sth->finish;
WebGUI::SQL->write("alter table $_ drop column templateId"); 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)"); 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"); on WobjectProxy.proxiedWobjectId=wobject.wobjectId");
while (my @data = $sth->array) { 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; $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; 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); 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);