From a22aeaf1558dbb1c258159282b9133ed526751ef Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 7 Jul 2002 02:31:16 +0000
Subject: [PATCH] Fixed copy bug.

---
 lib/WebGUI/Wobject/Product.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Wobject/Product.pm b/lib/WebGUI/Wobject/Product.pm
index 0ad7b03ca..e9a9868a7 100644
--- a/lib/WebGUI/Wobject/Product.pm
+++ b/lib/WebGUI/Wobject/Product.pm
@@ -276,7 +276,7 @@ sub duplicate {
         while (%data = $sth->hash) {
                 $newId = getNextId("productSpecificationId");
                 WebGUI::SQL->write("insert into Product_specification values (".$w->get("wobjectId").", $newId, "
-                        .quote($data{name}).", ".quote($data{value}).", $data{sequenceNumber})");
+                        .quote($data{name}).", ".quote($data{value}).", ".quote($data{units}).", $data{sequenceNumber})");
         }
         $sth->finish;
         $sth = WebGUI::SQL->read("select * from Product_accessory where wobjectId=".$_[0]->get("wobjectId"));