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(); |