From 5bb9b8612ce2c3e633f7edb0c4b72f711954bd44 Mon Sep 17 00:00:00 2001 From: tetragon Date: Mon, 30 Oct 2006 23:38:41 +0000 Subject: Updating buttons git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@405 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/oe.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'bin') 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"; -- cgit v1.2.3