use strict;
package SuikaWiki::Plugin::Registry;


our %Info;
$Info{q#Obsolete#}->{Name} = q#Obsolete#;
$Info{q#Obsolete#}->{q#Version#} = q#2005.0121.1410#;
$Info{q#Obsolete#}->{q#InterfaceVersion#} = q#2.9.1#;
$Info{q#Obsolete#}->{q#mkpluginVersion#} = q#2.1.21#;
$Info{q#Obsolete#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Obsolete1050021141049Be_f#;
$Info{q#Obsolete#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:53:45 $#;
$Info{q#Obsolete#}->{RequiredPlugin} = [q#Error#, q#WikiResource#];
$Info{q#Obsolete#}->{Description} = [[q#Obsoleted formatting rules#, q#en#, q##]];
$Info{q#Obsolete#}->{License} = [[q#%%Perl%%#, q##, q##]];
$Info{q#Obsolete#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];

package SuikaWiki::Plugin::plugin::Obsolete1050021141049Be_f;

$SuikaWiki::Plugin::Rule{form_input}->{n} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source Obsolete.wp2, block FormattingRule[name()='[q#form-input#]/n']/Formatting)"
SuikaWiki::Plugin->module_package ('Error')
->report_error_simple ($o->{wiki},
WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
(name => 'Obsolete:WikiForm:n',
param => $o,
wiki => $o->{wiki}));
$p->{-parent}->append_new_node (type => '#element',
namespace_uri => q#http://www.w3.org/1999/xhtml#,
local_name => 'br')
->option (use_EmptyElemTag => 1);
$p->{-parent}->append_text ("\n");}}
#line 1 "(WikiPlugin module Obsolete, chunk 1)"
;

$SuikaWiki::Plugin::Rule{form_template}->{n} = {q#after#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source Obsolete.wp2, block FormattingRule[name()='[q#form-template#]/n']/After)"
SuikaWiki::Plugin->module_package ('Error')
->report_error_simple ($o->{wiki},
WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
(name => 'Obsolete:WikiForm:n',
param => $o, 
wiki => $o->{wiki}));
$p->{-result} .= "\n";}, q#Parameter#, {}, q#Description#, []}
#line 1 "(WikiPlugin module Obsolete, chunk 3)"
;

$SuikaWiki::Plugin::Rule{form_input}->{radio} = {q#Parameter#, {q#value#, {q#Type#, q#text#, q#Default#, q#(auto)#, q#Description#, [[q#Form control value returned when selected#, q#en#, q##]]}, q#label#, {q#Type#, q#text#, q#Default#, q#(none)#, q#Description#, [[q#A label descripting the selection#, q#en#, q##]]}, q#default#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#Initial value#, q#en#, q##]]}, q#desription#, {q#Type#, q#text#, q#Default#, q#(none)#, q#Description#, [[q#Human readable description about this selection#, q#en#, q##]]}}, q#Description#, [[q#One of one-from-many selection#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source Obsolete.wp2, block FormattingRule[name()='[q#form-input#]/radio']/Formatting)"
SuikaWiki::Plugin->module_package ('Error')
->report_error_simple ($o->{wiki},
WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
(name => 'Obsolete:WikiForm:%radio',
param => $o, 
wiki => $o->{wiki}));
my $id = SuikaWiki::Plugin->module_package ('WikiFormCore')
->control_id ($o,
local_id => $p->{id},
require_local_id => 1);
my $check = $p->{-parent}->append_new_node
(type => '#element',
namespace_uri => q#http://www.w3.org/1999/xhtml#,
local_name => 'input');
$check->set_attribute (type => 'radio');
$check->set_attribute (name => $id->{local_id});
$p->{q#value#} = do { my $r = $f->parse_attr ($p=>q#value#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#default#} = do { my $r = $f->parse_attr ($p=>q#default#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#description#} = do { my $r = $f->parse_attr ($p=>q#description#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
$check->set_attribute (checked => 'checked') if $p->{default};
$check->set_attribute (value => $p->{value}) if length $p->{value};
$check->set_attribute (disabled => 'disabled') if $o->{form}->{disabled};
$check->set_attribute (title => $p->{description})
if length $p->{description};
$f->parse_attr ($p=>q#label#, $o, -non_parsed_to_node => 1, %opt);
if ($p->{label}->count) {
$check->set_attribute (id => $id->{global_id});
my $label = $p->{-parent}->append_new_node
(type => '#element',
namespace_uri => q#http://www.w3.org/1999/xhtml#,
local_name => 'label');
$label->set_attribute (for => $id->{global_id});
$label->append_node ($p->{label});
$label->set_attribute (title => $p->{description})
if length $p->{description};
}}}
#line 1 "(WikiPlugin module Obsolete, chunk 5)"
;

{my $def = {q#Parameter#, {q#content#, {q#Type#, q#text#, q#Default#, q#""#, q#Description#, [[q#Content of the line#, q#en#, q##]]}, q#class#, {q#Type#, q#classes#, q#Default#, q#(none)#, q#Description#, [[q#Class of section#, q#en#, q##]]}}, q#Description#, [[q#A semantic line#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;

#line 1 "(WikiPlugin module source Obsolete.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#]/form_line']/Formatting)"
$f->parse_attr ($p=>q#content#, $o, -non_parsed_to_node => 1, %opt);
SuikaWiki::Plugin->module_package ('Error')
->report_error_simple ($o->{wiki},
WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
(name => 'Obsolete:WikiForm:%form-line',
param => $o, 
wiki => $o->{wiki}));
if ($p->{content}->count) {
$p->{-parent}->append_node ($p->{content}, node_or_text => 1);
$p->{-parent}->append_new_node
(type => '#element', namespace_uri => q#http://www.w3.org/1999/xhtml#, local_name => 'br')
->option (use_EmptyElemTag => 1);
}}}
#line 1 "(WikiPlugin module Obsolete, chunk 7)"
;
$SuikaWiki::Plugin::Rule{view}->{form_line} = $def;
$SuikaWiki::Plugin::Rule{view_resource}->{form_line} = $def;
$SuikaWiki::Plugin::Rule{form_input}->{form_line} = $def;
};

package SuikaWiki::Plugin::Resource;

our $BaseResource;
$BaseResource->{q#en#}->{q##}->{q#Obsolete:WikiForm:%form-line#} = q#Formatting rule "form-line" is obsolete. Use "line" instead.#;
$BaseResource->{q#en#}->{q##}->{q#Obsolete:WikiForm:n#} = q#Formatting rule "n" is obsolete. Use "line" instead.#;
$BaseResource->{q#en#}->{q##}->{q#Obsolete:WikiForm:%radio#} = q#Formatting rule "radio" is obsolete.#;
package SuikaWiki::Plugin::Registry;

$Info{q#Obsolete#}->{provide} = {q#rule#, {q#form_input#, [q#n#, q#radio#, q#form_line#], q#view#, [q#form_line#], q#form_template#, [q#n#], q#view_resource#, [q#form_line#]}};

1;