Changeset 294 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

Timestamp:

05/18/06 16:44:39 (6 years ago)

Author:

nick

Message:

More splitting of data fetch and rendering, this time for Atom

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm (modified) (3 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

@@ -154 +154 @@
   my (@urls, @items);
 
-  foreach my $change (@nodes)
-  {
-    my $node_name = $change->{name};
-
-    my $timestamp = $change->{last_modified};
+  foreach my $node (@nodes)
+  {
+    my $node_name = $node->{name};
+
+    my $timestamp = $node->{last_modified};
     
     # Make a Time::Piece object.
@@ -167 +167 @@
     $timestamp = $time->strftime( "%Y-%m-%dT%H:%M:%S$utc_offset" );
 
-    my $author      = $change->{metadata}{username}[0] || $change->{metadata}{host}[0] || '';
-    my $description = $change->{metadata}{comment}[0]  || '';
+    my $author      = $node->{metadata}{username}[0] || $node->{metadata}{host}[0] || '';
+    my $description = $node->{metadata}{comment}[0]  || '';
 
     $description .= " [$author]" if $author;
 
-    my $version = $change->{version};
+    my $version = $node->{version};
     my $status  = (1 == $version) ? 'new' : 'updated';
 
-    my $major_change = $change->{metadata}{major_change}[0];
+    my $major_change = $node->{metadata}{major_change}[0];
        $major_change = 1 unless defined $major_change;
     my $importance = $major_change ? 'major' : 'minor';
@@ -239 +239 @@
 }
 
+=item B<rss_timestamp>
+
+Generate the timestamp for the RSS, by figuring out the age range of
+the source data for the feed
+
+=cut
 sub rss_timestamp
 {