$(view_card "$client")
-$(l10n prescriptions_current)
-
-${edit:+$(edit_prescription "$edit")}
+
+$(list_prescriptions "$client" |grep -q "$edit" || edit_prescription "$edit")
+
$(list_prescriptions "$client" \
|while read pre; do
- view_prescription "$pre"
+ [ "$pre" = "$edit" ] \
+ && edit_prescription "$pre" \
+ || view_prescription "$pre"
done
)
-$(l10n prescriptions_past)
+
EOF