Revision 65df2ecc
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 63 | 63 |
|
| 64 | 64 |
my ($self, $myconfig, $form, $item) = @_; |
| 65 | 65 |
|
| 66 |
my $module = $form->{script};
|
|
| 67 |
my $action = "section_menu"; |
|
| 68 |
my $target = ""; |
|
| 66 |
my $module = $self->{$item}{module} || $form->{script};
|
|
| 67 |
my $action = $self->{$item}{action} || "section_menu";
|
|
| 68 |
my $target = $self->{$item}{target} || "";
|
|
| 69 | 69 |
|
| 70 |
if ($self->{$item}{module}) {
|
|
| 71 |
$module = $self->{$item}{module};
|
|
| 72 |
} |
|
| 73 |
if ($self->{$item}{action}) {
|
|
| 74 |
$action = $self->{$item}{action};
|
|
| 75 |
} |
|
| 76 |
if ($self->{$item}{target}) {
|
|
| 77 |
$target = $self->{$item}{target};
|
|
| 78 |
} |
|
| 70 |
my $level = $form->escape($item); |
|
| 79 | 71 |
|
| 80 |
my $level = $form->escape($item); |
|
| 72 |
my $style = 'style="vertical-align:top"'; |
|
| 73 |
my $target_token = ($target) |
|
| 74 |
? "target='$target'" |
|
| 75 |
: ''; |
|
| 81 | 76 |
|
| 82 |
my $str = qq|<a style="vertical-align:top" href=$module?action=$action&level=$level|; |
|
| 77 |
# my $str = qq|<a style="vertical-align:top" href='|; |
|
| 78 |
my $href = ($self->{$item}{href})
|
|
| 79 |
? $form->escape($self->{$item}{href})
|
|
| 80 |
: "$module?action=$action&level=$level"; |
|
| 83 | 81 |
|
| 84 |
my @vars = qw(module action target href); |
|
| 82 |
my @vars = ($self->{$item}{href})
|
|
| 83 |
? qw(module target href) |
|
| 84 |
: qw(module action target href); |
|
| 85 | 85 |
|
| 86 |
if ($self->{$item}{href}) {
|
|
| 87 |
$str = qq|<a href=$self->{$item}{href}|;
|
|
| 88 |
@vars = qw(module target href); |
|
| 89 |
} |
|
| 86 |
# if ($self->{$item}{href}) {
|
|
| 87 |
## $str = qq|<a 'href=$self->{$item}{href}|;
|
|
| 88 |
# @vars = qw(module target href);
|
|
| 89 |
# }
|
|
| 90 | 90 |
|
| 91 | 91 |
map { delete $self->{$item}{$_} } @vars;
|
| 92 | 92 |
|
| 93 | 93 |
# add other params |
| 94 | 94 |
foreach my $key (keys %{ $self->{$item} }) {
|
| 95 |
$str .= "&" . $form->escape($key, 1) . "=";
|
|
| 95 |
$href .= "&" . $form->escape($key, 1) . "=";
|
|
| 96 | 96 |
my ($value, $conf) = split(/=/, $self->{$item}{$key}, 2);
|
| 97 | 97 |
$value = $myconfig->{$value} . "/$conf" if ($conf);
|
| 98 |
$str .= $form->escape($value, 1);
|
|
| 98 |
$href .= $form->escape($value, 1);
|
|
| 99 | 99 |
} |
| 100 | 100 |
|
| 101 |
if ($target) {
|
|
| 102 |
$str .= qq| target=$target|; |
|
| 103 |
} |
|
| 101 |
# $str .= q|'|; |
|
| 102 |
# |
|
| 103 |
# if ($target) {
|
|
| 104 |
# $str .= qq| target=$target|; |
|
| 105 |
# } |
|
| 104 | 106 |
|
| 105 |
$str .= ">"; |
|
| 107 |
# $str .= ">"; |
|
| 108 |
|
|
| 109 |
my $str = "<a href='$href' $target_token $style>"; |
|
| 106 | 110 |
|
| 107 | 111 |
$main::lxdebug->leave_sub(); |
| 108 | 112 |
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 1213 | 1213 |
$form->all_vc(\%myconfig, "vendor", "AP"); |
| 1214 | 1214 |
|
| 1215 | 1215 |
my $vendor; |
| 1216 |
if (@{ $form->{all_vendor} }) {
|
|
| 1216 |
if (@{ $form->{all_vendor} || [] }) {
|
|
| 1217 | 1217 |
map { $vendor .= "<option>$_->{name}--$_->{id}\n" }
|
| 1218 | 1218 |
@{ $form->{all_vendor} };
|
| 1219 | 1219 |
$vendor = qq|<select name=vendor><option>\n$vendor\n</select>|; |
| bin/mozilla/ar.pl | ||
|---|---|---|
| 173 | 173 |
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
|
| 174 | 174 |
|
| 175 | 175 |
# customers |
| 176 |
if (@{ $form->{all_customer} }) {
|
|
| 176 |
if (@{ $form->{all_customer} || [] }) {
|
|
| 177 | 177 |
$form->{customer} = "$form->{customer}--$form->{customer_id}";
|
| 178 | 178 |
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
|
| 179 | 179 |
(@{ $form->{all_customer} });
|
| bin/mozilla/bp.pl | ||
|---|---|---|
| 95 | 95 |
# setup customer/vendor selection |
| 96 | 96 |
BP->get_vc(\%myconfig, \%$form); |
| 97 | 97 |
|
| 98 |
if (@{ $form->{"all_$form->{vc}"} }) {
|
|
| 98 |
if (@{ $form->{"all_$form->{vc}"} || [] }) {
|
|
| 99 | 99 |
map { $name .= "<option>$_->{name}--$_->{id}\n" }
|
| 100 | 100 |
@{ $form->{"all_$form->{vc}"} };
|
| 101 | 101 |
$name = qq|<select name=$form->{vc}><option>\n$name</select>|;
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 252 | 252 |
$form->{employee} = "$form->{employee}--$form->{employee_id}";
|
| 253 | 253 |
|
| 254 | 254 |
# build vendor/customer drop down comatibility... don't ask |
| 255 |
if (@{ $form->{"all_$form->{vc}"} }) {
|
|
| 255 |
if (@{ $form->{"all_$form->{vc}"} || [] }) {
|
|
| 256 | 256 |
$form->{"select$form->{vc}"} = 1;
|
| 257 | 257 |
$form->{$form->{vc}} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
|
| 258 | 258 |
} |
Auch abrufbar als: Unified diff
Einige strict Probleme mit vclimit=0