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

2 files changed, 1 insertions, 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;
     }
   }