From 8f99ab1f39f8f2ff7ed27d3f2edf559b362a917f Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 14 Feb 2003 05:08:41 +0000
Subject: [PATCH] fixed a postgres style copy bug

---
 lib/WebGUI/Operation/Style.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Operation/Style.pm b/lib/WebGUI/Operation/Style.pm
index d1e7e0ed2..1df87c4b8 100644
--- a/lib/WebGUI/Operation/Style.pm
+++ b/lib/WebGUI/Operation/Style.pm
@@ -45,6 +45,7 @@ sub _submenu {
 sub www_copyStyle {
         return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(5));
 	my (%style);
+	tie %style, 'Tie::CPHash';
 	%style = WebGUI::SQL->quickHash("select * from style where styleId=$session{form}{sid}");
         WebGUI::SQL->write("insert into style (styleId,name,body,styleSheet) values (".getNextId("styleId").", 
 		".quote('Copy of '.$style{name}).", ".quote($style{body}).", ".quote($style{styleSheet}).")");