diff options
Diffstat (limited to 'bin/ir.pl')
-rwxr-xr-x | bin/ir.pl | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -604,9 +604,12 @@ sub form_footer { } else { if ($transdate > $closedto) { - for ('update', 'post', 'schedule') { $a{$_} = 1 } + for ('update', 'post', 'schedule') { $allowed{$_} = 1 } + for (keys %button) { delete $button{$_} if ! $allowed{$_} } + } + elsif ($closedto){ + %buttons = (); } - for (keys %button) { delete $button{$_} if ! $a{$_} } } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } |