/[Grep]/share/web/templates/fragments/event/results
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /share/web/templates/fragments/event/results

Parent Directory Parent Directory | Revision Log Revision Log


Revision 43 - (hide annotations)
Tue Feb 20 16:26:56 2007 UTC (17 years, 3 months ago) by dpavlin
File size: 813 byte(s)
small refactoring for better debugging messages while exploring Jifty::Event
way of match(ing) events (while my use is more filter-like) and de-crufting code
in places
1 dpavlin 28 <%args>
2     $event
3     </%args>
4     <%init>
5    
6     use Data::Dump qw/dump/;
7     #warn "event = ",dump($$event);
8    
9 dpavlin 29 my $coll = $$event->{coll} || die "no coll in incomming event = ", dump( $event );
10 dpavlin 42 my $item_fragment = $$event->{item_fragment} or warn "no item_fragment";
11     die "no item_fragment in event" unless ($item_fragment || $$event->{message});
12 dpavlin 28
13 dpavlin 30 my $nr = $coll->count;
14     my $q = $$event->{q} || die "no q";
15 dpavlin 28
16 dpavlin 32 my $message = $$event->{message} || "$nr results for $q";
17     my $class = $$event->{class} || 'messages';
18 dpavlin 30
19 dpavlin 43 warn "<$class> $message with fragment/item/$item_fragment user ", $$event->{user_id};
20 dpavlin 32
21 dpavlin 28 </%init>
22 dpavlin 32 % if ( $message ) {
23 dpavlin 33 <div class="grep-note">
24 dpavlin 32 <div class="<% $class %>">
25     <% $message %>
26     </div>
27 dpavlin 33 </div>
28 dpavlin 32 % }
29 dpavlin 30 % if ($nr) {
30     </div>
31 dpavlin 28 % while ( my $i = $coll->next ) {
32 dpavlin 42 <& '/fragments/item/' . $item_fragment, item => $i &>
33 dpavlin 28 % }
34     </div>
35 dpavlin 30 % }

  ViewVC Help
Powered by ViewVC 1.1.26