Prevent warning

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 931fdc7..8fe4c52 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -200,7 +200,7 @@ sub sales_list
        $where .= sprintf("description ILIKE '%%%s%%'", $opt_grep);
     }
 
        $where .= sprintf("description ILIKE '%%%s%%'", $opt_grep);
     }
 

-    if ($where !~ /visible/) {
+    if (defined $where && $where !~ /visible/) {

        $where .= " AND " if $where;
        $where .= "visible = 1";
     }
        $where .= " AND " if $where;
        $where .= "visible = 1";
     }