Only show registered nodes

Author: jrouzierinverse

html/captive-portal/lib/captiveportal/PacketFence/Controller/Status.pm

@@ -93,7 +93,7 @@ sub is_lost_stolen {
 sub userIsAuthenticated : Private {
     my ( $self, $c ) = @_;
     my $pid     = $c->user_session->{"username"} // $c->{_session}->{username};
-    my @person_nodes = person_nodes($pid);
+    my @person_nodes = person_reg_nodes($pid);
     my @nodes;
     foreach my $person_node (@person_nodes) {
         my $node = node_view($person_node->{mac});

lib/pf/person.pm

@@ -37,6 +37,7 @@ BEGIN {
         person_view_simple
         person_modify
         person_nodes
+        person_reg_nodes
         person_security_events
         person_cleanup
         persons_without_nodes
@@ -282,6 +283,27 @@ sub person_nodes {
     return @{$iter->all // []};
 }
 
+sub person_reg_nodes {
+    my ($pid) = @_;
+    my ($status, $iter) = pf::dal::node->search(
+        -where => {
+            pid => $pid,
+        },
+        -columns => [qw(mac pid notes regdate unregdate status user_agent computername device_class time_balance bandwidth_balance)],
+        #To avoid join
+        -from => pf::dal::node->table,
+        -with_class => undef,
+        -where => {
+            status => "reg",
+        },
+    );
+    if (is_error($status)) {
+        return;
+    }
+
+    return @{$iter->all // []};
+}
+
 =head2 person_unassign_nodes
 
 unassign the nodes of a person