summaryrefslogtreecommitdiff
path: root/xpp/perl_modules
diff options
context:
space:
mode:
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>2009-01-19 12:45:59 +0000
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>2009-01-19 12:45:59 +0000
commit05d51102d98dddc7a37f7d02b63b2b74e2367295 (patch)
tree8df55fd3295e3a085cd0abf754bbce8ee069314e /xpp/perl_modules
parent972717237075e2743e5fccdfe42b1e59c1c4c670 (diff)
xpp_sync xpd order fix.
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@5706 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/perl_modules')
-rw-r--r--xpp/perl_modules/Dahdi/Xpp/Xpd.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Xpp/Xpd.pm b/xpp/perl_modules/Dahdi/Xpp/Xpd.pm
index 21ce8b6..297a1d5 100644
--- a/xpp/perl_modules/Dahdi/Xpp/Xpd.pm
+++ b/xpp/perl_modules/Dahdi/Xpp/Xpd.pm
@@ -163,7 +163,10 @@ sub new($$$$$) {
my $span = $self->xpd_getattr('span');
$self->{SPANNO} = $span;
$self->{TYPE} = $type;
- $self->{IS_BRI} = ($type =~ /BRI_(NT|TE)/);
+ if($type =~ /BRI_(NT|TE)/) {
+ $self->{IS_BRI} = 1;
+ $self->{TERMTYPE} = $1;
+ }
$self->{IS_PRI} = ($type =~ /[ETJ]1/);
$self->{IS_DIGITAL} = ( $self->{IS_BRI} || $self->{IS_PRI} );
Dahdi::Xpp::Line->create_all($self, $procdir);