warn and not die if there is something in display, but not in search

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@341 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/TT.pm b/lib/WebPAC/Output/TT.pm
index c87d3e2..5ec7805 100644 (file)
--- a/lib/WebPAC/Output/TT.pm
+++ b/lib/WebPAC/Output/TT.pm
@@ -169,7 +169,10 @@ filter to return links to search, usage in TT:
                        my $item = $data->{'data'}->{$display} || return;
 
                        return unless($item->{'display'});
-                       die "error in TT template: field $display didn't insert anything into search, use d('$display') and not search('$display'...)" unless($item->{'search'});
+                       if (! $item->{'search'}) {
+                               warn "error in TT template: field $display didn't insert anything into search, use d('$display') and not search('$display'...)";
+                               return;
+                       }
 
                        my @warn;
                        foreach my $type (qw/display search/) {