Lines 140-145
sub prep_report {
Link Here
|
140 |
{ #The placeholders are always the odd elements of the array |
140 |
{ #The placeholders are always the odd elements of the array |
141 |
my ( $type, $name ) = split /\|/, |
141 |
my ( $type, $name ) = split /\|/, |
142 |
$split[ $i * 2 + 1 ]; # We split them on '|' |
142 |
$split[ $i * 2 + 1 ]; # We split them on '|' |
|
|
143 |
$name =~ s/^\s+|\s+$//; # Trim |
143 |
$headers->{$name} = $type; # Store as a lookup for the template |
144 |
$headers->{$name} = $type; # Store as a lookup for the template |
144 |
$headers->{$name} =~ |
145 |
$headers->{$name} =~ |
145 |
s/^\w*\.//; # strip the table name just as in $sth->{NAME} array |
146 |
s/^\w*\.//; # strip the table name just as in $sth->{NAME} array |
146 |
- |
|
|