push @l, "";
$i = 0;
}
- my $s = $call->{call};
- $s = sprintf "(%s)", $s if $call->{here} == 0;
+ my $s = $call->call;
+ $s = sprintf "(%s)", $s unless $call->here;
push @l, $s;
$i++;
}
foreach $node (@nodes) {
next if scalar @list && !grep $node->call =~ /^$_/, @list;
my $call = $node->call;
- $call = "($call)" if $node->here == 0;
+ $call = "($call)" unless $node->here;
@l = ();
push @l, $call;
@val = sort $node->users;
}
my $uref = Route::User::get($call);
my $s = $call;
- $s = sprintf "(%s)", $s unless $uref->here;
+ if ($uref) {
+ $s = sprintf "(%s)", $call unless $uref->here;
+ } else {
+ $s = "$call?";
+ }
push @l, $s;
$i++;
}