From 4d33f5cfbe125839f9c3f1ba6a93ccbb4ca21497 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 20 Mar 2007 19:52:51 +0000
Subject: Moved 'use' statements to top of Form.pm

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@960 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index c5828f12..868e310a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -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 @@ sub new {
 
 	my $argstr = shift;
 
-	use List::Util qw(first);
-
 	read(STDIN, $_, $ENV{CONTENT_LENGTH});
 
 	if ($argstr){
@@ -327,7 +328,6 @@ sub header {
 sub redirect {
 
 	my ($self, $msg) = @_;
-	use List::Util qw(first);
 
 	if ($self->{callback} || !$msg){
 
@@ -902,7 +902,6 @@ sub parse_template {
 
 		if ($self->{media} eq 'email') {
 
-			use LedgerSMB::Mailer;
 
 			my $mail = new Mailer;
 
@@ -1261,7 +1260,6 @@ sub add_date {
 
 	my ($self, $myconfig, $date, $repeat, $unit) = @_;
 
-	use Time::Local;
 
 	my $diff = 0;
 	my $spc = $myconfig->{dateformat};
@@ -2982,8 +2980,6 @@ sub from_to {
 
 	my ($self, $yy, $mm, $interval) = @_;
 
-	use Time::Local;
-
 	my @t;
 	my $dd = 1;
 	my $fromdate = "$yy${mm}01";
-- 
cgit v1.2.3