summaryrefslogtreecommitdiff
path: root/httemplate/elements/tr-freq.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/tr-freq.html')
-rw-r--r--httemplate/elements/tr-freq.html54
1 files changed, 0 insertions, 54 deletions
diff --git a/httemplate/elements/tr-freq.html b/httemplate/elements/tr-freq.html
deleted file mode 100644
index cb58bf6..0000000
--- a/httemplate/elements/tr-freq.html
+++ /dev/null
@@ -1,54 +0,0 @@
-<% include('tr-td-label.html', @_) %>
-
- <TD <% $style %>>
-
- <INPUT TYPE = "text"
- SIZE = "<% $opt{'size'} || 4 %>"
- NAME = "<% $opt{'field'} || 'freq' %>"
- ID = "<% $opt{'id'} %>"
- VALUE = "<% $curr_value %>"
- >
-
- <SELECT NAME = "<% $opt{'field'} || 'freq' %>_units">
-% foreach my $freq ( keys %freq ) {
- <OPTION VALUE="<% $freq %>"
- <% $freq eq $units ? 'SELECTED' : '' %>
- ><% $freq{$freq} %>
-% }
- </SELECT>
-
- </TD>
-
-</TR>
-
-<%once>
-
- tie my %freq, 'Tie::IxHash',
- #'y' => 'years',
- 'm' => 'months',
- 'w' => 'weeks',
- 'd' => 'days',
- 'h' => 'hours',
- ;
-
-</%once>
-<%init>
-
-my %opt = @_;
-
-my $onchange = $opt{'onchange'}
- ? 'onChange="'. $opt{'onchange'}. '(this)"'
- : '';
-
-my $style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
-
-my $curr_value = $opt{'curr_value'} || $opt{'value'};
-my $units = 'm';
-
-if ( $curr_value =~ /^(\d*)([mwdh])$/i ) {
- $curr_value = $1;
- $units = lc($2);
-}
-
-</%init>
-