Revision c345ac75
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/BackgroundJob/CheckBelowMinimumStock.pm | ||
|---|---|---|
| 8 | 8 |
use SL::Mailer; |
| 9 | 9 |
use SL::DB::Part; |
| 10 | 10 |
use SL::Presenter::Part qw(part); |
| 11 |
use SL::Presenter::Tag qw(html_tag); |
|
| 11 |
use SL::Presenter::Tag qw(html_tag link_tag); |
|
| 12 |
use SL::Presenter::EscapedText qw(escape); |
|
| 12 | 13 |
use SL::DBUtils qw(selectall_hashref_query); |
| 13 | 14 |
use SL::Locale::String qw(t8); |
| 14 | 15 |
|
| ... | ... | |
| 111 | 112 |
|
| 112 | 113 |
$table_body .= html_tag('tr', $_ ) for
|
| 113 | 114 |
map {
|
| 114 |
html_tag('td', part($_)). # TODO: links only to current site
|
|
| 115 |
html_tag('td',
|
|
| 116 |
link_tag( |
|
| 117 |
$ENV{HTTP_ORIGIN} . $ENV{REQUEST_URI}
|
|
| 118 |
. '?action=Part/edit' |
|
| 119 |
. '&part.id=' . escape($_->id) |
|
| 120 |
# text |
|
| 121 |
, $_->partnumber |
|
| 122 |
) |
|
| 123 |
). |
|
| 115 | 124 |
html_tag('td', $_->rop).
|
| 116 | 125 |
html_tag('td', $_->onhand)
|
| 117 | 126 |
} @parts; |
Auch abrufbar als: Unified diff
BJ: CheckBelowMinimumStock: FIX: setze Link auf Artikel korrekt