More minor syntax fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1951 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 5 deletions

diff --git a/bin/io.pl b/bin/io.pl
index fc7e78f5..6bacd80d 100644
--- a/bin/io.pl
+++ b/bin/io.pl
@@ -1186,7 +1186,7 @@ sub e_mail {
         value => 'send_email',
         text => $locale->text('Continue'),
         });
-    my %template = LedgerSMB::Template->new_UI(
+    my $template = LedgerSMB::Template->new_UI(
         user => \%myconfig,
         locale => $locale,
         template => 'io-email',
@@ -1232,7 +1232,7 @@ sub print_options {
                 text => $lang->{description},
                 value => $lang->{code},
                 };
-        };
+        }
         $hiddens->{oldlanguage_code} = $form->{oldlanguage_code};
     }
 
@@ -1332,7 +1332,7 @@ sub print_options {
         name => 'format',
         default_values => $form->{selectformat},
         options => [{text => 'HTML', value => 'html'}],
-        }
+        };
     if ( ${LedgerSMB::Sysconfig::latex} ) {
         push @{$options{format}{options}}, {
             text => $locale->text('Postscript'),
@@ -1356,7 +1356,7 @@ sub print_options {
     # $locale->text('Queued')
     # $locale->text('Scheduled')
 
-    %status = (
+    $options{status} = (
         printed   => 'Printed',
         emailed   => 'E-mailed',
         queued    => 'Queued',
@@ -1369,7 +1369,7 @@ sub print_options {
 
     $options{sortby} = {};
     for (qw(runningnumber partnumber description bin)) {
-        $options{sortby}{$_} = "checked" if $form->sortby eq $_;
+        $options{sortby}{$_} = "checked" if $form->{sortby} eq $_;
     }
 
     \%options;