SF.net SVN: ledger-smb:[4777] branches/1.3

[..hidden..]

Revision: 4777
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4777&view=rev
Author:   einhverfr
Date:     2012-05-25 06:27:17 +0000 (Fri, 25 May 2012)
Log Message:
-----------
Fixing internal server errors on requirements report when selecting months

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/LedgerSMB/Locale.pm
    branches/1.3/bin/ic.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2012-05-25 05:42:42 UTC (rev 4776)
+++ branches/1.3/Changelog	2012-05-25 06:27:17 UTC (rev 4777)
@@ -13,8 +13,10 @@
 * Corrected cannot delete accounts (Chris T, 3529383, h/t David M)
 * Fixed ODS output broken due to missing export (Chris T)
 * Fixed button disable inverted (Chris T)
+* Fixed internal server error on requirements report (Chris T, h/t Nigel T)
 
 David M is David Mora
+Nigel T is Nigel Titley
 Robert C is Robert James Clay
 
 

Modified: branches/1.3/LedgerSMB/Locale.pm
===================================================================
--- branches/1.3/LedgerSMB/Locale.pm	2012-05-25 05:42:42 UTC (rev 4776)
+++ branches/1.3/LedgerSMB/Locale.pm	2012-05-25 06:27:17 UTC (rev 4777)
@@ -78,6 +78,7 @@
 use Locale::Maketext::Lexicon;
 use Encode;
 
+
 Locale::Maketext::Lexicon->import(
     {
         '*'     => [ Gettext => "${LedgerSMB::Sysconfig::localepath}/*.po", ],

Modified: branches/1.3/bin/ic.pl
===================================================================
--- branches/1.3/bin/ic.pl	2012-05-25 05:42:42 UTC (rev 4776)
+++ branches/1.3/bin/ic.pl	2012-05-25 06:27:17 UTC (rev 4777)
@@ -2589,10 +2589,13 @@
       qq|<th class=listheading nowrap>| . $locale->text('Order') . qq|</th>|;
     $column_header{year} = qq|<th class=listheading nowrap>$form->{year}</th>|;
 
+    $SHORTMONTH = ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 
+                   'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'];
+                   
     for ( sort { $a <=> $b } keys %month ) {
         $column_header{$_} =
             qq|<th class=listheading nowrap>|
-          . $locale->text( $locale->{SHORT_MONTH}[ $_ - 1 ] )
+          . $locale->text( $SHORTMONTH->[ $_ - 1 ] )
           . qq|</th>|;
     }
 

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