SF.net SVN: ledger-smb:[4961] addons/1.3/report_framework/trunk/LedgerSMB/ App_State.pm

[..hidden..]

Revision: 4961
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4961&view=rev
Author:   einhverfr
Date:     2012-07-10 08:44:43 +0000 (Tue, 10 Jul 2012)
Log Message:
-----------
Removing App State from reporting backport

Removed Paths:
-------------
    addons/1.3/report_framework/trunk/LedgerSMB/App_State.pm

Deleted: addons/1.3/report_framework/trunk/LedgerSMB/App_State.pm
===================================================================
--- addons/1.3/report_framework/trunk/LedgerSMB/App_State.pm	2012-07-10 08:41:17 UTC (rev 4960)
+++ addons/1.3/report_framework/trunk/LedgerSMB/App_State.pm	2012-07-10 08:44:43 UTC (rev 4961)
@@ -1,113 +0,0 @@
-=head1 NAME
-
-LedgerSMB::App_State
-
-=cut
-package LedgerSMB::App_State;
-use strict;
-use warnings;
-use LedgerSMB::Sysconfig;
-use LedgerSMB::User;
-use LedgerSMB::Locale;
-
-=head1 SYNPOSIS
-
-This is a generic container class for non-web-application related state
-information.  It provides a central place to track such things as localization,
-user, and other application state objects.
-
-=head1 OBJECTS FOR STORAGE
-
-The following are objects that are expected to be stored in this namespace:
-
-=over
-
-=cut
-
-our $Locale;
-
-=item Locale
-
-Stores a LedgerSMB::Locale object for the specific user.
-
-=cut
-
-our $User;
-
-=item User
-
-Stores a LedgerSMB::User object for the currently logged in user.
-
-=cut
-
-our $SODA;
-
-=item SODA
-
-Stores the SODA database access handle.
-
-=cut
-
-our $Company_Settings;
-
-=item Company_Settings
-
-Hashref for storing connection-specific settings for the application.
-
-=item DBH
-
-Database handle for current connection
-
-=cut
-
-our $DBH;
-
-=back
-
-=head1 METHODS 
-
-=over
-
-=item zero()
-
-zeroes out all majro parts.
-
-=cut
-
-sub zero() {
-    $SODA = undef;
-    $User = undef;
-    $Locale = undef;
-    $DBH = undef;
-}
-
-=item cleanup
-
-Deletes all objects attached here.
-
-=cut
-
-sub cleanup {
-
-    if ($DBH){
-        $DBH->commit;
-        $DBH->disconnect;
-    }
-    $Locale           = LedgerSMB::Locale->get_handle(
-                            $LedgerSMB::Sysconfig::language
-                        );
-    $User             = {};
-    $Company_Settings = {};
-    $DBH = undef;
-}
-
-1;
-
-=back
-
-=head1 COPYRIGHT
-
-Copyright (C) 2009 LedgerSMB Core Team.  This file is licensed under the GNU 
-General Public License version 2, or at your option any later version.  Please
-see the included License.txt for details.
-

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