From 5e14591ffcf6f11a73d8d4a5a7ae6fbc50588bd5 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 18 Sep 2007 16:57:56 +0000
Subject: Fixing a couple of issues found by strict

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

(limited to 'LedgerSMB/Form.pm')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index c48f5b68..4f73ea72 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -94,17 +94,17 @@ sub new {
         and not List::Util::first { $_ eq $self->{script} }
         @{LedgerSMB::Sysconfig::scripts} )
     {
-        $self->error( 'Access Denied', __line__, __file__ );
+        $self->error( 'Access Denied', __LINE__, __FILE__ );
     }
     
     if ( ( $self->{action} =~ /(:|')/ ) || ( $self->{nextsub} =~ /(:|')/ ) ) {
-        $self->error( "Access Denied", __line__, __file__ );
+        $self->error( "Access Denied", __LINE__, __FILE__ );
     }
 
     for ( keys %$self ) { $self->{$_} =~ s/\N{NULL}//g }
     
     if ( ($self->{action} eq 'redirect') || ($self->{nextsub} eq 'redirect') ) {
-        $self->error( 'Access Denied', __line__, __file__ );
+        $self->error( 'Access Denied', __LINE__, __FILE__ );
     }
     
     $self;
@@ -619,7 +619,7 @@ sub callproc {
     $query = "SELECT $procname";
     $query =~ s/\(\)/$argstr/;
     my $sth = $self->{dbh}->prepare($query);
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @results, $ref;
     }
     @results;
@@ -1507,7 +1507,7 @@ sub db_init {
     my $sth = $self->{dbh}->prepare($query);
     $sth->execute;
     my $ref;
-    while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{custom_db_fields}{ $ref->{extends} } },
           $ref->{field_def};
     }
@@ -1603,7 +1603,7 @@ sub run_custom_queries {
             $query = shift @{$_};
             $sth   = $self->{dbh}->prepare($query);
             $sth->execute( $self->{id} );
-            $ref = $sth->fetchrow_hashref(NAME_lc);
+            $ref = $sth->fetchrow_hashref('NAME_lc');
             for ( keys %{$ref} ) {
                 $self->{$_} = $ref->{$_};
             }
@@ -1896,7 +1896,7 @@ sub get_name {
     my $i = 0;
     @{ $self->{name_list} } = ();
 
-    while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push( @{ $self->{name_list} }, $ref );
         $i++;
     }
@@ -1963,7 +1963,7 @@ sub all_vc {
 
         @{ $self->{"all_$vc"} } = ();
 
-        while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
             push @{ $self->{"all_$vc"} }, $ref;
         }
 
@@ -1995,7 +1995,7 @@ sub all_vc {
 
     $self->{all_language} = ();
 
-    while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_language} }, $ref;
     }
 
@@ -2072,7 +2072,7 @@ sub all_employees {
     my $sth = $dbh->prepare($query);
     $sth->execute(@whereargs) || $self->dberror($query);
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_employee} }, $ref;
     }
 
@@ -2120,7 +2120,7 @@ sub all_projects {
 
     @{ $self->{all_project} } = ();
 
-    while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_project} }, $ref;
     }
 
@@ -2152,7 +2152,7 @@ sub all_departments {
 
     @{ $self->{all_department} } = ();
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_department} }, $ref;
     }
 
@@ -2240,7 +2240,7 @@ sub create_links {
 
     $self->{accounts} = "";
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
 
         foreach my $key ( split /:/, $ref->{link} ) {
 
@@ -2285,7 +2285,7 @@ sub create_links {
         $sth = $dbh->prepare($query);
         $sth->execute( $self->{id} ) || $self->dberror($query);
 
-        $ref = $sth->fetchrow_hashref(NAME_lc);
+        $ref = $sth->fetchrow_hashref('NAME_lc');
         $self->db_parse_numeric(sth=>$sth, hashref=>$ref);
 
         foreach $key ( keys %$ref ) {
@@ -2302,7 +2302,7 @@ sub create_links {
         $sth = $dbh->prepare($query);
         $sth->execute( $self->{id} ) || $self->dberror($query);
 
-        while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
             $self->{printed} .= "$ref->{formname} "
               if $ref->{printed};
             $self->{emailed} .= "$ref->{formname} "
@@ -2339,7 +2339,7 @@ sub create_links {
             $fld );
 
         # store amounts in {acc_trans}{$key} for multiple accounts
-        while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
             $self->db_parse_numeric(sth=>$sth, hashref=>$ref);
             $ref->{exchangerate} =
               $self->get_exchangerate( $dbh, $self->{currency},
@@ -2418,7 +2418,7 @@ sub lastname_used {
     $sth = $dbh->prepare($query);
     $sth->execute() || $self->dberror($query);
 
-    my $ref = $sth->fetchrow_hashref(NAME_lc);
+    my $ref = $sth->fetchrow_hashref('NAME_lc');
     for ( keys %$ref ) { $self->{$_} = $ref->{$_} }
     $sth->finish;
     $dbh->commit;
@@ -2555,7 +2555,7 @@ sub get_partsgroup {
 
     $self->{all_partsgroup} = ();
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_partsgroup} }, $ref;
     }
 
@@ -2639,7 +2639,7 @@ sub save_status {
 					VALUES (?, ?, ?, ?, ?)|;
 
                 $sth = $dbh->prepare($query);
-                $sth->execute( $self->{id}, $pinted, $emailed,
+                $sth->execute( $self->{id}, $printed, $emailed,
                     $queued{$formname}, $formname )
                   || $self->dberror($query);
                 $sth->finish;
@@ -2694,7 +2694,7 @@ sub get_recurring {
 
     for (qw(email print)) { $self->{"recurring$_"} = "" }
 
-    while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+    while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         for ( keys %$ref ) { $self->{"recurring$_"} = $ref->{$_} }
         $self->{recurringemail} .= "$ref->{emaila}:";
         $self->{recurringprint} .= "$ref->{printa}:";
-- 
cgit v1.2.3