Lines 89-103
sub draw_text {
Link Here
|
89 |
my $line = shift @$text; |
89 |
my $line = shift @$text; |
90 |
my $parse_line = $line; |
90 |
my $parse_line = $line; |
91 |
my @orig_line = split(/ /,$line); |
91 |
my @orig_line = split(/ /,$line); |
92 |
if ($parse_line =~ m/<[A-Za-z0-9]+>/) { # test to see if the line has db fields embedded... |
92 |
if ($parse_line =~ m/<[A-Za-z0-9_]+>/) { # test to see if the line has db fields embedded... |
93 |
my @fields = (); |
93 |
my @fields = (); |
94 |
while ($parse_line =~ m/<([A-Za-z0-9]+)>(.*$)/) { |
94 |
while ($parse_line =~ m/<([A-Za-z0-9_]+)>(.*$)/) { |
95 |
push (@fields, $1); |
95 |
push (@fields, $1); |
96 |
$parse_line = $2; |
96 |
$parse_line = $2; |
97 |
} |
97 |
} |
98 |
my $borrower_attributes = get_borrower_attributes($self->{'borrower_number'},@fields); |
98 |
my $borrower_attributes = get_borrower_attributes($self->{'borrower_number'},@fields); |
99 |
grep{ # substitute data for db fields |
99 |
grep{ # substitute data for db fields |
100 |
if ($_ =~ m/<([A-Za-z0-9]+)>/) { |
100 |
if ($_ =~ m/<([A-Za-z0-9_]+)>/) { |
101 |
my $field = $1; |
101 |
my $field = $1; |
102 |
$_ =~ s/$_/$borrower_attributes->{$field}/; |
102 |
$_ =~ s/$_/$borrower_attributes->{$field}/; |
103 |
} |
103 |
} |
104 |
- |
|
|