From 9bc967a04267244e9a927f4e944385aa0deaf678 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 22 Dec 2005 00:39:33 +0000
Subject: [PATCH] POD for Operation/MessageLog fixed broken i18n tag in
 Macro/Product

---
 lib/WebGUI/Macro/Product.pm        |  2 +-
 lib/WebGUI/Operation/MessageLog.pm | 31 ++++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Macro/Product.pm b/lib/WebGUI/Macro/Product.pm
index 4d956e567..a539ca14d 100644
--- a/lib/WebGUI/Macro/Product.pm
+++ b/lib/WebGUI/Macro/Product.pm
@@ -33,7 +33,7 @@ sub process {
 	
 	@param = @_;
 	
-	return WebGUI::International::get('no sku or id') unless ($_[0]);
+	return WebGUI::International::get('no sku or id','Macro_Product') unless ($_[0]);
 
 	($productId, $variantId) = WebGUI::SQL->quickArray("select productId, variantId from productVariants where sku=".quote($_[0]));
 	($productId) = WebGUI::SQL->quickArray("select productId from products where sku=".quote($_[0])) unless ($productId);
diff --git a/lib/WebGUI/Operation/MessageLog.pm b/lib/WebGUI/Operation/MessageLog.pm
index 6f464d5f1..72d9152a3 100644
--- a/lib/WebGUI/Operation/MessageLog.pm
+++ b/lib/WebGUI/Operation/MessageLog.pm
@@ -25,12 +25,36 @@ use WebGUI::User;
 use WebGUI::Utility;
 use WebGUI::Operation::Shared;
 
+=head1 NAME
+
+Package WebGUI::Operation::MessageLog
+
+=head1 DESCRIPTION
+
+Operations for viewing message logs and individual messages.
+
+=cut
+
 #-------------------------------------------------------------------
+
+=head2 _status ( )
+
+returns a hashref with internationalized values for message status.
+
+=cut
+
 sub _status {
    return {"notice"=>WebGUI::International::get(551),"pending"=>WebGUI::International::get(552),"completed"=>WebGUI::International::get(350)};
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_viewMessageLog ( )
+
+Templated display all messages for the current user.
+
+=cut
+
 sub www_viewMessageLog {
    my (@msg, $vars);
    return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(2,$session{user}{userId}));
@@ -68,6 +92,13 @@ sub www_viewMessageLog {
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_viewMessageLog ( )
+
+Templated display of a single message for the user.
+
+=cut
+
 sub www_viewMessageLogMessage {
    my ($data, $vars);
    return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(2,$session{user}{userId}));