From e0089f37f86d29acf7d0ee10e3db442a99e0caf9 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Sat, 9 Jan 2010 09:32:10 -0800 Subject: [PATCH] write work, no tests --- lib/WebGUI/Asset.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm index 8985399bc..fa08b720b 100644 --- a/lib/WebGUI/Asset.pm +++ b/lib/WebGUI/Asset.pm @@ -2346,8 +2346,14 @@ sub write { ##Get list of classes ##Get properties for only that class ##Write them to the db. + my $db = $self->session->db; CLASS: foreach my $meta (reverse $self->meta->get_all_class_metas()) { - my $table = $meta->tableName; + my $table = $db->quote_identifier($meta->tableName); + my @properties = $meta->get_property_list; + my @values = map { $self->$_ } @properties; + my @columnNames = map { $db->quote_identifier($_).'=?' } @properties; + push @values, $self->getId, $self->revisionDate; + $db->write("update ".$table." set ".join(",",@columnNames)." where assetId=? and revisionDate=?",\@values); } # we've changed something so we need to update our size