@ISA = qw(Exporter);
@EXPORT = qw(
&GetNewsToDisplay
&add_opac_new &upd_opac_new &del_opac_new
&add_opac_new &upd_opac_new
);
}
return $retval;
sub del_opac_new {
my ($ids) = @_;
if ($ids) {
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("DELETE FROM opac_news WHERE idnew IN ($ids)");
$sth->execute();
return 1;
} else {
return 0;
=head2 GetNewsToDisplay
$news = &GetNewsToDisplay($lang,$branch);
elsif ( $op eq 'del' ) {
my @ids = $cgi->multi_param('ids');
del_opac_new( join ",", @ids );
Koha::News->search({ idnew => @ids })->delete;
print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
-