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

[..hidden..]

Revision: 5008
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5008&view=rev
Author:   einhverfr
Date:     2012-07-16 15:23:31 +0000 (Mon, 16 Jul 2012)
Log Message:
-----------
Workflow scripts for inventory reports

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm

Added Paths:
-----------
    trunk/LedgerSMB/Scripts/inv_reports.pm
    trunk/inv_reports.pl

Modified: trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm	2012-07-16 15:17:00 UTC (rev 5007)
+++ trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm	2012-07-16 15:23:31 UTC (rev 5008)
@@ -145,4 +145,5 @@
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
 1;

Added: trunk/LedgerSMB/Scripts/inv_reports.pm
===================================================================
--- trunk/LedgerSMB/Scripts/inv_reports.pm	                        (rev 0)
+++ trunk/LedgerSMB/Scripts/inv_reports.pm	2012-07-16 15:23:31 UTC (rev 5008)
@@ -0,0 +1,45 @@
+=head1 NAME
+
+LedgerSMB::Scripts::inv_reports - Inventory Reports in LedgerSMB
+
+=head1 SYNPOSIS
+
+  LedgerSMB::Scripts::inv_reports::search_adj($request);
+
+=head1 DESCRIPTION
+
+This provides the general inventory reports for LedgerSMB.
+
+=head1 ROUTINES
+
+=over
+
+=item search_adj
+
+Searches for inventory adjustment reports
+
+=cut
+
+sub search_adj{
+    my ($request) = @_;
+    use LedgerSMB::DBObject::Reports::Inventory::Search_Adj;
+    my $rpt = LedgerSMB::DBObject::Reports::Inventory::Search_Adj->new(%$request);
+    $rpt->run_report;
+    $rpt->render($request);
+}
+
+=item adj_details
+
+Shows adjustment details
+
+=back
+
+=head1 COPYRIGHT
+
+COPYRIGHT (C) 2012 The LedgerSMB Core Team.  This file may be re-used under the
+terms of the LedgerSMB General Public License version 2 or at your option any
+later version.  Please see enclosed LICENSE file for details.
+
+=cut
+
+1;

Copied: trunk/inv_reports.pl (from rev 4998, trunk/reports.pl)
===================================================================
--- trunk/inv_reports.pl	                        (rev 0)
+++ trunk/inv_reports.pl	2012-07-16 15:23:31 UTC (rev 5008)
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
+require 'lsmb-request.pl';

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