X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FRt.pm;h=71b7a43aba7cd28070aec45b4a375c7c8f9b20e3;hb=0f0ef738611adb7e4a2b6ae8207a8506d3f26563;hp=685ef0c4d5ef7acaf45e47fa7fc03c2ff3423c43;hpb=4461c555c086c35adc0f458ffbe3e6a03cfc68a1;p=spider.git diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 685ef0c4..71b7a43a 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -131,7 +131,9 @@ sub handle_cf next if $call eq $main::mycall; RouteDB::delete($call, $chan_call); my $ref = Route::Node::get($call); - push @pc21, $ref->del($parent) if $ref; + if ($ref) { + push @pc21, grep {$_} $ref->del($parent); + } } } if ($add) { @@ -139,7 +141,7 @@ sub handle_cf next if $call eq $main::mycall; RouteDB::update($call, $chan_call); my $here = $in{$call}; - push @pc19, $parent->add($call, 0, $here); + push @pc19, grep {$_} $parent->add($call, 0, $here); } } $thing->{pc21n} = \@pc21 if @pc21; @@ -191,7 +193,7 @@ sub _add_user my $flag = shift; my @out = $node->add_user($user, $flag); - my $ur = _upd_user_rec($user, $node); + my $ur = _upd_user_rec($user, $node->{call}); $ur->put; return @out; }