summaryrefslogtreecommitdiff
path: root/bin/ir.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/ir.pl')
-rwxr-xr-xbin/ir.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/bin/ir.pl b/bin/ir.pl
index f05fb764..01c194b1 100755
--- a/bin/ir.pl
+++ b/bin/ir.pl
@@ -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, $_) }