Show
Ignore:
Timestamp:
01/22/08 16:38:24 (11 months ago)
Author:
earle
Message:

Allow wiki links in change summaries. Closes #115.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r1132 r1141  
    339339                metadata_was   => { edit_type => "Normal edit" }, 
    340340            ); 
     341            my $base_url = $config->script_name . '?'; 
    341342            @recent = map { 
    342343                            { 
     
    345346                                  CGI->escapeHTML($_->{last_modified}), 
    346347                              version       => CGI->escapeHTML($_->{version}), 
    347                               comment       => 
     348                              comment       => OpenGuides::Utils::parse_change_comment( 
    348349                                  CGI->escapeHTML($_->{metadata}{comment}[0]), 
     350                                  $base_url, 
     351                              ), 
    349352                              username      => 
    350353                                  CGI->escapeHTML($_->{metadata}{username}[0]), 
    351                               url           => $config->script_name . "?" 
     354                              url           => $base_url 
    352355                                             . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})) 
    353356                            } 
     
    653656          unless $minor_edits; 
    654657        my @rc = $self->{wiki}->list_recent_changes( %criteria ); 
    655   
     658 
     659        my $base_url = $config->script_name . '?'; 
     660         
    656661        @rc = map { 
    657662            { 
     
    659664              last_modified => CGI->escapeHTML($_->{last_modified}), 
    660665              version     => CGI->escapeHTML($_->{version}), 
    661               comment     => CGI->escapeHTML($_->{metadata}{comment}[0]), 
     666              comment     => OpenGuides::Utils::parse_change_comment( 
     667                  CGI->escapeHTML($_->{metadata}{comment}[0]), 
     668                  $base_url, 
     669              ), 
    662670              username    => CGI->escapeHTML($_->{metadata}{username}[0]), 
    663671              host        => CGI->escapeHTML($_->{metadata}{host}[0]), 
    664672              username_param => CGI->escape($_->{metadata}{username}[0]), 
    665673              edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]), 
    666               url         => $config->script_name . "?" 
     674              url         => $base_url 
    667675      . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})), 
    668676        } 
     
    678686            my @rc = $self->{wiki}->list_recent_changes( %criteria ); 
    679687 
     688            my $base_url = $config->script_name . '?'; 
     689             
    680690            @rc = map { 
    681691            { 
     
    683693              last_modified => CGI->escapeHTML($_->{last_modified}), 
    684694              version     => CGI->escapeHTML($_->{version}), 
    685               comment     => CGI->escapeHTML($_->{metadata}{comment}[0]), 
     695              comment     => OpenGuides::Utils::parse_change_comment( 
     696                  CGI->escapeHTML($_->{metadata}{comment}[0]), 
     697                  $base_url, 
     698              ), 
    686699              username    => CGI->escapeHTML($_->{metadata}{username}[0]), 
    687700              host        => CGI->escapeHTML($_->{metadata}{host}[0]), 
    688701              username_param => CGI->escape($_->{metadata}{username}[0]), 
    689702              edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]), 
    690               url         => $config->script_name . "?" 
     703              url         => $base_url 
    691704      . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})), 
    692705        } 
     
    10221035            modified => CGI->escapeHTML( $node_data{last_modified} ), 
    10231036            username => CGI->escapeHTML( $node_data{metadata}{username}[0] ), 
    1024             comment  => CGI->escapeHTML( $node_data{metadata}{comment}[0] ), 
    1025                        } if $node_data{version}; 
     1037            comment  => OpenGuides::Utils::parse_change_comment( 
     1038                CGI->escapeHTML( $node_data{metadata}{comment}[0] ), 
     1039                $self->config->script_name . '?', 
     1040            ), 
     1041        } if $node_data{version}; 
    10261042    } 
    10271043    @history = reverse @history;