summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-10 18:11:57 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-10 18:11:57 +0000
commit0c8557918a88d43d649c3ee4c308dfc738765fd6 (patch)
tree48241c1ecb03cbe12cd40640096955484a84de08 /LedgerSMB
parent95566394eee3c5db5a1abcf4a348a225122cf7d9 (diff)
Some substitution fixes for update_defaults
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2069 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Form.pm39
1 files changed, 20 insertions, 19 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 90c99500..33eab435 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1140,7 +1140,7 @@ sub format_line {
my $pad;
my $item;
- while (/<\?lsmb (.+?) \?>/) {
+ TAG: while (/<\?lsmb (.+?) \?>/) {
%a = ();
@@ -1168,12 +1168,11 @@ sub format_line {
$var =~ s/if\s+not\s+//;
s/<\?lsmb if\s+not\s+$var \?>.*?(<\?lsmb end\s+$var \?>|$)//s;
- }
- else {
+ } else {
s/<\?lsmb $var \?>//;
}
- next;
+ next TAG;
}
if ( $var =~ /^if\s+/ ) {
@@ -1186,12 +1185,12 @@ sub format_line {
s/<\?lsmb if\s+$var \?>.*?(<\?lsmb end\s+$var \?>|$)//s;
}
- next;
+ next TAG;
}
if ( $var =~ /^end\s+/ ) {
s/<\?lsmb $var \?>//;
- next;
+ next TAG;
}
if ( $a{align} || $a{width} || $a{offset} ) {
@@ -1347,10 +1346,11 @@ sub format_string {
my $key;
- foreach $key ( @{ $replace{order}{$format} } ) {
- for (@fields) { $self->{$_} =~ s/$key/$replace{$format}{$key}/g }
+ CHAR: foreach $key ( @{ $replace{order}{$format} } ) {
+ FIELD: for (@fields) {
+ $self->{$_} =~ s/$key/$replace{$format}{$key}/g;
+ }
}
-
}
sub datetonum {
@@ -2947,6 +2947,7 @@ sub update_defaults {
$self->{transdate}
)
)[0];
+ $param = quotemeta $param;
$var =~ s/$param/$str/;
}
@@ -2965,21 +2966,19 @@ sub update_defaults {
}
my $p = $param;
- $p =~ s/(<|>|%)//g;
+ $p =~ s/(:<\?lsmb\s*|\s*\?>)//g;
my @p = split / /, $p;
my @n = split / /, uc $self->{$fld};
if ( $#p > 0 ) {
-
- for ( my $i = 1 ; $i <= $#p ; $i++ ) {
+ foreach my $i (1 .. $#p) {
$str .= substr( $n[ $i - 1 ], 0, $p[$i] );
}
-
- }
- else {
+ } else {
($str) = split /--/, $self->{$fld};
}
+ $param = quotemeta $param;
$var =~ s/$param/$str/;
$var =~ s/\W//g if $fld eq 'phone';
}
@@ -2987,21 +2986,23 @@ sub update_defaults {
if ( $param =~ /<\?lsmb (yy|mm|dd)/i ) {
my $p = $param;
- $p =~ s/(<|>|%)//g;
+ $p =~ s/(<\?lsmb\s*|\s*\?>)//g;
my $spc = $p;
- $spc =~ s/\w//g;
+ $spc =~ s/\w//g;
$spc = substr( $spc, 0, 1 );
my %d = ( yy => 1, mm => 2, dd => 3 );
my @p = ();
- my @a = $self->split_date( $myconfig->{dateformat},
+ my @date = $self->split_date( $myconfig->{dateformat},
$self->{transdate} );
- for ( sort keys %d ) { push @p, $a[ $d{$_} ] if ( $p =~ /$_/ ) }
+ for ( sort keys %d ) { push @p, $date[ $d{$_} ] if ( $p =~ /$_/i ) }
$str = join $spc, @p;
+ $param = quotemeta $param;
$var =~ s/$param/$str/;
}
if ( $param =~ /<\?lsmb curr/i ) {
+ $param = quotemeta $param;
$var =~ s/$param/$self->{currency}/;
}
}