1 files changed, 46 insertions, 49 deletions
diff --git a/LedgerSMB/Inifile.pm b/LedgerSMB/Inifile.pm
index 839c19f3..1b89502c 100755
--- a/LedgerSMB/Inifile.pm
+++ b/LedgerSMB/Inifile.pm
@@ -1,8 +1,8 @@
 #=====================================================================
-# LedgerSMB 
+# LedgerSMB
 # Small Medium Business Accounting software
 # http://www.ledgersmb.org/
-# 
+#
 # Copyright (C) 2006
 # This work contains copyrighted information from a number of sources all used
 # with permission.
@@ -35,60 +35,57 @@
 
 package Inifile;
 
-
 sub new {
-	my ($type, $file) = @_;
+    my ( $type, $file ) = @_;
 
-	warn "$type has no copy constructor! creating a new object." 
-		if ref($type);
-	$type = ref($type) || $type;
-	my $self = bless {}, $type;
-	$self->add_file($file) if defined $file;
+    warn "$type has no copy constructor! creating a new object."
+      if ref($type);
+    $type = ref($type) || $type;
+    my $self = bless {}, $type;
+    $self->add_file($file) if defined $file;
 
-	return $self;
+    return $self;
 }
 
-
 sub add_file {
-	my ($self, $file) = @_;
-  
-	my $id = "";
-	my %menuorder = ();
-
-	for (@{$self->{ORDER}}) { $menuorder{$_} = 1 }
-  
-	open FH, '<', "$file" or Form->error("$file : $!");
-
-	while (<FH>) {
-		next if /^(#|;|\s)/;
-		last if /^\./;
-
-		chop;
-
-		# strip comments
-		s/\s*(#|;).*//g;
-    
-		# remove any trailing whitespace
-		s/^\s*(.*?)\s*$/$1/;
-
-		if (/^\[/) {
-			s/(\[|\])//g;
-			$id = $_;
-			push @{$self->{ORDER}}, $_ if ! $menuorder{$_};
-			$menuorder{$_} = 1;
-			next;
-		}
-
-		# add key=value to $id
-		my ($key, $value) = split /=/, $_, 2;
-    
-		$self->{$id}{$key} = $value;
-
-	}
-	close FH;
-  
-}
+    my ( $self, $file ) = @_;
+
+    my $id        = "";
+    my %menuorder = ();
+
+    for ( @{ $self->{ORDER} } ) { $menuorder{$_} = 1 }
+
+    open FH, '<', "$file" or Form->error("$file : $!");
+
+    while (<FH>) {
+        next if /^(#|;|\s)/;
+        last if /^\./;
 
+        chop;
+
+        # strip comments
+        s/\s*(#|;).*//g;
+
+        # remove any trailing whitespace
+        s/^\s*(.*?)\s*$/$1/;
+
+        if (/^\[/) {
+            s/(\[|\])//g;
+            $id = $_;
+            push @{ $self->{ORDER} }, $_ if !$menuorder{$_};
+            $menuorder{$_} = 1;
+            next;
+        }
+
+        # add key=value to $id
+        my ( $key, $value ) = split /=/, $_, 2;
+
+        $self->{$id}{$key} = $value;
+
+    }
+    close FH;
+
+}
 
 1;