|
Lines 97-103
my $subscriptionid_not_late = NewSubscription(
Link Here
|
| 97 |
undef, undef, undef, undef, undef, undef, |
97 |
undef, undef, undef, undef, undef, undef, |
| 98 |
1, "notes", undef, '9999-01-01', undef, undef, |
98 |
1, "notes", undef, '9999-01-01', undef, undef, |
| 99 |
undef, undef, 0, "intnotes", 0, |
99 |
undef, undef, 0, "intnotes", 0, |
| 100 |
undef, undef, 0, undef, '2013-12-31', 0 |
100 |
undef, undef, 0, 0, undef, '2013-12-31', 0 |
| 101 |
); |
101 |
); |
| 102 |
$supplierlist = GetSuppliersWithLateIssues(); |
102 |
$supplierlist = GetSuppliersWithLateIssues(); |
| 103 |
is( scalar(@$supplierlist), 0, 'There is still no late issues yet' ); |
103 |
is( scalar(@$supplierlist), 0, 'There is still no late issues yet' ); |
|
Lines 108-114
my $subscriptionid_inlate1 = NewSubscription(
Link Here
|
| 108 |
undef, undef, undef, undef, undef, undef, |
108 |
undef, undef, undef, undef, undef, undef, |
| 109 |
1, "notes", undef, '2013-01-01', undef, undef, |
109 |
1, "notes", undef, '2013-01-01', undef, undef, |
| 110 |
undef, undef, 0, "intnotes", 0, |
110 |
undef, undef, 0, "intnotes", 0, |
| 111 |
undef, undef, 0, undef, '2013-12-31', 0 |
111 |
undef, undef, 0, 0, undef, '2013-12-31', 0 |
| 112 |
); |
112 |
); |
| 113 |
|
113 |
|
| 114 |
my $subscriptionid_inlate2 = NewSubscription( |
114 |
my $subscriptionid_inlate2 = NewSubscription( |
|
Lines 117-123
my $subscriptionid_inlate2 = NewSubscription(
Link Here
|
| 117 |
undef, undef, undef, undef, undef, undef, |
117 |
undef, undef, undef, undef, undef, undef, |
| 118 |
1, "notes", undef, '2013-01-01', undef, undef, |
118 |
1, "notes", undef, '2013-01-01', undef, undef, |
| 119 |
undef, undef, 0, "intnotes", 0, |
119 |
undef, undef, 0, "intnotes", 0, |
| 120 |
undef, undef, 0, undef, '2013-12-31', 0 |
120 |
undef, undef, 0, 0, undef, '2013-12-31', 0 |
| 121 |
); |
121 |
); |
| 122 |
|
122 |
|
| 123 |
my $subscriptionid_inlate3 = NewSubscription( |
123 |
my $subscriptionid_inlate3 = NewSubscription( |
|
Lines 126-132
my $subscriptionid_inlate3 = NewSubscription(
Link Here
|
| 126 |
undef, undef, undef, undef, undef, undef, |
126 |
undef, undef, undef, undef, undef, undef, |
| 127 |
1, "notes", undef, '2013-01-02', undef, undef, |
127 |
1, "notes", undef, '2013-01-02', undef, undef, |
| 128 |
undef, undef, 0, "intnotes", 0, |
128 |
undef, undef, 0, "intnotes", 0, |
| 129 |
undef, undef, 0, undef, '2013-12-31', 0 |
129 |
undef, undef, 0, 0, undef, '2013-12-31', 0 |
| 130 |
); |
130 |
); |
| 131 |
|
131 |
|
| 132 |
$supplierlist = GetSuppliersWithLateIssues(); |
132 |
$supplierlist = GetSuppliersWithLateIssues(); |