From d1d04fbcb9916ae4bdeaaf40f17ddfbffeec54b0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 5 Mar 2005 06:39:30 +0000
Subject: [PATCH] subroutine name typo (duplcate vs duplicate)

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

diff --git a/lib/WebGUI/Asset/Wobject/Poll.pm b/lib/WebGUI/Asset/Wobject/Poll.pm
index fad9e9b9c..e6a8307e0 100644
--- a/lib/WebGUI/Asset/Wobject/Poll.pm
+++ b/lib/WebGUI/Asset/Wobject/Poll.pm
@@ -155,7 +155,7 @@ sub definition {
 }
 
 #-------------------------------------------------------------------
-sub duplcate {
+sub duplicate {
 	my $self = shift;
 	my $newAsset = $self->SUPER::duplicate(shift);
 	my $sth = WebGUI::SQL->read("select * from Poll_answer where assetId=".quote($self->getId));