POD for Operation/MessageLog

fixed broken i18n tag in Macro/Product
This commit is contained in:
Colin Kuskie 2005-12-22 00:39:33 +00:00
parent 4206828715
commit 9bc967a042
2 changed files with 32 additions and 1 deletions

View file

@ -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);

View file

@ -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}));