summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 21:38:18 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 21:38:18 +0000
commit4b858ac799dc27c5e6386641d6909706375c1293 (patch)
treed0acb279c88171dae3b43a0187754313dc56675a
parentc5a4d2327e48ff441e498315578fb3cf54e5651d (diff)
Button update
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@400 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/gl.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/gl.pl b/bin/gl.pl
index 409ca9d5..79c80698 100755
--- a/bin/gl.pl
+++ b/bin/gl.pl
@@ -1039,27 +1039,27 @@ sub form_footer {
if (! $form->{readonly}) {
- %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
- 'Post' => { ndx => 3, key => 'O', value => $locale->text('Post') },
- 'Post as new' => { ndx => 6, key => 'N', value => $locale->text('Post as new') },
- 'Schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') },
- 'Delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') },
+ %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
+ 'post' => { ndx => 3, key => 'O', value => $locale->text('Post') },
+ 'post_as_new' => { ndx => 6, key => 'N', value => $locale->text('Post as new') },
+ 'schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') },
+ 'delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') },
);
%a = ();
if ($form->{id}) {
- for ('Update', 'Post as new', 'Schedule') { $a{$_} = 1 }
+ for ('update', 'post_as_new', 'schedule') { $a{$_} = 1 }
if (! $form->{locked}) {
if ($transdate > $closedto) {
- for ('Post', 'Delete') { $a{$_} = 1 }
+ for ('post', 'delete') { $a{$_} = 1 }
}
}
} else {
if ($transdate > $closedto) {
- for ("Update", "Post", "Schedule") { $a{$_} = 1 }
+ for ("update", "post", "schedule") { $a{$_} = 1 }
}
}