Changeset 424


Ignore:
Timestamp:
May 10, 2008, 5:34:11 PM (14 years ago)
Author:
Dominic Hargreaves
Message:

whitespace-only change to fix some POD bugs and generally make things read
more nicely. Tab-damage fixing still todo...

Location:
wiki-toolkit/trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • wiki-toolkit/trunk/Changes

    r411 r424  
    77          any bugs that may have been introduced (I'm not convinced the test
    88          suite covered everything it should have).
     9        Fix some badly-formatted POD documentation which accidentally included
     10          some code
    911
    10120.74    9  June 2007
  • wiki-toolkit/trunk/lib/Wiki/Toolkit.pm

    r408 r424  
    234234highest moderated version, then update the node's contents to hold
    235235this version.
     236
    236237=cut
    237238
     
    255256When moderation is required, new versions of a node will sit about
    256257until they're tagged as moderated, when they will become the new node.
     258
    257259=cut
    258260
     
    271273one, and re-writes any wiki links in these to point to the new name. If
    272274required, it can mark these updates to other pages as a new version.
     275
    273276=cut
    274277
     
    416419      metadata_type  => "latitude"
    417420  );
    418 =cut
     421
     422=cut
     423
    419424sub list_nodes_by_missing_metadata {
    420425    my ($self, @args) = @_;
     
    460465  Otherwise, all node versions (including old ones, and possibly multiple
    461466   per node) are returned.
     467
    462468=cut
    463469
     
    479485Returns all the versions of a node, optionally including the content
    480486and metadata, as an array of hashes (newest versions first).
    481 =cut
     487
     488=cut
     489
    482490sub list_node_all_versions {
    483491    my ($self,@argsarray) = @_;
     
    502510               
    503511        }
    504 =cut
     512
     513=cut
     514
    505515sub list_last_version_before {
    506516    my ($self,@argsarray) = @_;
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm

    r372 r424  
    7777
    7878=cut
     79
    7980sub build_feed_start {
    8081  my ($self,$atom_timestamp) = @_;
     
    118119
    119120=cut
     121
    120122sub build_feed_end {
    121123    my ($self,$feed_timestamp) = @_;
     
    129131 
    130132=cut
     133
    131134sub generate_node_list_feed {
    132135  my ($self,$atom_timestamp,@nodes) = @_;
     
    217220 
    218221=cut
     222
    219223sub generate_node_name_distance_feed {
    220224  my ($self,$atom_timestamp,@nodes) = @_;
     
    262266
    263267=cut
     268
    264269sub feed_timestamp
    265270{
     
    285290
    286291=cut
     292
    287293sub parse_feed_timestamp {
    288294    my ($self, $feed_timestamp) = @_;
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Listing.pm

    r367 r424  
    193193# Utility method, to help with argument passing where one of a list of
    194194#  arguments must be supplied
     195#
    195196#=cut
     197
    196198sub handle_supply_one_of {
    197199    my ($self,$mref,$aref) = @_;
     
    250252
    251253=cut
     254
    252255sub parse_feed_timestamp { die("Not implemented by feed renderer!"); }
    253 
    254256
    2552571;
     
    279281under the same terms as Perl itself.
    280282
    281 
    282 =cut
     283=cut
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/RSS.pm

    r372 r424  
    6666
    6767=cut
     68
    6869sub build_feed_start {
    6970  my ($self,$feed_timestamp) = @_;
     
    9192
    9293=cut
     94
    9395sub build_feed_mid {
    9496    my ($self,$feed_timestamp) = @_;
     
    137139
    138140=cut
     141
    139142sub build_feed_end {
    140143    my ($self,$feed_timestamp) = @_;
     
    149152
    150153=cut
     154
    151155sub generate_node_list_feed {
    152156  my ($self,$feed_timestamp,@nodes) = @_;
     
    280284
    281285=cut
     286
    282287sub generate_node_name_distance_feed {
    283288  my ($self,$feed_timestamp,@nodes) = @_;
     
    351356
    352357=cut
     358
    353359sub feed_timestamp {
    354360    my ($self, $newest_node) = @_;
     
    383389
    384390=cut
     391
    385392sub parse_feed_timestamp {
    386393    my ($self, $feed_timestamp) = @_;
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm

    r319 r424  
    1919        fetch_upgrade_old_to_9(@_);
    2020}
     21
    2122# Fetch from the old style database, ready for an upgrade to db version 9
    2223sub fetch_upgrade_old_to_9 {
     
    101102        return (\%nodes,\%contents,\%metadatas,\@internal_links,\%ids);
    102103}
     104
    103105# Fetch from schema version 8, and upgrade to version 9
    104106sub fetch_upgrade_8_to_9 {
     
    168170}
    169171
    170 
    171172# Get the version of the database schema
    172173sub get_database_version {
     
    201202        }
    202203}
    203 
    204204
    205205# Put the latest data into the latest database structure
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm

    r423 r424  
    2424  $CAN_USE_ENCODE = $@ ? 0 : 1;
    2525}
    26 
    2726
    2827=head1 NAME
     
    143142        }
    144143}
    145 
    146144
    147145=item B<retrieve_node>
     
    680678Uses the internal_links table to identify the nodes that link to this
    681679one, and re-writes any wiki links in these to point to the new name.
    682 =cut
     680
     681=cut
     682
    683683sub rename_node {
    684684    my ($self, %args) = @_;
     
    827827highest moderated version, then update the node's contents to hold
    828828this version.
     829
    829830=cut
    830831
     
    928929
    929930Sets if new node versions will require moderation or not
     931
    930932=cut
    931933
     
    17001702      metadata_type  => "latitude"
    17011703  );
    1702 =cut
     1704
     1705=cut
     1706
    17031707sub list_nodes_by_missing_metadata {
    17041708    my ($self, %args) = @_;
     
    17461750
    17471751=item B<_get_list_by_metadata_sql>
     1752
    17481753Return the SQL to do a match by metadata. Should expect the metadata type
    17491754as the first SQL parameter, and the metadata value as the second.
    17501755
    17511756If possible, should take account of $args{ignore_case}
    1752 =cut
     1757
     1758=cut
     1759
    17531760sub _get_list_by_metadata_sql {
    17541761        # SQL 99 version
     
    17751782
    17761783=item B<_get_list_by_missing_metadata_sql>
     1784
    17771785Return the SQL to do a match by missing metadata. Should expect the metadata
    17781786type as the first SQL parameter.
    17791787
    17801788If possible, should take account of $args{ignore_case}
    1781 =cut
     1789
     1790=cut
     1791
    17821792sub _get_list_by_missing_metadata_sql {
    17831793        # SQL 99 version
     
    18891899
    18901900=item B<list_last_version_before>
    1891         List the last version of every node before a given date.
    1892         If no version existed before that date, will return undef for version.
    1893         Returns a hash of id, name, version and date
    1894 
    1895         my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
    1896         foreach my $data (@nv) {
    1897                
    1898         }
    1899 =cut
     1901
     1902    List the last version of every node before a given date.
     1903    If no version existed before that date, will return undef for version.
     1904    Returns a hash of id, name, version and date
     1905
     1906    my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
     1907    foreach my $data (@nv) {
     1908       
     1909    }
     1910
     1911=cut
     1912
    19001913sub list_last_version_before {
    19011914        my ($self, $date) = @_;
     
    19311944
    19321945=item B<list_metadata_by_type>
    1933         List all the currently defined values of the given type of metadata.
    1934 
    1935         Will only work with the latest moderated version
    1936 
    1937         # List all of the different metadata values with the type 'category'
    1938         my @categories = $wiki->list_metadata_by_type('category');
    1939 =cut
     1946
     1947    List all the currently defined values of the given type of metadata.
     1948
     1949    Will only work with the latest moderated version
     1950
     1951    # List all of the different metadata values with the type 'category'
     1952    my @categories = $wiki->list_metadata_by_type('category');
     1953
     1954=cut
     1955
    19401956sub list_metadata_by_type {
    19411957        my ($self, $type) = @_;
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Pg.pm

    r378 r424  
    9494}
    9595
    96 
    97961;
Note: See TracChangeset for help on using the changeset viewer.