From 05d51102d98dddc7a37f7d02b63b2b74e2367295 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Mon, 19 Jan 2009 12:45:59 +0000 Subject: xpp_sync xpd order fix. git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@5706 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi/Xpp/Xpd.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'xpp/perl_modules') 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); -- cgit v1.2.3