gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Serials.pm + NewsChannels.pm - use Dates and replace old CVS-based $VERSION. 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2007-12-07 17:14:47 -06:00 committed by Joshua Ferraro
parent 494ed0e661
commit f6ff3d86e7
2 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C4/NewsChannels.pm
View File

@ -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;

7
C4/Serials.pm
View File

@ -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