From cedc1785953abe6fbaf4ca59fe373d4d261e925e Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 15 Jan 2019 10:34:22 +0100
Subject: dhcp-lease-comment: simplify array access

---
 dhcp-lease-comment.capsman  | 2 +-
 dhcp-lease-comment.local    | 2 +-
 dhcp-lease-comment.template | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/dhcp-lease-comment.capsman b/dhcp-lease-comment.capsman
index 5e6e325..eda04e4 100644
--- a/dhcp-lease-comment.capsman
+++ b/dhcp-lease-comment.capsman
@@ -10,7 +10,7 @@
   :local MacAddress [ / ip dhcp-server lease get $Lease mac-address ];
   :local OldComment [ / ip dhcp-server lease get $Lease comment ];
   :local NewComment;
-  :local AccessList [ :pick [ / caps-man access-list find where mac-address=$MacAddress ] 0 ];
+  :local AccessList ([ / caps-man access-list find where mac-address=$MacAddress ]->0);
   :if ([ :len $AccessList ] > 0) do={
     :set NewComment [ / caps-man access-list get $AccessList comment ];
   }
diff --git a/dhcp-lease-comment.local b/dhcp-lease-comment.local
index 98c11cc..9e2f9d8 100644
--- a/dhcp-lease-comment.local
+++ b/dhcp-lease-comment.local
@@ -10,7 +10,7 @@
   :local MacAddress [ / ip dhcp-server lease get $Lease mac-address ];
   :local OldComment [ / ip dhcp-server lease get $Lease comment ];
   :local NewComment;
-  :local AccessList [ :pick [ / interface wireless access-list find where mac-address=$MacAddress ] 0 ];
+  :local AccessList ([ / interface wireless access-list find where mac-address=$MacAddress ]->0);
   :if ([ :len $AccessList ] > 0) do={
     :set NewComment [ / interface wireless access-list get $AccessList comment ];
   }
diff --git a/dhcp-lease-comment.template b/dhcp-lease-comment.template
index b119596..a1541e1 100644
--- a/dhcp-lease-comment.template
+++ b/dhcp-lease-comment.template
@@ -11,7 +11,7 @@
   :local MacAddress [ / ip dhcp-server lease get $Lease mac-address ];
   :local OldComment [ / ip dhcp-server lease get $Lease comment ];
   :local NewComment;
-  :local AccessList [ :pick [ / %PATH% access-list find where mac-address=$MacAddress ] 0 ];
+  :local AccessList ([ / %PATH% access-list find where mac-address=$MacAddress ]->0);
   :if ([ :len $AccessList ] > 0) do={
     :set NewComment [ / %PATH% access-list get $AccessList comment ];
   }
-- 
cgit v1.2.3-54-g00ecf