Changeset 310
- Timestamp:
- 05/25/06 16:28:45 (6 years ago)
- Location:
- wiki-toolkit/trunk
- Files:
-
- 1 added
- 3 modified
-
MANIFEST (modified) (1 diff)
-
lib/Wiki/Toolkit/Feed/Atom.pm (modified) (3 diffs)
-
t/301_feed_atom_add_test_data.t (modified) (1 diff)
-
t/303_feed_atom_node_all_versions.t (added)
Legend:
- Unmodified
- Added
- Removed
-
wiki-toolkit/trunk/MANIFEST
r308 r310 75 75 t/301_feed_atom_add_test_data.t 76 76 t/302_feed_atom_recentchanges.t 77 t/303_feed_atom_node_all_versions.t 77 78 t/lib/Wiki/Toolkit/Plugin/Bar.pm 78 79 t/lib/Wiki/Toolkit/Plugin/Foo.pm -
wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm
r297 r310 50 50 } 51 51 52 =item B<recent_changes> 53 54 Build an Atom Feed of the recent changes to the Wiki::Toolkit instance, 55 using any supplied parameters to narrow the results. 56 57 =cut 52 58 sub recent_changes 53 59 { … … 61 67 return $self->generate_node_list_feed($atom_timestamp, @changes); 62 68 } 69 70 71 =item B<node_all_versions> 72 73 Build an Atom Feed of all the different versions of a given node. 74 75 =cut 76 sub node_all_versions 77 { 78 my ($self, %args) = @_; 79 80 my @all_versions = $self->fetch_node_all_versions(%args); 81 my $feed_timestamp = $self->feed_timestamp( $all_versions[0] ); 82 83 return $self->generate_node_list_feed($feed_timestamp, @all_versions); 84 } 85 63 86 64 87 =item <generate_node_list_feed> … … 130 153 $title =~ s/</</g; 131 154 $title =~ s/>/>/g; 155 156 # TODO: Store categories in the atom:category element (4.2.2) 157 # TODO: Find an Atom equivalent of ModWiki, so we can include more info 132 158 133 159 push @items, qq{ -
wiki-toolkit/trunk/t/301_feed_atom_add_test_data.t
r255 r310 19 19 my $wiki = Wiki::Toolkit->new( store => $store ); 20 20 21 # Write two versions of one node 22 # The recent changes should only show it once though 21 23 $wiki->write_node( "Old Node", 22 "We will write at least 15 nodes after this one" ); 24 "First version of Old Node" ); 25 my %old_node = $wiki->retrieve_node("Old Node"); 26 $wiki->write_node( "Old Node", 27 "We will write at least 15 nodes after this one", 28 $old_node{'checksum'} ); 23 29 24 30 my $slept = sleep(2);
