File: button

package info (click to toggle)
libtemplate-perl 2.14-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 5,496 kB
  • ctags: 667
  • sloc: perl: 15,349; makefile: 62; xml: 7; sh: 5
file content (17 lines) | stat: -rw-r--r-- 540 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
[%# html/button: simple text button with a link like "[ this ]"
  # ARGS:
  #	text	    # button text
  #	link	    # button link url
  #	select	    # flag to select item (set bold)
  #	left	    # flag to add left arrow head (e.g. prev. item)
  #	right	    # flag to add right arrow head (e.g. next item)
%]
[%- '<-' IF left %]
[%- select ? '[<b>' : '[' -%]
&nbsp;
[%- IF link %]<a href="[% link %]">[% END %]
[%- text | replace('\s', '&nbsp;') %]
[%- IF link %]</a>[% END -%]
&nbsp;
[%- select ? '</b>]' : ']' %]
[%- '-&gt;' IF right -%]