|
Lines 132-144
my ( $opac_news_count, $arrayref_opac_news ) = get_opac_news( 0, q{}, 'LIB1' );
Link Here
|
| 132 |
ok( $opac_news_count >= 2, 'Successfully tested get_opac_news for LIB1!' ); |
132 |
ok( $opac_news_count >= 2, 'Successfully tested get_opac_news for LIB1!' ); |
| 133 |
|
133 |
|
| 134 |
# Test GetNewsToDisplay |
134 |
# Test GetNewsToDisplay |
| 135 |
( $opac_news_count, $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
135 |
( $arrayref_opac_news ) = GetNewsToDisplay( q{}, 'LIB1' ); |
| 136 |
ok( !$arrayref_opac_news, 'Second parameter is ' . |
136 |
ok( $arrayref_opac_news, '$arrayref_opac_news is ' . |
| 137 |
( defined($arrayref_opac_news) ? |
137 |
( defined($arrayref_opac_news) ? |
| 138 |
("Defined as '$arrayref_opac_news'") : "UNDEFINED") |
138 |
('Defined') : 'UNDEFINED') |
| 139 |
); |
139 |
); |
| 140 |
ok ( ref $opac_news_count eq 'ARRAY', |
140 |
ok( ref $arrayref_opac_news eq 'ARRAY', |
| 141 |
'$opac_news_count is an array reference'); |
141 |
'$arrayref_opac_news is an array reference.' ); |
| 142 |
ok( $opac_news_count >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
142 |
ok( (scalar @$arrayref_opac_news) >= 2, 'Successfully tested GetNewsToDisplay for LIB1!' ); |
| 143 |
|
143 |
|
| 144 |
$dbh->rollback; |
144 |
$dbh->rollback; |
| 145 |
- |
|
|