From c569e60bf34de095fec410d9239260ed344e40d9 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 12 Nov 2006 07:11:59 +0000
Subject: Fixed 2 bugs:  import text not working with alphanumeric partnumbers
 and commit ineffective in IR::retrieve_item

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@525 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IR.pm | 2 --
 bin/ir.pl       | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index c3766227..d5b38bda 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -1214,8 +1214,6 @@ sub retrieve_item {
 		$where .= " ORDER BY 2";
 	}
 
-	# connect to database
-	my $dbh = $form->dbconnect($myconfig);
 
 	my $query = qq|
 		   SELECT p.id, p.partnumber, p.description,
diff --git a/bin/ir.pl b/bin/ir.pl
index ac51c59b..f05fb764 100755
--- a/bin/ir.pl
+++ b/bin/ir.pl
@@ -635,7 +635,7 @@ sub import_text {
   my @i_lines = split(/(\n|\r|\r\n)/, $form->{import_text});
   foreach $i (@i_lines){
     chomp($i);
-    if ($i != ""){ # Strip out blank lines
+    if ($i ne ""){ # Strip out blank lines
       push @o_list, $i;
     }
   }
-- 
cgit v1.2.3