Fixed a couple syntax errors.
This commit is contained in:
parent
ce4040f727
commit
bc4e7160df
1 changed files with 4 additions and 2 deletions
|
|
@ -564,9 +564,10 @@ sub purge {
|
||||||
|
|
||||||
sub reorderCollateral {
|
sub reorderCollateral {
|
||||||
my ($sth, $i, $id);
|
my ($sth, $i, $id);
|
||||||
|
$i = 0;
|
||||||
$sth = WebGUI::SQL->read("select $_[2] from $_[1] where wobjectId=".$_[0]->get("wobjectId")." order by sequenceNumber");
|
$sth = WebGUI::SQL->read("select $_[2] from $_[1] where wobjectId=".$_[0]->get("wobjectId")." order by sequenceNumber");
|
||||||
while (($id) = $sth->array) {
|
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++;
|
$i++;
|
||||||
}
|
}
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
|
|
@ -709,6 +710,7 @@ sub setCollateral {
|
||||||
$dbvalues .= quote($properties->{$key});
|
$dbvalues .= quote($properties->{$key});
|
||||||
}
|
}
|
||||||
$sql .= $dbkeys.') values ('.$dbvalues.')';
|
$sql .= $dbkeys.') values ('.$dbvalues.')';
|
||||||
|
WebGUI::ErrorHandler::audit("added ".$table." ".$properties->{$keyName});
|
||||||
} else {
|
} else {
|
||||||
$sql = "update $table set ";
|
$sql = "update $table set ";
|
||||||
foreach $key (keys %{$properties}) {
|
foreach $key (keys %{$properties}) {
|
||||||
|
|
@ -716,9 +718,9 @@ sub setCollateral {
|
||||||
$sql .= $key."=".quote($properties->{$key});
|
$sql .= $key."=".quote($properties->{$key});
|
||||||
}
|
}
|
||||||
$sql .= " where $keyName='".$properties->{$keyName}."'";
|
$sql .= " where $keyName='".$properties->{$keyName}."'";
|
||||||
|
WebGUI::ErrorHandler::audit("edited ".$table." ".$properties->{$keyName});
|
||||||
}
|
}
|
||||||
WebGUI::SQL->write($sql);
|
WebGUI::SQL->write($sql);
|
||||||
WebGUI::ErrorHandler::audit("edited ".$table." ".$properties->{$keyName});
|
|
||||||
return $properties->{$keyName};
|
return $properties->{$keyName};
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue