From bc4e7160df86aee790c106eacf16229949c7dc99 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 31 Oct 2002 06:26:40 +0000
Subject: [PATCH] Fixed a couple syntax errors.

---
 lib/WebGUI/Wobject.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index 1c1332394..c2f736c94 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -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};
 }