Changeset 567


Ignore:
Timestamp:
Nov 30, 2004, 4:27:19 AM (17 years ago)
Author:
kake
Message:

Make sure second write works.

Location:
trunk
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides/Test.pm

    r566 r567  
    8585sub write_data {
    8686    my ($class, %args) = @_;
    87    
     87
    8888    # Set up CGI parameters ready for a node write.
    8989    # Most of these are in here to avoid uninitialised value warnings.
     
    110110    $ENV{REMOTE_ADDR} = "127.0.0.1";
    111111   
     112    # Get the checksum of the current contents if necessary.
     113    my $wiki = $args{guide}->wiki;
     114    if ( $wiki->node_exists( $args{node} ) ) {
     115        my %data = $wiki->retrieve_node( $args{node} );
     116        $q->param( -name => "checksum", -value => $data{checksum} );
     117    }
     118
    112119    $args{guide}->commit_node(
    113120                               return_output => 1,
Note: See TracChangeset for help on using the changeset viewer.