Index: wiki.cgi =================================================================== --- wiki.cgi (revision 756) +++ wiki.cgi (working copy) @@ -1,14 +1,15 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl use strict; use warnings; use vars qw( $VERSION ); -$VERSION = '0.53'; +$VERSION = '0.51-local'; use CGI qw/:standard/; use CGI::Carp qw(croak); use CGI::Wiki; +use CGI::Wiki::Plugin::Summariser; use Geography::NationalGrid; use Geography::NationalGrid::GB; use OpenGuides; @@ -260,16 +258,20 @@ config => $config, metadata => $node_data{metadata} ); - $metadata_vars{website} ||= 'http://'; - + my $summariser = CGI::Wiki::Plugin::Summariser->new; + $wiki->register_plugin( plugin => $summariser ); + my @categories = $summariser->metadata_list( type => 'Category' ); + my @locales = $summariser->metadata_list( type => 'Locale' ); my %tt_vars = ( content => $q->escapeHTML($content), checksum => $q->escapeHTML($checksum), %metadata_vars, username => $username, + global_categories => \@categories, + global_locales => \@locales, edit_type => $edit_type, deter_robots => 1, ); - + process_template("edit_form.tt", $node, \%tt_vars); }