my $Ticket = shift;
my @svc_resolvers = ticket_svc_resolvers($Ticket);
if (@svc_resolvers) {
- warn '#' . $Ticket->id . ", service attribute $attribute\n";
foreach my $s (@svc_resolvers) {
push @return, $s->ServiceInfo->{$attribute}, '<BR>';
}
} else {
- warn '#' . $Ticket->id . ", customer attribute ship_$attribute\n";
my @cust_resolvers = map $_->TargetURI->Resolver,
@{ $Ticket->Customers->ItemsArrayRef };
foreach my $c (@cust_resolvers) {
</%once>
<%init>
-use Data::Dumper;
-#warn Dumper(\@service_fields);
my $arg = shift;
if ( $arg eq 'Names' ) {