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

Fixed a couple syntax errors.

Browse source
This commit is contained in:
JT Smith 2002-10-31 06:26:40 +00:00
parent ce4040f727
commit bc4e7160df
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Wobject.pm
View file

@ -564,9 +564,10 @@ sub purge {
sub reorderCollateral {
my ($sth, $i, $id);
$i = 0;
$sth = WebGUI::SQL->read("select $_[2] from $_[1] where wobjectId=".$_[0]->get("wobjectId")." order by sequenceNumber");
while (($id) = $sth->array) {
WebGUI::SQL->write("update $_[1] set sequenceNumber='$i' where wobjectId=$_[0] and $_[2]=$id");
WebGUI::SQL->write("update $_[1] set sequenceNumber=$i where wobjectId=".$_[0]->get("wobjectId")." and $_[2]=$id");
$i++;
}
$sth->finish;
@ -709,6 +710,7 @@ sub setCollateral {
$dbvalues .= quote($properties->{$key});
}
$sql .= $dbkeys.') values ('.$dbvalues.')';
WebGUI::ErrorHandler::audit("added ".$table." ".$properties->{$keyName});
} else {
$sql = "update $table set ";
foreach $key (keys %{$properties}) {
@ -716,9 +718,9 @@ sub setCollateral {
$sql .= $key."=".quote($properties->{$key});
}
$sql .= " where $keyName='".$properties->{$keyName}."'";
WebGUI::ErrorHandler::audit("edited ".$table." ".$properties->{$keyName});
}
WebGUI::SQL->write($sql);
WebGUI::ErrorHandler::audit("edited ".$table." ".$properties->{$keyName});
return $properties->{$keyName};
}