61 lines
1.8 KiB
Perl
61 lines
1.8 KiB
Perl
package WebGUI::Macro::DeactivateAccount;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use WebGUI::International;
|
|
use WebGUI::Asset::Template;
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Macro::DeactivateAccount
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Macro for displaying a url to the user for deactivating their account, if
|
|
the setting is turned on.
|
|
|
|
=head2 process ( deactivateText )
|
|
|
|
process takes two optional parameters for customizing the content and layout
|
|
of the self deactivation link.
|
|
|
|
=head3 deactivateText
|
|
|
|
The text displayed to the user for this link. If this is blank an internationalized default is used.
|
|
|
|
=head3 linkonly
|
|
|
|
If true, it will return only the URL for deactivating a user account.
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------------------
|
|
sub process {
|
|
my $session = shift;
|
|
my ($deactivateText, $linkonly) = @_;
|
|
|
|
return "" unless ($session->setting->get("selfDeactivation") && !$session->user->isAdmin);
|
|
|
|
my $deactivateUrl = $session->url->page('op=auth;method=deactivateAccount');
|
|
|
|
return $deactivateUrl if($linkonly);
|
|
|
|
my $i18n = WebGUI::International->new($session);
|
|
my $format = q{<a href="%s">%s</a>};
|
|
$deactivateText = $i18n->get(65) unless ($deactivateText);
|
|
|
|
return sprintf($format,$deactivateUrl,$deactivateText);
|
|
}
|
|
|
|
1;
|
|
|
|
|