plugins/form/link.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiFormAsLink
  @FullName:
    WikiForm: Form as hyperlink
  @Description:
    @@@:
      This plugin module provides some styles of forms
      can be used as hyperlink.
    @@lang: en
  @License: %%GPL%%
  @Author[list]:
     Wakaba <w@suika.fam.cx>
  @Date.RCS: $Date: 2004/01/16 07:50:17 $
  @RequiredModule[list]:
    WikiFormCore

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml

FormattingRule:
  @Category[list]: form-input
  @Name: wfl--link-to-wikipage
  @Description:
    @@@: Linking to a WikiPage, as a form
    @@lang: en
  @Parameter:
    @@Name: content
    @@Type: format
    @@Default:""
    @@Description:
      @@@@: Form content.
      @@@lang:en
  @Formatting:
    __ATTRTEXT:%content__;
    SuikaWiki::Plugin->module_package ('WikiFormCore')
                     ->make_form_in_html
                         ($p->{-parent}, $p->{content},
                          wiki => $o->{wiki},
                          o => $o,
                          index => -1,
                          output => {
                            http_method => 'get',
                          },);

FormattingRule:
  @Category[list]:form-input
  @Name: wfl--hidden-mode
  @Description:
    @@@: Specifying mode, to be used with wfl--link-to-wikipage.
    @@lang:en
  @Parameter:
    @@Name: mode
    @@Type: mode
    @@Default:"default"
    @@Description:
      @@@: Mode name.
      @@lang:en
  @Formatting:
    for ($p->{-parent}->append_new_node
                          (type => '#element',
                           namespace_uri => $NS_XHTML1,
                           local_name => 'input')) {
      $_->set_attribute (type => 'hidden');
      $_->set_attribute (name => 'mode');
      __ATTRTEXT:%mode__;
      $_->set_attribute (value => $p->{mode} || 'default');
      $_->option (use_EmptyElemTag => 1);
    }

1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: WikiFormAsLink
5	@FullName:
6	WikiForm: Form as hyperlink
7	@Description:
8	@@@:
9	This plugin module provides some styles of forms
10	can be used as hyperlink.
11	@@lang: en
12	@License: %%GPL%%
13	@Author[list]:
14	Wakaba <w@suika.fam.cx>
15	@Date.RCS: $Date: 2004/01/16 07:50:17 $
16	@RequiredModule[list]:
17	WikiFormCore
18
19	PluginConst:
20	@NS_XHTML1:
21	http://www.w3.org/1999/xhtml
22
23	FormattingRule:
24	@Category[list]: form-input
25	@Name: wfl--link-to-wikipage
26	@Description:
27	@@@: Linking to a WikiPage, as a form
28	@@lang: en
29	@Parameter:
30	@@Name: content
31	@@Type: format
32	@@Default:""
33	@@Description:
34	@@@@: Form content.
35	@@@lang:en
36	@Formatting:
37	__ATTRTEXT:%content__;
38	SuikaWiki::Plugin->module_package ('WikiFormCore')
39	->make_form_in_html
40	($p->{-parent}, $p->{content},
41	wiki => $o->{wiki},
42	o => $o,
43	index => -1,
44	output => {
45	http_method => 'get',
46	},);
47
48	FormattingRule:
49	@Category[list]:form-input
50	@Name: wfl--hidden-mode
51	@Description:
52	@@@: Specifying mode, to be used with wfl--link-to-wikipage.
53	@@lang:en
54	@Parameter:
55	@@Name: mode
56	@@Type: mode
57	@@Default:"default"
58	@@Description:
59	@@@: Mode name.
60	@@lang:en
61	@Formatting:
62	for ($p->{-parent}->append_new_node
63	(type => '#element',
64	namespace_uri => $NS_XHTML1,
65	local_name => 'input')) {
66	$_->set_attribute (type => 'hidden');
67	$_->set_attribute (name => 'mode');
68	__ATTRTEXT:%mode__;
69	$_->set_attribute (value => $p->{mode} \|\| 'default');
70	$_->option (use_EmptyElemTag => 1);
71	}
72