Suchergebnis farbig markieren

[ulifrehner]

Hallo,

wir wollen bei der Ticket-Übersicht die Owner-Spalte markieren in denen der Besitzer der "Admin OTRS" ist.

Kann mir hier jemand weiter helfen?

Leider habe ich nur einen Eintrag von 2005 im Forum gefunden, der mir nicht weiter hilft.

Danke vorab

Ulrike

[BIG_jan]

schau dir mal das modul an : http://opar.perl-services.de/bin/index. ... viewHooked

da wird dann zwar die ganze zeile markiert, aber du kannst auch andere markierungen damit setzen

[renee]

Den Code des Hooks findest Du unten. Den musst Du nach <OTRS>/Kernel/System/TicketOverview/Hooks/OTRSAdminTickets.pm speichern. Wenn Du das Modul von OPAR installiert hast, musst Du den Hook noch aktivieren. Dazu in der SysConfig unter "Ticket" -> "TicketOverview" die Option TicketOverview::Hooks aktivieren und das "Kernel::System::TicketOverview::Hooks::Junk" durch "Kernel::System::TicketOverview::Hooks::OTRSAdminTickets" ersetzen.

Code: Select all

# --
# Kernel/System/TicketOverview/Hooks/OTRSAdminTickets.pm - mark junk tickets in ticket overview
# Copyright (C) 2001-2011 Perl-Services.de, http://perl-services.de
# --
# $Id: OTRSAdminTickets.pm,v 1.1 2011/07/27 07:50:22 reb Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

package Kernel::System::TicketOverview::Hooks::OTRSAdminTickets;

use strict;
use warnings;

use Kernel::System::Ticket;

use vars qw(@ISA $VERSION);
$VERSION = '0.01';

sub new {
    my ( $Type, %Param ) = @_;

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

    # check needed objects
    for my $Object (qw(DBObject ConfigObject MainObject LogObject EncodeObject TimeObject)) {
        $Self->{$Object} = $Param{$Object} || die "Got no $Object!";
    }

    # create needed objects
    $Self->{TicketObject} = Kernel::System::Ticket->new( %{$Self} );

    return $Self;
}

sub Run {
    my ( $Self, %Param ) = @_;

    # check needed stuff
    for my $Needed (qw(TicketID)) {
        if ( !$Param{$Needed} ) {
            $Self->{LogObject}->Log(
                Priority => 'error',
                Message  => "Need $Needed!",
            );
            return;
        }
    }

    my %TicketData = $Self->{TicketObject}->TicketGet(
        TicketID => $Param{TicketID},
    );


    return if $TicketData{OwnerID} != 1;
    return 'ffaaaa'; # hier ggf. den Farbwert aendern
}

1;

=head1 TERMS AND CONDITIONS

This software comes with ABSOLUTELY NO WARRANTY. For details, see
the enclosed file COPYING for license information (AGPL). If you
did not receive this file, see L<http://www.gnu.org/licenses/agpl.txt>.

=cut