SF.net SVN: ledger-smb: [402] trunk/bin/ir.pl

[..hidden..]

Revision: 402
          http://svn.sourceforge.net/ledger-smb/?rev=402&view=rev
Author:   tetragon
Date:     2006-10-30 13:56:23 -0800 (Mon, 30 Oct 2006)

Log Message:
-----------
Updating buttons

Modified Paths:
--------------
    trunk/bin/ir.pl

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2006-10-30 21:50:47 UTC (rev 401)
+++ trunk/bin/ir.pl	2006-10-30 21:56:23 UTC (rev 402)
@@ -587,24 +587,24 @@
 # type=submit $locale->text('Delete')
 
   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 => 5, key => 'N', value => $locale->text('Post as new') },
-	       'Purchase Order' => { ndx => 6, key => 'L', value => $locale->text('Purchase Order') },
-	       '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 => 5, key => 'N', value => $locale->text('Post as new') },
+	       'purchase_order' => { ndx => 6, key => 'L', value => $locale->text('Purchase Order') },
+	       'schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') },
+	       'delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') },
 	      );
     
     if ($form->{id}) {
       
       if ($form->{locked}) {
-	for ("Post", "Delete") { delete $button{$_} }
+	for ("post", "delete") { delete $button{$_} }
       }
 
     } else {
 
       if ($transdate > $closedto) {
-	for ('Update', 'Post', 'Schedule') { $a{$_} = 1 }
+	for ('update', 'post', 'schedule') { $a{$_} = 1 }
       }
       for (keys %button) { delete $button{$_} if ! $a{$_} }
     }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.