From f6ff3d86e7b95cc71d2ddd64f4e8d0504b251365 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Fri, 7 Dec 2007 17:14:47 -0600
Subject: [PATCH] Serials.pm + NewsChannels.pm - use Dates and replace old
 CVS-based $VERSION.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/NewsChannels.pm | 13 ++++++-------
 C4/Serials.pm      |  7 ++-----
 2 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/C4/NewsChannels.pm b/C4/NewsChannels.pm
index 7e2fdd9a1d..5a3def4350 100644
--- a/C4/NewsChannels.pm
+++ b/C4/NewsChannels.pm
@@ -20,14 +20,13 @@ package C4::NewsChannels;
 use strict;
 
 use C4::Context;
-use C4::Date;
+use C4::Dates qw(format_date);
 
 use vars qw($VERSION @ISA @EXPORT);
 
-# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
-    shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+BEGIN { 
+		$VERSION = 3.00;	# set the version for version checking
+}
 
 =head1 NAME
 
@@ -50,7 +49,7 @@ This module provides the functions needed to admin the news channels and its cat
   &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_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
 );
 
@@ -337,7 +336,7 @@ sub GetNewsToDisplay {
       )
       AND   lang = ?
       ORDER BY number
-    ";
+    ";				# expirationdate field is NOT in ISO format?
     my $sth = $dbh->prepare($query);
     $sth->execute($lang);
     my @results;
diff --git a/C4/Serials.pm b/C4/Serials.pm
index 1fffe9e0b7..88c7f972de 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -19,7 +19,7 @@ package C4::Serials;    #assumes C4/Serials.pm
 
 
 use strict;
-use C4::Date;
+use C4::Dates qw(format_date format_date_in_iso);
 use Date::Calc qw(:all);
 use POSIX qw(strftime);
 use C4::Suggestions;
@@ -33,10 +33,7 @@ require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
-# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
-    shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;	# set version for version checking
 
 =head1 NAME
 
-- 
2.39.5