Fixing missing buttons issue

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@706 4979c152-3d1c-0410-bac9-87ea11338e46

2 files changed, 11 insertions, 4 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, $_) }
diff --git a/bin/is.pl b/bin/is.pl
index d34419d7..fa1a6c19 100755
--- a/bin/is.pl
+++ b/bin/is.pl
@@ -671,11 +671,15 @@ sub form_footer {
 
       if ($transdate > $closedto) {
 	
-	for ("update", "ship_to", "print", "e_mail", "post", "schedule") { $a{$_} = 1 }
+	for ("update", "ship_to", "print", "e_mail", "post", "schedule") { 
+		$allowed{$_} = 1 }
 	$a{'print_and_post'} = 1 if ${LedgerSMB::Sysconfig::latex};
 	
+        for (keys %button) { delete $button{$_} if ! $allowed{$_} }
+      }
+      elsif ($closedto){
+	%button = ();
       }
-      for (keys %button) { delete $button{$_} if ! $a{$_} }
     }
     
     for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }