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

bugfix [ 927266 ] WG 6.0.1 Data Form Issue

Browse source
This commit is contained in:
JT Smith 2004-05-02 19:14:22 +00:00
parent d0fb8d5ab7
commit d1492509a5
3 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Wobject.pm
View file

@ -433,7 +433,10 @@ The value of the column defined by "setName" to select a data set from.
sub moveCollateralDown {
my ($id, $seq, $setName, $setValue);
$setName = $_[4] || "wobjectId";
$setValue = $_[5] || $_[0]->get($setName);
$setValue = $_[5];
unless (defined $setValue) {
$setValue = $_[0]->get($setName);
}
($seq) = WebGUI::SQL->quickArray("select sequenceNumber from $_[1] where $_[2]=$_[3] and $setName=".quote($setValue));
($id) = WebGUI::SQL->quickArray("select $_[2] from $_[1] where $setName=".quote($setValue)
." and sequenceNumber=$seq+1");
@ -483,7 +486,10 @@ The value of the column defined by "setName" to select a data set from.
sub moveCollateralUp {
my ($id, $seq, $setValue, $setName);
$setName = $_[4] || "wobjectId";
$setValue = $_[5] || $_[0]->get($setName);
$setValue = $_[5];
unless (defined $setValue) {
$setValue = $_[0]->get($setName);
}
($seq) = WebGUI::SQL->quickArray("select sequenceNumber from $_[1] where $_[2]=$_[3] and $setName=".quote($setValue));
($id) = WebGUI::SQL->quickArray("select $_[2] from $_[1] where $setName=".quote($setValue)
." and sequenceNumber=$seq-1");