SF.net SVN: ledger-smb: [1168] trunk

[..hidden..]

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

Log Message:
-----------
Adding pod to Locale.pm

Modified Paths:
--------------
    trunk/LedgerSMB/Locale.pm
    trunk/LedgerSMB.pm
    trunk/t/01-load.t

Modified: trunk/LedgerSMB/Locale.pm
===================================================================
--- trunk/LedgerSMB/Locale.pm	2007-05-08 01:37:03 UTC (rev 1167)
+++ trunk/LedgerSMB/Locale.pm	2007-05-08 05:06:56 UTC (rev 1168)
@@ -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"

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-05-08 01:37:03 UTC (rev 1167)
+++ trunk/LedgerSMB.pm	2007-05-08 05:06:56 UTC (rev 1168)
@@ -3,7 +3,7 @@
 
 LedgerSMB  The Base class for many LedgerSMB objects, including DBObject.
 
-=head1 SYOPSIS
+=head1 SYNOPSIS
 
 This module creates a basic request handler with utility functions available
 in database objects (LedgerSMB::DBObject)

Modified: trunk/t/01-load.t
===================================================================
--- trunk/t/01-load.t	2007-05-08 01:37:03 UTC (rev 1167)
+++ trunk/t/01-load.t	2007-05-08 05:06:56 UTC (rev 1168)
@@ -2,8 +2,9 @@
 
 use strict;
 use warnings;
-use Test::More tests => 30;
+use Test::More tests => 31;
 
+use_ok('LedgerSMB');
 use_ok('LedgerSMB::AA');
 use_ok('LedgerSMB::AM');
 use_ok('LedgerSMB::BP');


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