############################################################
#
# ページの名称を変更するためのフォームを出力します。
#
############################################################
package plugin::rename::RenameForm;
use strict;
#===========================================================
# コンストラクタ
#===========================================================
sub new {
my $class = shift;
my $self = {};
return bless $self,$class;
}
#===========================================================
# ヘルプを表示します。
#===========================================================
sub editform {
my $self = shift;
my $wiki = shift;
my $cgi = $wiki->get_CGI();
my $page = $cgi->param("page");
# ページが存在する場合だけフォームを表示
if($wiki->page_exists($page)){
my $time = $wiki->get_last_modified($page);
return "リネーム・コピー
".
"\n";
}
}
1;