Revision e0900c89
Von Moritz Bunkus vor etwa 3 Jahren hinzugefügt
| SL/CVar.pm | ||
|---|---|---|
| 10 | 10 |
|
| 11 | 11 |
use SL::DBUtils; |
| 12 | 12 |
use SL::MoreCommon qw(listify); |
| 13 |
use SL::Presenter::Text; |
|
| 13 | 14 |
use SL::Util qw(trim); |
| 14 | 15 |
use SL::DB; |
| 15 | 16 |
|
| ... | ... | |
| 46 | 47 |
} elsif ($config->{type} eq 'number') {
|
| 47 | 48 |
$config->{precision} = $1 if ($config->{options} =~ m/precision=(\d+)/i);
|
| 48 | 49 |
|
| 49 |
} elsif ($config->{type} eq 'textfield') {
|
|
| 50 |
} elsif ($config->{type} =~ m{^(?:html|text)field$}) {
|
|
| 50 | 51 |
$config->{width} = 30;
|
| 51 | 52 |
$config->{height} = 5;
|
| 52 | 53 |
$config->{width} = $1 if ($config->{options} =~ m/width=(\d+)/i);
|
| ... | ... | |
| 112 | 113 |
my $custom_variables = $self->get_configs(module => $params{module});
|
| 113 | 114 |
|
| 114 | 115 |
foreach my $cvar (@{ $custom_variables }) {
|
| 115 |
if ($cvar->{type} eq 'textfield') {
|
|
| 116 |
if ($cvar->{type} =~ m{^(?:html|text)field}) {
|
|
| 116 | 117 |
$cvar->{width} = 30;
|
| 117 | 118 |
$cvar->{height} = 5;
|
| 118 | 119 |
|
| ... | ... | |
| 271 | 272 |
|
| 272 | 273 |
my $value = $params{variables}->{"$params{name_prefix}cvar_$config->{name}$params{name_postfix}"};
|
| 273 | 274 |
|
| 274 |
if (($config->{type} eq 'text') || ($config->{type} eq 'textfield') || ($config->{type} eq 'select')) {
|
|
| 275 |
if (any { $config->{type} eq $_ } qw(text textfield htmlfield select)) {
|
|
| 275 | 276 |
push @values, undef, undef, $value, undef; |
| 276 | 277 |
|
| 277 | 278 |
} elsif (($config->{type} eq 'date') || ($config->{type} eq 'timestamp')) {
|
| ... | ... | |
| 375 | 376 |
|
| 376 | 377 |
my (@sub_values, @sub_where, $not); |
| 377 | 378 |
|
| 378 |
if (($config->{type} eq 'text') || ($config->{type} eq 'textfield')) {
|
|
| 379 |
if (any { $config->{type} eq $_ } qw(text textfield htmlfield)) {
|
|
| 379 | 380 |
next unless ($params{filter}->{$name});
|
| 380 | 381 |
|
| 381 | 382 |
push @sub_where, qq|cvar.text_value ILIKE ?|; |
| ... | ... | |
| 525 | 526 |
: $cfg->{type} eq 'vendor' ? (SL::DB::Manager::Vendor->find_by(id => 1*$ref->{number_value}) || SL::DB::Vendor->new)->name
|
| 526 | 527 |
: $cfg->{type} eq 'part' ? (SL::DB::Manager::Part->find_by(id => 1*$ref->{number_value}) || SL::DB::Part->new)->partnumber
|
| 527 | 528 |
: $cfg->{type} eq 'bool' ? ($ref->{bool_value} ? $locale->text('Yes') : $locale->text('No'))
|
| 529 |
: $cfg->{type} eq 'htmlfield' ? SL::Presenter::Text::stripped_html($ref->{text_value})
|
|
| 528 | 530 |
: $ref->{text_value};
|
| 529 | 531 |
} |
| 530 | 532 |
} |
Auch abrufbar als: Unified diff
Benutzerdef. Var. als HTML-Feld: allgemeine Infrastruktur