provide debug function

[lobster] / cards / index.cgi

diff --git a/cards/index.cgi b/cards/index.cgi
index 6f44168fa0914e239a086a05bf0b9ee26b4481a7..6fb7bae507a2c2299736e0033bbe08f1caf11ae9 100755 (executable)
--- a/cards/index.cgi
+++ b/cards/index.cgi
@@ -16,11 +16,17 @@ upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ
 
 filter="$(GET f)"
 order="$(GET o)"
-edit="$(GET e)"
-[ "$order" ] || order=firstname
+edit="$(GET e |PATH)"
 
-{ w_filter_diag
+[ "$order" ] || order=lastname
+edit="${edit##*/}"
+
+list_hi_companies(){
+  sed -rn 's;^X-HEALTH-INSURANCE:([^\;]+)\;.*$;\1;p' ${_DATA}/vcard/*vcf \
+  | sort -u
+}
 
+{ w_filter_diag
   printf '
   [form class="newcard" action="/cards/new_card.sh" method="POST"
     [button type="submit" %s]