26 |
sub date_from_to_html { |
sub date_from_to_html { |
27 |
my $name = shift || return; |
my $name = shift || return; |
28 |
return qq{ |
return qq{ |
|
<input type="text" name="${name}_day_from" size="2"> |
|
|
<input type="text" name="${name}_month_from" size="2"> |
|
29 |
<input type="text" name="${name}_year_from" size="4"> |
<input type="text" name="${name}_year_from" size="4"> |
30 |
|
<input type="text" name="${name}_month_from" size="2"> |
31 |
|
<input type="text" name="${name}_day_from" size="2"> |
32 |
- |
- |
|
<input type="text" name="${name}_day_to" size="2"> |
|
|
<input type="text" name="${name}_month_to" size="2"> |
|
33 |
<input type="text" name="${name}_year_to" size="4"> |
<input type="text" name="${name}_year_to" size="4"> |
34 |
|
<input type="text" name="${name}_month_to" size="2"> |
35 |
|
<input type="text" name="${name}_day_to" size="2"> |
36 |
}; |
}; |
37 |
} |
} |
38 |
|
|