SF.net SVN: ledger-smb: [677] branches/1.2

[..hidden..]

Revision: 677
          http://svn.sourceforge.net/ledger-smb/?rev=677&view=rev
Author:   einhverfr
Date:     2006-11-20 22:54:58 -0800 (Mon, 20 Nov 2006)

Log Message:
-----------
Removing Vanilla Perl shebang from common.pl

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/common.pl

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2006-11-21 05:44:16 UTC (rev 676)
+++ branches/1.2/LedgerSMB/Form.pm	2006-11-21 06:54:58 UTC (rev 677)
@@ -2301,17 +2301,7 @@
 
 	my ($self, $str) = @_;
 
-	if ($str !~ /(%|_)/) {
-
-		if ($str =~ /(^").*("$)/) {
-			$str =~ s/(^"|"$)//g; 
-		} else { 
-			$str = "%$str%";
-		}
-	}
-
-	$str =~ s/'/''/g;
-	$str;
+	"%$str%";
 }
 
 

Modified: branches/1.2/common.pl
===================================================================
--- branches/1.2/common.pl	2006-11-21 05:44:16 UTC (rev 676)
+++ branches/1.2/common.pl	2006-11-21 06:54:58 UTC (rev 677)
@@ -1,4 +1,3 @@
-#!c:\vanilla-perl\perl\bin\perl
 #
 ######################################################################
 # LedgerSMB Accounting and ERP


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.