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

Code cleanup.

Browse source
This commit is contained in:
JT Smith 2002-11-26 01:01:40 +00:00
parent ec438a97d4
commit aecace74ca
1 changed files with 21 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -32,45 +32,39 @@ our @fields = qw(width fromField fromStatus toField toStatus
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub duplicate { sub duplicate {
my ($w, %data, $newFieldId, $sth); my ($w, %data, $sth);
tie %data, 'Tie::CPHash'; tie %data, 'Tie::CPHash';
$w = $_[0]->SUPER::duplicate($_[1]); $w = $_[0]->SUPER::duplicate($_[1]);
$w = WebGUI::Wobject::MailForm->new({wobjectId=>$w,namespace=>$namespace}); $w = WebGUI::Wobject::MailForm->new({wobjectId=>$w,namespace=>$namespace});
$w->set({ $w->set({
width=>$_[0]->get("width"), width=>$_[0]->get("width"),
fromField=>$_[0]->get("fromField"), fromField=>$_[0]->get("fromField"),
fromStatus=>$_[0]->get("fromStatus"), fromStatus=>$_[0]->get("fromStatus"),
toField=>$_[0]->get("toField"), toField=>$_[0]->get("toField"),
toStatus=>$_[0]->get("toStatus"), toStatus=>$_[0]->get("toStatus"),
ccField=>$_[0]->get("ccField"), ccField=>$_[0]->get("ccField"),
ccStatus=>$_[0]->get("ccStatus"), ccStatus=>$_[0]->get("ccStatus"),
bccField=>$_[0]->get("bccField"), bccField=>$_[0]->get("bccField"),
bccStatus=>$_[0]->get("bccStatus"), bccStatus=>$_[0]->get("bccStatus"),
subjectField=>$_[0]->get("subjectField"), subjectField=>$_[0]->get("subjectField"),
subjectStatus=>$_[0]->get("subjectStatus"), subjectStatus=>$_[0]->get("subjectStatus"),
acknowledgement=>$_[0]->get("acknowledgement"), acknowledgement=>$_[0]->get("acknowledgement"),
storeEntries=>$_[0]->get("storeEntries"), storeEntries=>$_[0]->get("storeEntries"),
}); });
$sth = WebGUI::SQL->read("select * from MailForm_field where wobjectId=".$_[0]->get("wobjectId")); $sth = WebGUI::SQL->read("select * from MailForm_field where wobjectId=".$_[0]->get("wobjectId"));
while (%data = $sth->hash) { while (%data = $sth->hash) {
$newFieldId = getNextId("MailForm_fieldId"); $data{MailForm_fieldId} = "new";
WebGUI::SQL->write( $w->setCollateral("MailForm_field","MailForm_fieldId",\%data);
"insert into MailForm_field values (".$w->get("wobjectId").", $newFieldId, $data{sequenceNumber}, ". }
quote($data{name}).", ". $sth->finish;
quote($data{status}).", ".
quote($data{type}).", ".
quote($data{possibleValues}).", ".
quote($data{defaultValue}).")" );
}
$sth->finish;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub purge { sub purge {
WebGUI::SQL->write("delete from MailForm_field where wobjectId=".$_[0]->get("wobjectId")); 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 where wobjectId=".$_[0]->get("wobjectId"));
WebGUI::SQL->write("delete from MailForm_entryData where wobjectId=".$_[0]->get("wobjectId")); WebGUI::SQL->write("delete from MailForm_entryData where wobjectId=".$_[0]->get("wobjectId"));
$_[0]->SUPER::purge(); $_[0]->SUPER::purge();
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------