From dfcc6037f82418a4ab5c2a9f208e5675ca284183 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:02 -0600 Subject: [PATCH] NewsChannels.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/NewsChannels.pm | 31 +++++++++++++------------------ 1 file changed, 13 insertions(+), 18 deletions(-) diff --git a/C4/NewsChannels.pm b/C4/NewsChannels.pm index 29a258656d..ec222baba6 100644 --- a/C4/NewsChannels.pm +++ b/C4/NewsChannels.pm @@ -25,7 +25,16 @@ use C4::Dates qw(format_date); use vars qw($VERSION @ISA @EXPORT); BEGIN { - $VERSION = 3.00; # set the version for version checking + $VERSION = 3.01; # set the version for version checking + @ISA = qw(Exporter); + @EXPORT = qw( + &GetNewsToDisplay + &news_channels &get_new_channel &del_channels &add_channel &update_channel + &news_channels_categories &get_new_channel_category &del_channels_categories + &add_channel_category &update_channel_category &news_channels_by_category + &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news + &add_opac_electronic &upd_opac_electronic &del_opac_electronic &get_opac_electronic &get_opac_electronics + ); } =head1 NAME @@ -40,20 +49,6 @@ This module provides the functions needed to admin the news channels and its cat =over 2 -=cut - - -@ISA = qw(Exporter); -@EXPORT = qw( - &GetNewsToDisplay - &news_channels &get_new_channel &del_channels &add_channel &update_channel - &news_channels_categories &get_new_channel_category &del_channels_categories - &add_channel_category &update_channel_category &news_channels_by_category - &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news - &add_opac_electronic &upd_opac_electronic &del_opac_electronic &get_opac_electronic &get_opac_electronics -); - - =item news_channels ($count, @channels) = &news_channels($channel_name, $id_category, $unclassified); @@ -411,14 +406,14 @@ sub get_opac_electronics { my $count = 0; while (my $row = $sth->fetchrow_hashref) { push @opac_electronic, $row; - - $count++; } return ($count,\@opac_electronic); } -END { } # module clean-up code here (global destructor) + +1; +__END__ =back -- 2.39.2