SF.net SVN: ledger-smb: [960] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 960
          http://svn.sourceforge.net/ledger-smb/?rev=960&view=rev
Author:   einhverfr
Date:     2007-03-20 12:52:51 -0700 (Tue, 20 Mar 2007)

Log Message:
-----------
Moved 'use' statements to top of Form.pm

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-03-20 19:33:15 UTC (rev 959)
+++ branches/1.2/LedgerSMB/Form.pm	2007-03-20 19:52:51 UTC (rev 960)
@@ -35,6 +35,9 @@
 
 use Math::BigFloat lib=>'GMP';
 use LedgerSMB::Sysconfig;
+use List::Util qw(first);
+use LedgerSMB::Mailer;
+use Time::Local;
 
 package Form;
 
@@ -45,8 +48,6 @@
 
 	my $argstr = shift;
 
-	use List::Util qw(first);
-
 	read(STDIN, $_, $ENV{CONTENT_LENGTH});
 
 	if ($argstr){
@@ -327,7 +328,6 @@
 sub redirect {
 
 	my ($self, $msg) = @_;
-	use List::Util qw(first);
 
 	if ($self->{callback} || !$msg){
 
@@ -902,7 +902,6 @@
 
 		if ($self->{media} eq 'email') {
 
-			use LedgerSMB::Mailer;
 
 			my $mail = new Mailer;
 
@@ -1261,7 +1260,6 @@
 
 	my ($self, $myconfig, $date, $repeat, $unit) = @_;
 
-	use Time::Local;
 
 	my $diff = 0;
 	my $spc = $myconfig->{dateformat};
@@ -2982,8 +2980,6 @@
 
 	my ($self, $yy, $mm, $interval) = @_;
 
-	use Time::Local;
-
 	my @t;
 	my $dd = 1;
 	my $fromdate = "$yy${mm}01";


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