plugins/form/WikiFormButton.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiFormButton
  @FullName:
    WikiForm: Common Buttons
  @Description:
    @@@: This module provides common buttons.
    @@lang: en
  @License: %%GPL%%
  @Author[list]:
     Wakaba <[email protected]>
  @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: mode-button
  @Description:
    @@@@: Submitting form button, with mode specification
    @@@lang:en
  @Parameter:
    @@Name: class
    @@Type: class-list
    @@Default:(none)
    @@Description:
      @@@@: Class name list
      @@@lang:en
  @Parameter:
    @@Name:description
    @@Type: CDATA
    @@Default:(none)
    @@Description:
      @@@@: Human readable long description text
      @@lang:en
  @Parameter:
    @@Name: label
    @@Type: CDATA
    @@Default:(implied)
    @@Description:
      @@@@: Label
      @@@lang:en
  @Parameter:
    @@Name: mode
    @@Type: mode
    @@Default: "default"
    @@Description:
      @@@@: Mode name
      @@@lang: en
  @Formatting:
    my $SUBMIT = $p->{-parent}->append_new_node
                                  (type => '#element',
                                   namespace_uri => $NS_XHTML1,
                                   local_name => 'input');
    for ($SUBMIT) {
      $_->set_attribute (type => 'submit');
      $_->set_attribute (name => 'mode');
      __ATTRTEXT:%mode__;
      $_->set_attribute (value => $p->{mode} || 'default');
      __ATTRTEXT:%class__;__ATTRTEXT:%description__;__ATTRTEXT:%accesskey__;
      $_->set_attribute (class => $p->{class}) if $p->{class};
      $_->set_attribute (title => $p->{description}) if $p->{description};
      $_->set_attribute (accesskey => $p->{accesskey}) if defined $p->{accesskey};
      $_->set_attribute (disabled => 'disabled') if $o->{form}->{disabled};
      __ATTRTEXT:%label__;
      $_->set_attribute (value => $p->{label} || $p->{mode} || 'default');
      $_->option (use_EmptyElemTag => 1);
    }
    $o->{form}->{output}->{submit_button} = 0;
    $o->{form}->{output}->{mode_specification} = 0;
1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: WikiFormButton
5	@FullName:
6	WikiForm: Common Buttons
7	@Description:
8	@@@: This module provides common buttons.
9	@@lang: en
10	@License: %%GPL%%
11	@Author[list]:
12	Wakaba <[email protected]>
13	@Date.RCS: $Date: 2004/01/16 07:50:17 $
14	@RequiredModule[list]:
15	WikiFormCore
16
17	PluginConst:
18	@NS_XHTML1:
19	http://www.w3.org/1999/xhtml
20
21	FormattingRule:
22	@Category[list]:
23	form-input
24	@Name: mode-button
25	@Description:
26	@@@@: Submitting form button, with mode specification
27	@@@lang:en
28	@Parameter:
29	@@Name: class
30	@@Type: class-list
31	@@Default:(none)
32	@@Description:
33	@@@@: Class name list
34	@@@lang:en
35	@Parameter:
36	@@Name:description
37	@@Type: CDATA
38	@@Default:(none)
39	@@Description:
40	@@@@: Human readable long description text
41	@@lang:en
42	@Parameter:
43	@@Name: label
44	@@Type: CDATA
45	@@Default:(implied)
46	@@Description:
47	@@@@: Label
48	@@@lang:en
49	@Parameter:
50	@@Name: mode
51	@@Type: mode
52	@@Default: "default"
53	@@Description:
54	@@@@: Mode name
55	@@@lang: en
56	@Formatting:
57	my $SUBMIT = $p->{-parent}->append_new_node
58	(type => '#element',
59	namespace_uri => $NS_XHTML1,
60	local_name => 'input');
61	for ($SUBMIT) {
62	$_->set_attribute (type => 'submit');
63	$_->set_attribute (name => 'mode');
64	__ATTRTEXT:%mode__;
65	$_->set_attribute (value => $p->{mode} \|\| 'default');
66	__ATTRTEXT:%class__;__ATTRTEXT:%description__;__ATTRTEXT:%accesskey__;
67	$_->set_attribute (class => $p->{class}) if $p->{class};
68	$_->set_attribute (title => $p->{description}) if $p->{description};
69	$_->set_attribute (accesskey => $p->{accesskey}) if defined $p->{accesskey};
70	$_->set_attribute (disabled => 'disabled') if $o->{form}->{disabled};
71	__ATTRTEXT:%label__;
72	$_->set_attribute (value => $p->{label} \|\| $p->{mode} \|\| 'default');
73	$_->option (use_EmptyElemTag => 1);
74	}
75	$o->{form}->{output}->{submit_button} = 0;
76	$o->{form}->{output}->{mode_specification} = 0;