SF.net SVN: ledger-smb:[6573] trunk/LedgerSMB/User.pm

[..hidden..]

Revision: 6573
          http://sourceforge.net/p/ledger-smb/code/6573
Author:   einhverfr
Date:     2014-01-21 06:29:29 +0000 (Tue, 21 Jan 2014)
Log Message:
-----------
Removed all functions from LedgerSMB/User.pm except for fetch_config.  I would like to move this to LedgerSMB::DBObject::User when I can.

Modified Paths:
--------------
    trunk/LedgerSMB/User.pm

Modified: trunk/LedgerSMB/User.pm
===================================================================
--- trunk/LedgerSMB/User.pm	2014-01-21 06:06:02 UTC (rev 6572)
+++ trunk/LedgerSMB/User.pm	2014-01-21 06:29:29 UTC (rev 6573)
@@ -64,38 +64,6 @@
 my $logger = Log::Log4perl->get_logger('LedgerSMB::User');
 
 
-=item LedgerSMB::User->country_codes();
-
-Returns a hash where the keys are registered locales and the values are the
-textual representation of the locale name.
-
-=cut
-
-sub country_codes {
-    use Locale::Country;
-    use Locale::Language;
-
-    my %cc = ();
-
-    # scan the locale directory and read in the LANGUAGE files
-    opendir DIR, "${LedgerSMB::Sysconfig::localepath}";
-
-    my @dir = grep !/^\..*$/, readdir DIR;
-
-    foreach my $dir (@dir) {
-        $dir = substr( $dir, 0, -3 );
-        $cc{$dir} = code2language( substr( $dir, 0, 2 ) );
-        $cc{$dir} .= ( "/" . code2country( substr( $dir, 3, 2 ) ) )
-          if length($dir) > 2;
-        $cc{$dir} .= ( " " . substr( $dir, 6 ) ) if length($dir) > 5;
-    }
-
-    closedir(DIR);
-
-    %cc;
-
-}
-
 =item LedgerSMB::User->fetch_config($login);
 
 Returns a reference to a hash that contains the user config for the user $login.
@@ -134,32 +102,6 @@
     return $myconfig;
 }
 
-
-=item LedgerSMB::User->check_recurring($form);
-
-Disused function to return the number of current recurring events.
-
-=cut
-
-sub check_recurring {
-    my ( $self, $form ) = @_;
-
-    my $dbh = $form->{dbh};
-    $dbh->{pg_encode_utf8} = 1;
-
-    my $query = qq|
-        SELECT count(*) FROM recurring
-         WHERE enddate >= current_date AND nextdate <= current_date|;
-    ($_) = $dbh->selectrow_array($query);
-
-    $dbh->disconnect;
-
-    $_;
-
-}
-
-
-
 1;
 
 =back

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits