|
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 |
- |
|
|