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

(-)a/serials/lateissues-export.pl (-7 / +11 lines)
Lines 46-59 my $csv = Text::CSV_XS->new({ Link Here
46
my $content = $csv_profile->content;
46
my $content = $csv_profile->content;
47
my ( @headers, @fields );
47
my ( @headers, @fields );
48
while ( $content =~ /
48
while ( $content =~ /
49
    ([^=]+) # header
49
    ([^=\|]+) # header
50
    =
50
    =?
51
    ([^\|]+) # fieldname (table.row or row)
51
    ([^\|]*) # fieldname (table.row or row)
52
    \|? /gxms
52
    \|? /gxms
53
) {
53
) {
54
    push @headers, $1;
54
    my $header = $1;
55
    my $field = $2;
55
    my $field = ($2 eq '') ? $1 : $2;
56
    $field =~ s/[^\.]*\.?//; # Remove the table name if exists.
56
57
    $header =~ s/^\s+|\s+$//g; # Trim whitespaces
58
    push @headers, $header;
59
60
    $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
61
    $field =~ s/^\s+|\s+$//g; # Trim whitespaces
57
    push @fields, $field;
62
    push @fields, $field;
58
}
63
}
59
64
60
- 

Return to bug 18536