9 |
|
|
10 |
my $edit = Jifty->web->current_user->role('edit'); |
my $edit = Jifty->web->current_user->role('edit'); |
11 |
|
|
12 |
#use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
13 |
#warn "current_user = ", dump( Jifty->web->current_user ); |
#warn "current_user = ", dump( Jifty->web->current_user ); |
14 |
#warn "edit = $edit"; |
#warn "edit = $edit"; |
15 |
|
|
78 |
my $dates = 0; |
my $dates = 0; |
79 |
|
|
80 |
while (my $q = $date_coll->next) { |
while (my $q = $date_coll->next) { |
81 |
my $date = $q->{values}->{date} || die "no date?"; |
warn dump( $q ); |
82 |
my $count = $q->{values}->{count} || die "no count?"; |
my $date = $q->{values}->{date} || warn "no date?"; |
83 |
$date_menu->child( $date, |
my $count = $q->{values}->{count} || warn "no count?"; |
84 |
active => $created_on && $created_on eq $date ? 1 : 0, |
if ( $date && $count ) { |
85 |
link => Jifty->web->link( |
$date_menu->child( $date, |
86 |
label => "$date ($count)", |
active => $created_on && $created_on eq $date ? 1 : 0, |
87 |
onclick => { |
link => Jifty->web->link( |
88 |
replace_with => '/fragments/queries', |
label => "$date ($count)", |
89 |
args => { |
onclick => { |
90 |
created_on => $date, |
replace_with => '/fragments/queries', |
91 |
|
args => { |
92 |
|
created_on => $date, |
93 |
|
}, |
94 |
}, |
}, |
95 |
}, |
), |
96 |
), |
); |
|
); |
|
97 |
|
|
98 |
$dates++; # why is this different from $date_coll->count ? |
$dates++; # why is this different from $date_coll->count ? |
99 |
|
}; |
100 |
} |
} |
101 |
|
|
102 |
my $u; |
my $u; |