View | Details | Raw Unified | Return to bug 18244
Collapse All | Expand All

(-)a/C4/Patroncards/Patroncard.pm (-4 / +3 lines)
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
- 

Return to bug 18244