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

Fixed various bugs created by all the recent changes.

Browse source
This commit is contained in:
JT Smith 2002-11-04 04:55:42 +00:00
parent 4d3c8cc5a3
commit fcef76164b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Wobject/MailForm.pm
View file

@ -68,7 +68,7 @@ sub duplicate {
sub purge {
WebGUI::SQL->write("delete from MailForm_field where wobjectId=".$_[0]->get("wobjectId"));
WebGUI::SQL->write("delete from MailForm_entry where wobjectId=".$_[0]->get("wobjectId"));
WebGUI::SQL->write("delete from MailForm_entry_data where wobjectId=".$_[0]->get("wobjectId"));
WebGUI::SQL->write("delete from MailForm_entryData where wobjectId=".$_[0]->get("wobjectId"));
$_[0]->SUPER::purge();
}
@ -427,7 +427,7 @@ sub _textSelectRow {
$output .= '>'.${$selectOptions}{$key};
}
$output .= '</select>';
return WebGUI::HTMLForm::_tableFormRow($textLabel, $output);
return '<tr><td class="formDescription" valign="top">'.$textLabel.'</td><td class="tableData">'.$output."</td></tr>\n";
}
#-------------------------------------------------------------------
@ -459,7 +459,7 @@ sub www_send {
# store results
if ($_[0]->get("storeEntries")) {
WebGUI::SQL->write("insert into MailForm_entry_data values ($entryId, ".$_[0]->get("wobjectId").", ".$data{sequenceNumber}.", ".quote($data{name}).", ".quote($value).")");
WebGUI::SQL->write("insert into MailForm_entryData values ($entryId, ".$_[0]->get("wobjectId").", ".$data{sequenceNumber}.", ".quote($data{name}).", ".quote($value).")");
}
$data{name} .= ":" unless ($data{name} =~ /:$/);