Greg Evans

sub queueInColor {
   my $Ticket = shift;
   my $queue = $Ticket->Queue;
   my $qcolor = undef;

   if ($queue eq '1') {
       $qcolor = "#660099";
   } elsif ($queue eq '2') {
       $qcolor = "#000090";
   } elsif ($queue eq '3') {
       $qcolor = "#999999";
   } elsif ($queue eq '4') {
       $qcolor = "#FF6600";
   } elsif ($queue eq '5') {
       $qcolor = "#009000";
   } elsif ($queue eq '6') {
       $qcolor = "#900000";
   } elsif ($queue eq '7') {
       $qcolor = "#AA8000";
   } elsif ($queue eq '8') {
       $qcolor = "#000000";
   } elsif ($queue eq '9') {
       $qcolor = "#996633";
   } elsif ($queue eq '10') {
       $qcolor="#345678";
   } elsif ($queue eq '11') {
       $qcolor="#345678";
   } elsif ($queue eq '11') {
       $qcolor="#345678";
   }

   $queue = loc($queue);

if ($qcolor) {
       $queue = "<font color=$qcolor>$queue</font>"
   }

   return \"$queue";

}

I have also tried this  as: (as per Ruslan's hint)

sub queueInColor {
  my $Ticket = shift;
  my $queue = $Ticket->QueueObj->Name;
  my $qcolor = undef;

  if ($queue eq 'queue1') {
      $qcolor = "#660099";
  } elsif ($queue eq ' queue2') {
      $qcolor = "#000090";
  } elsif ($queue eq ' queue3') {
      $qcolor = "#999999";
  } elsif ($queue eq ' queue4') {
      $qcolor = "#FF6600";
  } elsif ($queue eq ' queue5') {
      $qcolor = "#009000";
  } elsif ($queue eq ' queue6') {
      $qcolor = "#900000";
  } elsif ($queue eq ' queue7') {
      $qcolor = "#AA8000";
  } elsif ($queue eq ' queue8') {
      $qcolor = "#000000";
  } elsif ($queue eq ' queue9') {
      $qcolor = "#996633";
  }

  $queue = loc($queue);

if ($qcolor) {
      $queue = "<font color=$qcolor>$queue</font>"
  }

  return \"$queue";

}