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

fixed some syntax errors

Browse source
This commit is contained in:
JT Smith 2003-05-05 17:57:42 +00:00
parent 54da10933f
commit 1a74ad5fe3
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
docs/upgrades/upgrade_5.2.5-5.3.0.pl
View file

@ -47,6 +47,8 @@ $conf->write;
print "\tRemoving unneeded files.\n" unless ($quiet);
unlink("../../lib/WebGUI/Wobject/MailForm.pm");
unlink("../../www/extras/floatCheck.js");
unlink("../../www/extras/numberCheck.js");
print "\tMigrating Mail Form to Data Form.\n" unless ($quiet);
@ -80,20 +82,20 @@ my $sth = WebGUI::SQL->read("select * from DataForm");
while (my %dataform = $sth->hash) {
my $startInsert = "insert into DataForm_field (wobjectId, DataForm_fieldId, sequenceNumber, name, status, type,
defaultValue, width, isMailField, label) values";
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -5, "from",
".quote($dataform{fromStatus}).", "email", ".quote($dataform{fromField}).", $dataform{width}, 1,
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -5, 'from',
".quote($dataform{fromStatus}).", 'email', ".quote($dataform{fromField}).", $dataform{width}, 1,
".quote(WebGUI::International::get(10,"DataForm")).")");
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -4, "to",
".quote($dataform{toStatus}).", "email", ".quote($dataform{toField}).", $dataform{width}, 1,
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -4, 'to',
".quote($dataform{toStatus}).", 'email', ".quote($dataform{toField}).", $dataform{width}, 1,
".quote(WebGUI::International::get(11,"DataForm")).")");
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -3, "cc",
".quote($dataform{ccStatus}).", "email", ".quote($dataform{ccField}).", $dataform{width}, 1,
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -3, 'cc',
".quote($dataform{ccStatus}).", 'email', ".quote($dataform{ccField}).", $dataform{width}, 1,
".quote(WebGUI::International::get(12,"DataForm")).")");
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -2, "bcc",
".quote($dataform{bccStatus}).", "email", ".quote($dataform{bccField}).", $dataform{width}, 1,
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -2, 'bcc',
".quote($dataform{bccStatus}).", 'email', ".quote($dataform{bccField}).", $dataform{width}, 1,
".quote(WebGUI::International::get(13,"DataForm")).")");
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -1, "subject",
".quote($dataform{subjectStatus}).", "text", ".quote($dataform{subjectField}).", $dataform{width}, 1,
WebGUI::SQL->write($startInsert." ($dataform{wobjectId}, ".getNext("DataForm_fieldId").", -1, 'subject',
".quote($dataform{subjectStatus}).", 'text', ".quote($dataform{subjectField}).", $dataform{width}, 1,
".quote(WebGUI::International::get(14,"DataForm")).")");
my $i = 1;
my $sth2 = WebGUI::SQL->read("select DataForm_fieldId from DataForm_field where wobjectId=$dataform{wobjectId} order by sequenceNumber");