[Koha-cvs] CVS: koha/rss rss.pl,1.1,1.2
Owen Leonard
oleonard at users.sourceforge.net
Wed Aug 11 16:54:08 CEST 2004
- Previous message: [Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/help/bull subscription-add.tmpl,NONE,1.1
- Next message: [Koha-cvs] CVS: koha/rss lastAcquired-1.0.conf,NONE,1.1 lastAcquired-1.0.tmpl,NONE,1.1 lastAcquired-2.0.conf,NONE,1.1 lastAcquired-2.0.tmpl,NONE,1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/koha/koha/rss
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9275/rss
Modified Files:
rss.pl
Log Message:
Adding more variables for RSS 2.0 template, altering date format for RSS 2.0 compatibility
Index: rss.pl
===================================================================
RCS file: /cvsroot/koha/koha/rss/rss.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** rss.pl 9 Jan 2004 20:44:42 -0000 1.1
--- rss.pl 11 Aug 2004 14:53:58 -0000 1.2
***************
*** 1,3 ****
! #!/usr/bin/perl -w
# This script can be used to generate rss 0.91 files for syndication.
--- 1,3 ----
! #!/usr/bin/perl
# This script can be used to generate rss 0.91 files for syndication.
***************
*** 31,35 ****
--- 31,37 ----
use C4::Context;
use Time::Local;
+ use POSIX;
+ my $dbh = C4::Context->dbh;
my $file = $ARGV[0];
my %config = getConf("config");
***************
*** 48,51 ****
--- 50,56 ----
$feed->param(IMAGEURL => $image{'url'});
$feed->param(IMAGELINK => $image{'link'});
+ $feed->param(IMAGEDESCRIPTION => $image{'description'});
+ $feed->param(IMAGEWIDTH => $image{'width'});
+ $feed->param(IMAGEHEIGHT => $image{'height'});
#
***************
*** 59,63 ****
sub getDate {
! my $date = localtime(timelocal(localtime));
return $date;
}
--- 64,69 ----
sub getDate {
! # my $date = localtime(timelocal(localtime));
! my $date = strftime("%a, %d %b %Y %T %Z", localtime);
return $date;
}
***************
*** 88,92 ****
my $query = shift;
$query .= " limit 15";
- my $dbh = C4::Context->dbh;
my $sth=$dbh->prepare($query);
$sth->execute;
--- 94,97 ----
***************
*** 101,109 ****
$sth->finish;
return \@return;
! }
!
!
!
!
!
!
--- 106,108 ----
$sth->finish;
return \@return;
! }
\ No newline at end of file
- Previous message: [Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/help/bull subscription-add.tmpl,NONE,1.1
- Next message: [Koha-cvs] CVS: koha/rss lastAcquired-1.0.conf,NONE,1.1 lastAcquired-1.0.tmpl,NONE,1.1 lastAcquired-2.0.conf,NONE,1.1 lastAcquired-2.0.tmpl,NONE,1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list