package WebGUI::Macro::GroupDelete;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 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::Group;
use WebGUI::Asset::Template;

=head1 NAME

Package WebGUI::Macro::GroupDelete

=head1 DESCRIPTION

Macro that allows users to remove themselves to a group.

=head2 process ( groupName, text, [ template ] )

=head3 groupName

The name of a group.  The group must exist and be set up for auto deletes for the link
to be shown.

=head3 text

The text that will be displayed to the user in the link for removing themselves
to the group.

=head3 template

An optional template for formatting the text and link.

=cut


#-------------------------------------------------------------------
sub process {
	my $session = shift;
	my @param = @_;
	return "" if ($param[0] eq "");
	return "" if ($param[1] eq "");
        return "" if ($session->user->userId eq '1');
	my $g = WebGUI::Group->find($param[0]);
	return "" if ($g->getId eq "");
	return "" unless ($g->autoDelete);
	return "" unless ($session->user->isInGroup($g->getId));
	my %var = ();
       $var{'group.url'} = $session->url->page("op=autoDeleteFromGroup;groupId=".$g->getId);
       $var{'group.text'} = $param[1];
	if ($param[2]) {
		return  WebGUI::Asset::Template->newByUrl($session,$param[2])->process(\%var);
	} else {
		return  WebGUI::Asset::Template->new($session,"PBtmpl0000000000000041")->process(\%var);
	}
}


1;