Revision 22ae0bf0
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 56 | 56 |
use Template; |
| 57 | 57 |
use URI; |
| 58 | 58 |
use List::Util qw(first max min sum); |
| 59 |
use List::MoreUtils qw(any); |
|
| 59 |
use List::MoreUtils qw(any apply);
|
|
| 60 | 60 |
|
| 61 | 61 |
use strict; |
| 62 | 62 |
|
| ... | ... | |
| 828 | 828 |
} |
| 829 | 829 |
|
| 830 | 830 |
if (%main::myconfig) {
|
| 831 |
map({ $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys(%main::myconfig));
|
|
| 832 |
my $jsc_dateformat = $main::myconfig{"dateformat"};
|
|
| 833 |
$jsc_dateformat =~ s/d+/\%d/gi; |
|
| 834 |
$jsc_dateformat =~ s/m+/\%m/gi; |
|
| 835 |
$jsc_dateformat =~ s/y+/\%Y/gi; |
|
| 836 |
$additional_params->{"myconfig_jsc_dateformat"} = $jsc_dateformat;
|
|
| 831 |
$::myconfig{jsc_dateformat} = apply {
|
|
| 832 |
s/d+/\%d/gi; |
|
| 833 |
s/m+/\%m/gi; |
|
| 834 |
s/y+/\%Y/gi; |
|
| 835 |
} $::myconfig{"dateformat"};
|
|
| 837 | 836 |
$additional_params->{"myconfig"} ||= \%::myconfig;
|
| 837 |
map { $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys %::myconfig;
|
|
| 838 | 838 |
} |
| 839 | 839 |
|
| 840 | 840 |
$additional_params->{"conf_dbcharset"} = $main::dbcharset;
|
Auch abrufbar als: Unified diff
date_tag
Beispiel ist hier nicht mit enthalten, weil der date_tag gleichzeitig einen
graphischen datepicker rendert, deshalb hier im Commit:
[% USE L ]
[ L.date_tag('orddate', orddate, cal_align => 'BL') %]
Das erste ist der name in html, das zweite der Wert zum befüllen, das dritte
die Orientierung des Popups.