view release on metacpan or  search on metacpan

lib/CGI/Kwiki/Formatter.pm  view on Meta::CPAN

}

sub SLIDESHOW_SELECTOR {
    my ($self) = @_;
    $slide_num = 1;
    my $page_id = $self->cgi->page_id;
    my $start = $self->loc('start');
    my $html = <<END;
<script src="javascript/SlideStart.js"></script>
<form>
${ \ CGI::popup_menu(
         -name => 'size',
         -values => [qw(640x480 800x600 1024x768 1280x1024 1600x1200), $self->loc('fullscreen')]
     )
 }
<input type="button" name="button" value="$start" onclick="startSlides()">
<input type="hidden" name="action" value="START">
<input type="hidden" name="page_id" value="$page_id">
</form>
END
    $html;

lib/CGI/Kwiki/Plugin/Diff.pm  view on Meta::CPAN

package CGI::Kwiki::Plugin::Diff;
$VERSION = '0.18';
use strict;
use CGI qw(start_form end_form popup_menu hidden);
use base 'CGI::Kwiki::Plugin';

sub process {
    my ($self) = @_;
    my $page_id = $self->cgi->page_id;

    my $diff = $self->diff($page_id);
    my $entry_form = $self->entry_form($page_id);
    $self->template->process(
        [qw(display_header display_body basic_footer)],

lib/CGI/Kwiki/Plugin/Diff.pm  view on Meta::CPAN

        push @values, $key;
        $selected = $key if $key eq $current_revision;
        $labels{$key} = "$_->{file_rev} ($_->{date}) $_->{edit_by}";
    }

    my $prompt = $self->loc("Revision Diffs for <a href='%1'>%2</a>:", ($self->script . '?' . $self->escape($page_id)), $page_id);
    <<FORM;
<form>
$prompt
${\
    popup_menu(
        -name => 'diff_revision', 
        -values => \@values, 
        -default => $selected, 
        -labels => \%labels,
        -onChange => "submit()",
    ) 
}
<input type="hidden" name="action" value="plugin" />
<input type="hidden" name="plugin_name" value="Diff" />
<input type="hidden" name="page_id" value="$page_id" />