- my $self = shift;
- my $ucall = shift;
- my $ref = Route::User::get($ucall);
- $self->_deluser($ucall);
- my @out = $ref->del($self) if $ref;
- return @out;
+ my ($self, $uref) = @_;
+
+ $self->_dellist('users', $uref);
+ $uref->_dellist('nodes', $self);
+ $self->{usercount} = scalar @{$self->{users}};
+ return $uref->is_empty('nodes') ? ($uref) : ();
+}
+
+# add a single dxchan link
+sub add_dxchan
+{
+ my ($self, $dxchan) = @_;
+ return $self->_addlist('dxchan', $dxchan);
+}
+
+# remove a single dxchan link
+sub del_dxchan
+{
+ my ($self, $dxchan) = @_;
+ return $self->_dellist('dxchan', $dxchan);