[Koha-cvs] CVS: koha/rss rss.pl,1.1,1.2

[Owen Leonard]

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 address@hidden;
! }
! 
! 
! 
! 
! 
! 
--- 106,108 ----
      $sth->finish;
      return address@hidden;
! }
\ No newline at end of file