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

[..hidden..]

Revision: 3542
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3542&view=rev
Author:   einhverfr
Date:     2011-07-16 22:34:15 +0000 (Sat, 16 Jul 2011)

Log Message:
-----------

More POD coverage test cases
Unified logging framework.  Still recommend using vanilla  in Log pm 
for now though.

Modified Paths:
--------------
    trunk/LedgerSMB/Company_Config.pm
    trunk/LedgerSMB/Log.pm
    trunk/bin/am.pl
    trunk/t/98-pod-coverage.t

Modified: trunk/LedgerSMB/Company_Config.pm
===================================================================
--- trunk/LedgerSMB/Company_Config.pm	2011-07-16 20:36:12 UTC (rev 3541)
+++ trunk/LedgerSMB/Company_Config.pm	2011-07-16 22:34:15 UTC (rev 3542)
@@ -35,9 +35,10 @@
 my @company_settings = qw(templates businessnumber weightunit curr
                           default_email_from default_email_to
                           default_email_bcc  default_email_cc
-                          separate_duties);
+                          separate_duties company_name company_email
+                          company_phone company_fax);
 
-our $VERSION = 0.1;
+our $VERSION = 1.0;
 our $settings = {};
 
 sub initialize{

Modified: trunk/LedgerSMB/Log.pm
===================================================================
--- trunk/LedgerSMB/Log.pm	2011-07-16 20:36:12 UTC (rev 3541)
+++ trunk/LedgerSMB/Log.pm	2011-07-16 22:34:15 UTC (rev 3542)
@@ -72,10 +72,11 @@
         return 0;
     }
     shift;
+    my $level = shift;
     $log_line = sprintf( '[%s] [%s] %i %s',
         scalar(localtime), +shift, $$, join( ' ', @_ ) )
       . "\n";
-    print STDERR $log_line;
+    $logger->$level($log_line);
 
 }
 

Modified: trunk/bin/am.pl
===================================================================
--- trunk/bin/am.pl	2011-07-16 20:36:12 UTC (rev 3541)
+++ trunk/bin/am.pl	2011-07-16 22:34:15 UTC (rev 3542)
@@ -70,6 +70,10 @@
    { name => 'default_email_bcc', label => $locale->text('Default Email BCC') },
    { name => 'default_email_from', 
      label => $locale->text('Default Email From') },
+   { name => 'company_name', label => $locale->text('Company Name') },
+   { name => 'company_email', label => $locale->text('Company Email') },
+   { name => 'company_phone', label => $locale->text('Company Phone') },
+   { name => 'company_fax', label => $locale->text('Company Fax') },
 );
 
 my @default_others = qw(businessnumber weightunit 

Modified: trunk/t/98-pod-coverage.t
===================================================================
--- trunk/t/98-pod-coverage.t	2011-07-16 20:36:12 UTC (rev 3541)
+++ trunk/t/98-pod-coverage.t	2011-07-16 22:34:15 UTC (rev 3542)
@@ -13,7 +13,7 @@
 if ($@){
     plan skip_all => "Test::Pod::Coverage required for testing POD coverage";
 } else {
-    plan tests => 20;
+    plan tests => 21;
 }
 pod_coverage_ok("LedgerSMB");
 pod_coverage_ok("LedgerSMB::Form");
@@ -30,8 +30,9 @@
 pod_coverage_ok("LedgerSMB::Template::TXT");
 pod_coverage_ok("LedgerSMB::Template::XLS");
 pod_coverage_ok("LedgerSMB::User");
-pod_coverage_ok("LedgerSMB::::DBObject::Date");
-pod_coverage_ok("LedgerSMB::::DBObject::Draft");
+pod_coverage_ok("LedgerSMB::DBObject::Date");
+pod_coverage_ok("LedgerSMB::DBObject::Draft");
 pod_coverage_ok("LedgerSMB::DBObject::Company");
+pod_coverage_ok("LedgerSMB::Company_Config");
+pod_coverage_ok("LedgerSMB::DBObject::Admin");
 pod_coverage_ok("LedgerSMB::ScriptLib::Company");
-pod_coverage_ok("LedgerSMB::DBObject::Admin");


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