From f07a6c066b7c524bc2049d089e24d24a8fd6120b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 2 Apr 2009 17:20:04 +0000
Subject: [PATCH] Fix broken POD, and add missing POD.

---
 .../Asset/Wobject/EventManagementSystem.pm    |  8 +++++
 lib/WebGUI/Asset/Wobject/Folder.pm            |  8 +++++
 lib/WebGUI/Asset/Wobject/Survey.pm            | 35 +++++++++++++++++--
 3 files changed, 49 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index dea3db6de..581de75ec 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -359,6 +359,14 @@ sub prepareView {
 
 #------------------------------------------------------------------
 
+=head2 purge ( )
+
+See WebGUI::Asset::purge() for details.  Extend SUPERclass
+to handle deleting tickets, tokens, ribbons, registrants, badge groups
+and event meta data.
+
+=cut
+
 sub purge {
     my $self = shift;
     my $db = $self->session->db;
diff --git a/lib/WebGUI/Asset/Wobject/Folder.pm b/lib/WebGUI/Asset/Wobject/Folder.pm
index 2ce3cf4e1..09f431e2f 100644
--- a/lib/WebGUI/Asset/Wobject/Folder.pm
+++ b/lib/WebGUI/Asset/Wobject/Folder.pm
@@ -206,6 +206,14 @@ sub purgeCache {
 }
 
 #-------------------------------------------------------------------
+
+=head2 view ( )
+
+See WebGUI::Asset::view for details.  Generate template variables and
+render the template.  Also handles caching.
+
+=cut
+
 sub view {
 	my $self    = shift;
 	
diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 71a3e735b..759290e7d 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -501,6 +501,16 @@ sub www_jumpTo {
 
 #-------------------------------------------------------------------
 
+=head2 removeType ( $address )
+
+Remove the requested questionType, and then reloads the Survey.
+
+=head3 $address
+
+Specifies which questionType to delete.
+
+=cut
+
 sub removeType{
     my $self = shift;
     my $address = shift;
@@ -511,6 +521,20 @@ sub removeType{
 
 #-------------------------------------------------------------------
 
+=head2 addType ( $name, $address )
+
+Adds a new questionType, and then reloads the Survey.
+
+=head3 $name
+
+The name of the new question type.
+
+=head3 $address
+
+Specifies where to add the question.
+
+=cut
+
 sub addType{
     my $self = shift;
     my $name = shift;
@@ -1384,7 +1408,7 @@ sub persistResponseJSON {
 
 #-------------------------------------------------------------------
 
-=head2 responseId
+=head2 responseIdCookies
 
 Mutator for the responseIdCookies that determines whether cookies are used as
 part of the L<"responseId"> lookup process.
@@ -1696,6 +1720,13 @@ sub www_viewStatisticalOverview {
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_exportTransposedResults ()
+
+Exports transposed results in a tab deliniated file.
+
+=cut
+
 sub www_exportSimpleResults {
     my $self = shift;
 
@@ -1714,7 +1745,7 @@ sub www_exportSimpleResults {
 
 #-------------------------------------------------------------------
 
-=head2 www_exportTransposedResults (){
+=head2 www_exportTransposedResults ()
 
 Returns transposed results as a tabbed file.