summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/Form.pm10
1 files changed, 3 insertions, 7 deletions
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";