summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 20:31:24 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-30 20:31:24 +0000
commit83a9f660843a33cd2cae81c48b016b4802241958 (patch)
tree0297534e12058bc02d6154dbc4f5681fb7d15d73
parent5c185f29b289c916315038b8baa185b24f4f17e8 (diff)
Fix buttons
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@395 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/am.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/am.pl b/bin/am.pl
index 9a908e28..5015660e 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -250,14 +250,14 @@ sub form_footer {
%button = ();
if ($form->{id}) {
- $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
- $button{'Save as new'} = { ndx => 7, key => 'N', value => $locale->text('Save as new') };
+ $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
+ $button{'save_as_new'} = { ndx => 7, key => 'N', value => $locale->text('Save as new') };
if ($form->{orphaned}) {
- $button{'Delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') };
+ $button{'delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') };
}
} else {
- $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
+ $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
}
for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
@@ -577,16 +577,16 @@ sub gifi_footer {
%button = ();
- $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
+ $button{'save'} = { ndx => 3, key => 'S', value => $locale->text('Save') };
if ($form->{accno}) {
if ($form->{orphaned}) {
- $button{'Delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') };
+ $button{'delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') };
}
}
if ($form->{coa}) {
- $button{'Copy to COA'} = { ndx => 7, key => 'C', value => $locale->text('Copy to COA') };
+ $button{'copy_to_coa'} = { ndx => 7, key => 'C', value => $locale->text('Copy to COA') };
}
for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
@@ -1327,7 +1327,7 @@ sub list_language {
$form->hide_form(qw(type callback path login sessionid));
print qq|
-<button class="submit" type="submit" name="action" value="add_language"|.$locale->text('Add Language').qq|</button>|;
+<button class="submit" type="submit" name="action" value="add_language">|.$locale->text('Add Language').qq|</button>|;
if ($form->{lynx}) {
require "bin/menu.pl";