--- share/web/templates/fragments/event/results	2007/02/20 11:53:13	41
+++ share/web/templates/fragments/event/results	2007/02/20 12:26:14	42
@@ -7,7 +7,8 @@
 #warn "event = ",dump($$event);
 
 my $coll = $$event->{coll} || die "no coll in incomming event = ", dump( $event );
-die "no item_fragment in event" unless ($$event->{item_fragment} || $$event->{message});
+my $item_fragment = $$event->{item_fragment} or warn "no item_fragment";
+die "no item_fragment in event" unless ($item_fragment || $$event->{message});
 
 my $nr = $coll->count;
 my $q = $$event->{q} || die "no q";
@@ -15,7 +16,7 @@
 my $message = $$event->{message} || "$nr results for $q";
 my $class = $$event->{class} || 'messages';
 
-warn "<$class> $message in fragment/item/", $$event->{item_fragment};
+warn "<$class> $message in fragment/item/$item_fragment";
 
 </%init>
 % if ( $message ) {
@@ -28,7 +29,7 @@
 % if ($nr) {
 </div>
 %	while ( my $i = $coll->next ) {
-<& '/fragments/item/' . $$event->{item_fragment}, item => $i &>
+<& '/fragments/item/' . $item_fragment, item => $i &>
 %	}
 </div>
 % }