oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed a postgres style copy bug

Browse source
This commit is contained in:
JT Smith 2003-02-14 05:08:41 +00:00
parent 96b1f91f37
commit 8f99ab1f39
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/Style.pm
View file

@ -45,6 +45,7 @@ sub _submenu {
sub www_copyStyle { sub www_copyStyle {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(5)); return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(5));
my (%style); my (%style);
tie %style, 'Tie::CPHash';
%style = WebGUI::SQL->quickHash("select * from style where styleId=$session{form}{sid}"); %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").", WebGUI::SQL->write("insert into style (styleId,name,body,styleSheet) values (".getNextId("styleId").",
".quote('Copy of '.$style{name}).", ".quote($style{body}).", ".quote($style{styleSheet}).")"); ".quote('Copy of '.$style{name}).", ".quote($style{body}).", ".quote($style{styleSheet}).")");