- my $self = shift;
- for (@{$self->{users}}) {
- my $ref = Route::User::get($_);
- $ref->del($self) if $ref;
- }
- $self->{users} = [];
+ 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);