From 4b858ac799dc27c5e6386641d6909706375c1293 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 30 Oct 2006 21:38:18 +0000
Subject: Button update

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@400 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/gl.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'bin')

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 }
       }
     }
 
-- 
cgit v1.2.3