summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 23:51:47 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 23:51:47 +0000
commitc86c528318290c6dff4de16a7c7c98d1ff7ad2aa (patch)
treebb57129bff75a6fa1c98816e85860ccc72760f4c
parent98b2cdaa1d5336e60b00f86d90f45c6d96dc6717 (diff)
Updating buttons
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@407 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/pos.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/pos.pl b/bin/pos.pl
index 00cf8202..31087cca 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -559,22 +559,22 @@ sub form_footer {
# type=submit $locale->text('Delete')
if (! $form->{readonly}) {
- %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
- 'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
- 'Post' => { ndx => 3, key => 'O', value => $locale->text('Post') },
- 'Print and Post' => { ndx => 4, key => 'R', value => $locale->text('Print and Post') },
- 'Delete' => { ndx => 5, key => 'D', value => $locale->text('Delete') },
+ %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
+ 'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
+ 'post' => { ndx => 3, key => 'O', value => $locale->text('Post') },
+ 'print_and_post' => { ndx => 4, key => 'R', value => $locale->text('Print and Post') },
+ 'delete' => { ndx => 5, key => 'D', value => $locale->text('Delete') },
);
if ($transdate > $closedto) {
if (! $form->{id}) {
- delete $button{'Delete'};
+ delete $button{'delete'};
}
- delete $button{'Print and Post'} unless ${LedgerSMB::Sysconfig::latex};
+ delete $button{'print_and_post'} unless ${LedgerSMB::Sysconfig::latex};
} else {
- for ('Print', 'Post', 'Print and Post', 'Delete') { delete $button{$_} }
+ for ('print', 'post', 'print_and_post', 'delete') { delete $button{$_} }
}
for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }