summaryrefslogtreecommitdiff
path: root/bin/pos.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/pos.pl')
-rwxr-xr-xbin/pos.pl6
1 files changed, 2 insertions, 4 deletions
diff --git a/bin/pos.pl b/bin/pos.pl
index 7071d5d3..9d98304e 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -579,8 +579,6 @@ sub form_footer {
for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
- print qq|<p>
- <input type=text size=1 value="B" accesskey="B" title="[Alt-B]">\n|;
if ($form->{partsgroup}) {
$form->{partsgroup} =~ s/\r//g;
@@ -916,8 +914,8 @@ sub print_and_post {
sub lookup_partsgroup {
- $form->{action} =~ s/\r//;
- $form->{action} = substr($form->{action}, 1);
+ $form->{my_partsgroup} =~ s/\r//;
+ $form->{action} = $form->{my_partsgroup};
if ($form->{language_code}) {
# get english