Lines 60-65
sub timestamp {
Link Here
|
60 |
sub add_field { |
60 |
sub add_field { |
61 |
my ($field_id, $value, $server) = @_; |
61 |
my ($field_id, $value, $server) = @_; |
62 |
|
62 |
|
|
|
63 |
# $value may be populated with the $server object if the method call did not return anything |
64 |
( $value, $server ) = ( $server, $value ) if ref($value) eq 'C4::SIP::SIPServer'; |
65 |
|
63 |
if ( my $hide_fields = $server->{account}->{hide_fields} ) { |
66 |
if ( my $hide_fields = $server->{account}->{hide_fields} ) { |
64 |
my @fields = split( ',', $hide_fields ); |
67 |
my @fields = split( ',', $hide_fields ); |
65 |
return q{} if first { $_ eq $field_id } @fields; |
68 |
return q{} if first { $_ eq $field_id } @fields; |
Lines 94-99
sub add_field {
Link Here
|
94 |
sub maybe_add { |
97 |
sub maybe_add { |
95 |
my ($fid, $value, $server) = @_; |
98 |
my ($fid, $value, $server) = @_; |
96 |
|
99 |
|
|
|
100 |
# $value may be populated with the $server object if the method call did not return anything |
101 |
( $value, $server ) = ( $server, $value ) if ref($value) eq 'C4::SIP::SIPServer'; |
102 |
|
97 |
if ( my $hide_fields = $server->{account}->{hide_fields} ) { |
103 |
if ( my $hide_fields = $server->{account}->{hide_fields} ) { |
98 |
my @fields = split( ',', $hide_fields ); |
104 |
my @fields = split( ',', $hide_fields ); |
99 |
return q{} if first { $_ eq $fid } @fields; |
105 |
return q{} if first { $_ eq $fid } @fields; |
100 |
- |
|
|