SF.net SVN: ledger-smb: [1951] trunk/bin/io.pl

[..hidden..]

Revision: 1951
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1951&view=rev
Author:   tetragon
Date:     2007-12-05 12:02:11 -0800 (Wed, 05 Dec 2007)

Log Message:
-----------
More minor syntax fixes

Modified Paths:
--------------
    trunk/bin/io.pl

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2007-12-05 19:56:18 UTC (rev 1950)
+++ trunk/bin/io.pl	2007-12-05 20:02:11 UTC (rev 1951)
@@ -1186,7 +1186,7 @@
         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 @@
                 text => $lang->{description},
                 value => $lang->{code},
                 };
-        };
+        }
         $hiddens->{oldlanguage_code} = $form->{oldlanguage_code};
     }
 
@@ -1332,7 +1332,7 @@
         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 @@
     # $locale->text('Queued')
     # $locale->text('Scheduled')
 
-    %status = (
+    $options{status} = (
         printed   => 'Printed',
         emailed   => 'E-mailed',
         queued    => 'Queued',
@@ -1369,7 +1369,7 @@
 
     $options{sortby} = {};
     for (qw(runningnumber partnumber description bin)) {
-        $options{sortby}{$_} = "checked" if $form->sortby eq $_;
+        $options{sortby}{$_} = "checked" if $form->{sortby} eq $_;
     }
 
     \%options;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.