SF.net SVN: ledger-smb: [1169] branches/1.2/LedgerSMB/Locale.pm

[..hidden..]

Revision: 1169
          http://svn.sourceforge.net/ledger-smb/?rev=1169&view=rev
Author:   tetragon
Date:     2007-05-07 22:46:57 -0700 (Mon, 07 May 2007)

Log Message:
-----------
Podify Locale.pm

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Locale.pm

Modified: branches/1.2/LedgerSMB/Locale.pm
===================================================================
--- branches/1.2/LedgerSMB/Locale.pm	2007-05-08 05:06:56 UTC (rev 1168)
+++ branches/1.2/LedgerSMB/Locale.pm	2007-05-08 05:46:57 UTC (rev 1169)
@@ -1,3 +1,28 @@
+=head1 NAME
+
+LedgerSMB::Locale  Locale handling class for LedgerSMB
+
+=head1 SYNOPSIS
+
+Locale support module for LedgerSMB.  Uses Locale::Maketext::Lexicon as a base.
+
+=head1 METHODS
+
+=item get_handle ($language_code)
+Returns a locale handle for accessing the other methods.  Inherited from 
+Locale::Maketext.
+
+=item text ($string)
+Returns the translation for the given string.  This is a legacy wrapper that
+merely calls $self->maketext.
+
+=item date ($myconfig, $date, $longformat)
+Returns the given date after formatting it.  If $longformat is set, the date 
+will be givin in the form of "_('September') 23 2007".  If $longformat is not
+set, the date will be output in the format specified by $myconfig->{dateformat}.
+
+=head1 Copyright (C) 2006, The LedgerSMB core team.
+
 #=====================================================================
 #
 # Locale support module for LedgerSMB
@@ -14,15 +39,25 @@
 # Version 2 or, at your option, any later version.  See COPYRIGHT file for
 # details.
 #
+# This file contains source code included with or based on SQL-Ledger which
+# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
+# under the GNU General Public License version 2 or, at your option, any later
+# version.  For a full list including contact information of contributors,
+# maintainers, and copyright holders, see the CONTRIBUTORS file.
 #
+# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
+# Copyright (C) 2000
+#
+#  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+# Contributors: Thomas Bayen <..hidden..>
+#               Antti Kaihola <..hidden..>
+#               Moritz Bunkus (tex)
+#               Jim Rawlings <..hidden..> (DB2)
+#
 #======================================================================
-# This package contains locale related functions:
-#`
-# get_handle - gets a locale handle
-# text - outputs HTML escaped translation for input text
-# date - formats date for the locale
-#
-#====================================================================
+=cut
 
 package LedgerSMB::Locale;
 use base 'Locale::Maketext';
@@ -49,8 +84,8 @@
 sub date {
     my ( $self, $myconfig, $date, $longformat ) = @_;
 
-    my @longmonth = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec));
-    @longmonth = (
+##    my @longmonth = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec));
+    my @longmonth = (
         "January",   "February", "March",    "April",
         "May ",      "June",     "July",     "August",
         "September", "October",  "November", "December"


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