Lines 63-73
for (my $k=0;$k<@serialid;$k++){
Link Here
|
63 |
@missingissues = GetLateOrMissingIssues($supplierid, $serialid[$k]); |
63 |
@missingissues = GetLateOrMissingIssues($supplierid, $serialid[$k]); |
64 |
|
64 |
|
65 |
for (my $j=0;$j<@missingissues;$j++){ |
65 |
for (my $j=0;$j<@missingissues;$j++){ |
66 |
my @rows2 = ($missingissues[$j]->{'name'}, # lets build up a row |
66 |
my @rows2 = ($missingissues[$j]->{'name'}, # lets build up a row |
67 |
$missingissues[$j]->{'title'}, |
67 |
$missingissues[$j]->{'title'}, |
68 |
$missingissues[$j]->{'serialseq'}, |
68 |
$missingissues[$j]->{'serialseq'}, |
69 |
$missingissues[$j]->{'planneddate'}, |
69 |
$missingissues[$j]->{'planneddate'}, |
70 |
); |
70 |
); |
71 |
push (@loop2, \@rows2); |
71 |
push (@loop2, \@rows2); |
72 |
} |
72 |
} |
73 |
$totalcount2 += scalar @missingissues; |
73 |
$totalcount2 += scalar @missingissues; |
Lines 79-87
my $heading ='';
Link Here
|
79 |
my $filename =''; |
79 |
my $filename =''; |
80 |
if($supplierid){ |
80 |
if($supplierid){ |
81 |
if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness |
81 |
if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness |
82 |
# not necessarily needed as the name will appear in supplier column also |
82 |
# not necessarily needed as the name will appear in supplier column also |
83 |
$heading = "FOR $missingissues[0]->{'name'}"; |
83 |
$heading = "FOR $missingissues[0]->{'name'}"; |
84 |
$filename = "_$missingissues[0]->{'name'}"; |
84 |
$filename = "_$missingissues[0]->{'name'}"; |
85 |
} |
85 |
} |
86 |
} |
86 |
} |
87 |
|
87 |
|
88 |
- |
|
|