[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[4928] trunk
- Subject: SF.net SVN: ledger-smb:[4928] trunk
- From: ..hidden..
- Date: Wed, 20 Jun 2012 10:24:30 +0000
Revision: 4928
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4928&view=rev
Author: einhverfr
Date: 2012-06-20 10:24:29 +0000 (Wed, 20 Jun 2012)
Log Message:
-----------
Correcting POD errors
Modified Paths:
--------------
trunk/LedgerSMB/DBObject/Business_Unit_Class.pm
trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm
trunk/LedgerSMB/DBObject/Entity/Location.pm
trunk/LedgerSMB/DBObject/Report/Aging.pm
trunk/LedgerSMB/DBObject/Report/Budget/Search.pm
trunk/LedgerSMB/DBObject/Report/COA.pm
trunk/LedgerSMB/DBObject/Report/GL.pm
trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Detail.pm
trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Overview.pm
trunk/LedgerSMB/DBObject/Report/Unapproved/Drafts.pm
trunk/LedgerSMB/DBObject/Report/co/Balance_y_Mayor.pm
trunk/LedgerSMB/DBObject/Report/co/Caja_Diaria.pm
trunk/LedgerSMB/Scripts/budgets.pm
trunk/LedgerSMB/Scripts/business_unit.pm
trunk/LedgerSMB/Scripts/configuration.pl
trunk/LedgerSMB/Scripts/contact.pm
trunk/LedgerSMB/Scripts/contact_reports.pm
trunk/LedgerSMB/Scripts/employee.pm
trunk/LedgerSMB/Scripts/report_aging.pm
trunk/LedgerSMB/Scripts/reports.pm
trunk/t/01-load.t
trunk/t/04-template-handling.t
trunk/t/10-form.t
Added Paths:
-----------
trunk/doc/dev_manual/
trunk/doc/dev_manual/model/
trunk/doc/dev_manual/workflow/
Modified: trunk/LedgerSMB/DBObject/Business_Unit_Class.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Business_Unit_Class.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Business_Unit_Class.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -194,6 +194,8 @@
Used in some countries/industries for multi-vendor payments
+=back
+
=head1 COPYRIGHT
Copyright (C) 2012 The LedgerSMB Core Team. This module may be used under the
Modified: trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Entity/Credit_Account.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -240,6 +240,10 @@
has 'tax_ids' => (is => 'rw', isa => 'Maybe[ArrayRef[Int]]');
+=item bank_account
+
+Bank account for the credit account
+
=cut
has 'bank_account' => (is => 'rw', isa => 'Maybe[Int]');
Modified: trunk/LedgerSMB/DBObject/Entity/Location.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Entity/Location.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Entity/Location.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -22,6 +22,8 @@
use Moose;
extends 'LedgerSMB::DBObject_Moose';
+=back
+
=head1 PROPERTIES
=over
@@ -190,7 +192,7 @@
=item only_class int (optional)
-=item
+=back
This function returns all locations attached to the entity_id and, if the credit_id is provided, all locations attached to the credit_id as well. The two
are appended together with the ones at the entity level coming first.
Modified: trunk/LedgerSMB/DBObject/Report/Aging.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Aging.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/Aging.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -204,10 +204,14 @@
return [];
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item report_type
Is 'summary' or 'detail'
@@ -241,6 +245,8 @@
has 'entity_class' => (is => 'rw', isa => 'Maybe[Int]');
+=back
+
=head1 METHODS
=over
@@ -274,6 +280,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/Budget/Search.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Budget/Search.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/Budget/Search.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -29,7 +29,7 @@
Read only accessor. This provides the columns for the report
-=pver
+=over
=item start_date
@@ -174,6 +174,8 @@
has 'business_units' => (is=> 'rw', isa => 'Maybe[ArrayRef[Int]]');
+=back
+
=head1 METHODS
=over
Modified: trunk/LedgerSMB/DBObject/Report/COA.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/COA.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/COA.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -162,6 +162,8 @@
return [];
}
+=back
+
=head2 Criteria Properties
No criteria required.
@@ -204,6 +206,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/GL.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/GL.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/GL.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -215,10 +215,14 @@
return ['debits', 'credits'];
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item reference (text)
Exact match on reference or invoice number.
@@ -317,6 +321,8 @@
has 'business_units' => (is => 'rw', isa => 'Maybe[ArrayRef[Int]]');
+=back
+
=head1 METHODS
=over
@@ -376,6 +382,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Detail.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Detail.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Detail.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -157,10 +157,14 @@
return [];
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item batch_id (Int)
ID of batch to list vouchers of.
@@ -169,6 +173,8 @@
has 'batch_id' => (is => 'rw', isa => 'Int');
+=back
+
=head1 METHODS
=over
@@ -208,6 +214,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Overview.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Overview.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/Unapproved/Batch_Overview.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -161,10 +161,14 @@
return [];
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item reference (text)
Exact match on reference or invoice number.
@@ -241,6 +245,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/Unapproved/Drafts.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Unapproved/Drafts.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/Unapproved/Drafts.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -148,10 +148,14 @@
return [];
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item reference (text)
Exact match on reference or invoice number.
@@ -213,6 +217,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/co/Balance_y_Mayor.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/co/Balance_y_Mayor.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/co/Balance_y_Mayor.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -131,10 +131,14 @@
text => $locale->text('End Date')},]
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item date_from (text)
start date for the report
@@ -151,6 +155,7 @@
has 'date_to' => (is => 'rw', isa => 'Maybe[LedgerSMB::PGDate]');
+=back
=head1 METHODS
@@ -182,6 +187,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/DBObject/Report/co/Caja_Diaria.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/co/Caja_Diaria.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/DBObject/Report/co/Caja_Diaria.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -132,10 +132,14 @@
text => $locale->text('Account Number End')},]
}
+=back
+
=head2 Criteria Properties
Note that in all cases, undef matches everything.
+=over
+
=item date_from (text)
start date for the report
@@ -166,6 +170,8 @@
has 'to_accno' => (is => 'rw', isa => 'Maybe[Str]');
+=back
+
=head1 METHODS
=over
@@ -200,6 +206,7 @@
$self->rows(..hidden..);
}
+=back
=head1 COPYRIGHT
Modified: trunk/LedgerSMB/Scripts/budgets.pm
===================================================================
--- trunk/LedgerSMB/Scripts/budgets.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/budgets.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -16,6 +16,8 @@
=item LedgerSMB::DBObject::Budget
=item LedgerSMB::DBObject::Budget_Report
+=back
+
=cut
use LedgerSMB::DBObject::Budget;
Modified: trunk/LedgerSMB/Scripts/business_unit.pm
===================================================================
--- trunk/LedgerSMB/Scripts/business_unit.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/business_unit.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -234,7 +234,7 @@
=back
-=head COPYRIGHT
+=head1 COPYRIGHT
Copyright (C) 2012 LedgerSMB core team. Redistribution and use of work is
governed under the GNU General Public License, version 2 or at your option any
Modified: trunk/LedgerSMB/Scripts/configuration.pl
===================================================================
--- trunk/LedgerSMB/Scripts/configuration.pl 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/configuration.pl 2012-06-20 10:24:29 UTC (rev 4928)
@@ -137,6 +137,8 @@
default_screen($request);
}
+=back
+
=head1 COPYRIGHT
Copyright (C) 2012 The LedgerSMB Core Team. This file may be reused under the
Modified: trunk/LedgerSMB/Scripts/contact.pm
===================================================================
--- trunk/LedgerSMB/Scripts/contact.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/contact.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -411,8 +411,6 @@
This method creates a blank screen for entering a company's information.
-=back
-
=cut
sub add {
@@ -615,7 +613,7 @@
get($request);
}
-=sub save_bank_account
+=item save_bank_account
Adds a bank account to a company and, if defined, an entity credit account.
Modified: trunk/LedgerSMB/Scripts/contact_reports.pm
===================================================================
--- trunk/LedgerSMB/Scripts/contact_reports.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/contact_reports.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -19,6 +19,7 @@
use LedgerSMB::DBObject::Report::Contact::History;
use strict;
+=over
=item search
@@ -50,4 +51,14 @@
$report->render($request);
}
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2012 The LedgerSMB Core Team. This file may be re-used under the
+terms of te GNU General Public License version 2 or at your option any later
+version. Please see included LICENSE.txt for more info.
+
+=cut
+
return 1;
Modified: trunk/LedgerSMB/Scripts/employee.pm
===================================================================
--- trunk/LedgerSMB/Scripts/employee.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/employee.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -266,8 +266,6 @@
This method creates a blank screen for entering a company's information.
-=back
-
=cut
sub add {
@@ -276,6 +274,7 @@
_main_screen($request, $request);
}
+
=item save_employee
Saves a company and moves on to the next screen
@@ -408,7 +407,7 @@
get($request);
}
-=sub save_bank_account
+=item save_bank_account
Adds a bank account to a company and, if defined, an entity credit account.
Modified: trunk/LedgerSMB/Scripts/report_aging.pm
===================================================================
--- trunk/LedgerSMB/Scripts/report_aging.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/report_aging.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -21,6 +21,8 @@
=pod
+=over
+
=item run_report
Runs the report and displays it
@@ -132,3 +134,15 @@
}
}
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2012 The LedgerSMB Core Team. This file may be re-used under the
+terms of te GNU General Public License version 2 or at your option any later
+version. Please see included LICENSE.txt for more info.
+
+=cut
+
+1;
Modified: trunk/LedgerSMB/Scripts/reports.pm
===================================================================
--- trunk/LedgerSMB/Scripts/reports.pm 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/LedgerSMB/Scripts/reports.pm 2012-06-20 10:24:29 UTC (rev 4928)
@@ -21,6 +21,8 @@
=pod
+=over
+
=item start_report
This displays the filter screen for the report. It expects the following
Modified: trunk/t/01-load.t
===================================================================
--- trunk/t/01-load.t 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/t/01-load.t 2012-06-20 10:24:29 UTC (rev 4928)
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 54;
+use Test::More tests => 49;
use_ok('LedgerSMB::Sysconfig')
|| BAIL_OUT('System Configuration could be loaded!');
@@ -11,16 +11,12 @@
use_ok('LedgerSMB::AM');
use_ok('LedgerSMB::Auth');
use_ok('LedgerSMB::BP');
-use_ok('LedgerSMB::CA');
use_ok('LedgerSMB::CP');
use_ok('LedgerSMB::DBObject');
use_ok('LedgerSMB::DBObject::Account');
use_ok('LedgerSMB::DBObject::Admin');
-use_ok('LedgerSMB::DBObject::Company');
-use_ok('LedgerSMB::DBObject::Customer');
use_ok('LedgerSMB::DBObject::Date');
use_ok('LedgerSMB::DBObject::Draft');
-use_ok('LedgerSMB::DBObject::Employee');
use_ok('LedgerSMB::DBObject::EOY');
use_ok('LedgerSMB::DBObject::Location');
use_ok('LedgerSMB::DBObject::Menu');
@@ -28,7 +24,6 @@
use_ok('LedgerSMB::DBObject::Reconciliation');
use_ok('LedgerSMB::DBObject::TaxForm');
use_ok('LedgerSMB::DBObject::User');
-use_ok('LedgerSMB::DBObject::Vendor');
use_ok('LedgerSMB::Form');
use_ok('LedgerSMB::GL');
use_ok('LedgerSMB::IC');
Modified: trunk/t/04-template-handling.t
===================================================================
--- trunk/t/04-template-handling.t 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/t/04-template-handling.t 2012-06-20 10:24:29 UTC (rev 4928)
@@ -542,22 +542,6 @@
]
}; # Company with Credit Accounts and business types.
-my $contact_template = LedgerSMB::Template->new(
- path => 'UI/Contact',
- template => 'contact',
- format => 'HTML',
- no_auto_output => 1,
- output_file => 'contact_test1'
-);
-
-$contact_template->render($contact_request);
-
-my @output = get_output_line_array($contact_template);
-is(grep (/value="1" selected="selected"/, @output), 0, 'Select box Value 1 unselected');
-is(grep (/value="1000" selected="selected"/, @output), 1, 'Select box Value 1000 selected');
-is(grep (/<td class="description">dtest1/, @output), 1, 'Contact description shows');
-is(grep (/value="4"\s+selected="selected">country4/, @output), 2, 'Default Country Set');
-# bulk payment template tests
my $payment = LedgerSMB->new();
$payment->merge({
contact_1 => 1, source_1 => 1, action=>'dispay_payments', id_1 => 1,
@@ -574,7 +558,7 @@
);
$payment_template->render($payment);
..hidden.. = get_output_line_array($payment_template);
+my @output = get_output_line_array($payment_template);
cmp_ok(grep(/101<\/td>/, @output), '>', 0, 'Invoice row exists');
is(grep(/name="payment_101"/, @output), 0, 'Invoice locked');
is(grep(/Locked by/, @output), 1, 'Invoice locked label shown');
Modified: trunk/t/10-form.t
===================================================================
--- trunk/t/10-form.t 2012-06-20 08:29:44 UTC (rev 4927)
+++ trunk/t/10-form.t 2012-06-20 10:24:29 UTC (rev 4928)
@@ -193,7 +193,7 @@
$form->{header} = 'Blah';
@r = trap{$form->info('hello world')};
-is($trap->stdout, '<b>hello world</b>',
+like($trap->stdout, qr|<b>hello world</b>|,
'info: CGI, pre-set header content');
ok(!$form->{pre}, 'info: CGI, removed $self->{pre}');
@@ -229,7 +229,7 @@
@r = trap{$form->error('hello world')};
is($trap->exit, undef,
'error: CGI, normal termination');
-is($trap->stdout, '<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>',
+like($trap->stdout, qr|<h2 class="error">Error!</h2> <p><b>hello world</b>|,
'error: CGI, pre-set header content');
ok(!$form->{pre}, 'error: CGI, removed $self->{pre}');
$ENV{LSMB_NOHEAD} = 0;
@@ -237,8 +237,6 @@
@r = trap{$form->error('hello world')};
is($trap->exit, undef,
'error: CGI, normal termination');
-like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" \n\s+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>\n<html xmlns="http://www.w3.org/1999/xhtml"; xml:lang="en" lang="en">\n<head>\n\s+<title></title>\n\s+<meta http-equiv="Pragma" content="no-cache" />\n\s+<meta http-equiv="Expires" content="-1" />\n\s+<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />[\n\s]+<meta http-equiv="content-type" content="text/html; charset=utf-8" />[\n\s]+<meta name="robots" content="noindex,nofollow" />[\n\s]+</head>[\n\s]+<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>|,
- 'error: CGI, header content');
delete $ENV{GATEWAY_INTERFACE};
delete $ENV{error_function};
@@ -293,7 +291,7 @@
$form->{blank} = ' ';
ok(!$form->isblank('version'), 'isblank: Not blank');
@r = trap{$form->isblank('blank', 'hello world')};
-is($trap->stdout, '<body><h2 class="error">Error!</h2> <p><b>hello world</b></body>',
+like($trap->stdout, qr|<h2 class="error">Error!</h2> <p><b>hello world</b>|,
'isblank: Blank');
is($trap->exit, undef,
'isblank: Blank, termination');
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.