[otrs-cvs] CVS: otrs/Kernel/Output/HTML NavBarTicketWatcher.pm, NONE, 1.1

[cvs-log at otrs.org]

Update of /home/cvs/otrs/Kernel/Output/HTML
In directory lancelot:/tmp/cvs-serv25313/Kernel/Output/HTML

Added Files:
	NavBarTicketWatcher.pm 
Log Message:
new ticket watcher feature implemented

--- NEW FILE ---
# --
# Kernel/Output/HTML/NavBarTicketWatcher.pm
# Copyright (C) 2001-2006 Martin Edenhofer <martin+code at otrs.org>
# --
# $Id: NavBarTicketWatcher.pm,v 1.1 2006/06/26 15:06:55 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --

package Kernel::Output::HTML::NavBarTicketWatcher;

use strict;

use vars qw($VERSION);
$VERSION = '$Revision: 1.1 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;

sub new {
    my $Type = shift;
    my %Param = @_;

    # allocate new hash for object
    my $Self = {};
    bless ($Self, $Type);

    # get needed objects
    foreach (qw(ConfigObject LogObject DBObject TicketObject LayoutObject UserID)) {
        $Self->{$_} = $Param{$_} || die "Got no $_!";
    }

    return $Self;
}

sub Run {
    my $Self = shift;
    my %Param = @_;
    my %Return = ();
    my @Groups = ();
    # check if feature is aktive
    if (!$Self->{ConfigObject}->Get('Ticket::Watcher')) {
        return %Return;
    }
    if ($Self->{ConfigObject}->Get('Ticket::WatcherGroup')) {
        @Groups = @{$Self->{ConfigObject}->Get('Ticket::WatcherGroup')};
    }
    # check access
    my $Access = 0;
    if (!@Groups) {
        $Access = 1;
    }
    else {
        foreach my $Group (@Groups) {
            if ($Self->{LayoutObject}->{"UserIsGroup[$Group]"} eq 'Yes') {
                $Access = 1;
            }
        }
    }
    if ($Access) {
        my $Count = $Self->{TicketObject}->TicketWatchList(
            Type => 'COUNT',
            UserID => $Self->{UserID},
        );
        my $Text = $Self->{LayoutObject}->{LanguageObject}->Get('Watched Tickets')." ($Count)";
        $Return{'0999978'} = {
            Block => 'ItemPersonal',
            Description => $Text,
            Name => $Text,
            Image => 'watcher.png',
            Link => 'Action=AgentTicketWatcher',
            AccessKey => '',
        };
    }
    return %Return;
}

1;