summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 23:38:41 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 23:38:41 +0000
commit5bb9b8612ce2c3e633f7edb0c4b72f711954bd44 (patch)
tree10ce0837070e895a697551c700ae2c7bc9d0a74e
parent11ccb298529d43b9b142727c4f03ff397e7e6f93 (diff)
Updating buttons
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@405 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/oe.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/oe.pl b/bin/oe.pl
index 552af6e1..f933b40b 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -2429,20 +2429,20 @@ sub display_ship_receive {
# type=submit $locale->text('Done')
- %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
- 'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
- 'Ship to' => { ndx => 4, key => 'T', value => $locale->text('Ship to') },
- 'E-mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },
- 'Done' => { ndx => 11, key => 'D', value => $locale->text('Done') },
+ %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
+ 'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
+ 'ship_to' => { ndx => 4, key => 'T', value => $locale->text('Ship to') },
+ 'e_mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },
+ 'done' => { ndx => 11, key => 'D', value => $locale->text('Done') },
);
- for ("Update", "Print") { $form->print_button(\%button, $_) }
+ for ("update", "print") { $form->print_button(\%button, $_) }
if ($form->{type} eq 'ship_order') {
- for ('Ship to', 'E-mail') { $form->print_button(\%button, $_) }
+ for ('ship_to', 'e_mail') { $form->print_button(\%button, $_) }
}
- $form->print_button(\%button, 'Done');
+ $form->print_button(\%button, 'done');
if ($form->{lynx}) {
require "bin/menu.pl";