|
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 |
- |
|
|