Revision 52131da1
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 40 | 40 |
|
| 41 | 41 |
use SL::CVar; |
| 42 | 42 |
use SL::DBUtils; |
| 43 |
use SL::HTML::Restrict; |
|
| 43 | 44 |
use SL::TransNumber; |
| 44 | 45 |
|
| 45 | 46 |
use strict; |
| ... | ... | |
| 227 | 228 |
my @values; |
| 228 | 229 |
# connect to database, turn off AutoCommit |
| 229 | 230 |
my $dbh = $form->get_standard_dbh; |
| 231 |
my $restricter = SL::HTML::Restrict->create; |
|
| 230 | 232 |
|
| 231 | 233 |
# save the part |
| 232 | 234 |
# make up a unique handle and store in partnumber field |
| ... | ... | |
| 371 | 373 |
$form->{lastcost},
|
| 372 | 374 |
$form->{weight},
|
| 373 | 375 |
$form->{unit},
|
| 374 |
$form->{notes},
|
|
| 376 |
$restricter->process($form->{notes}),
|
|
| 375 | 377 |
$form->{formel},
|
| 376 | 378 |
$form->{rop},
|
| 377 | 379 |
conv_i($form->{warehouse_id}),
|
| ... | ... | |
| 405 | 407 |
$sth = $dbh->prepare($query); |
| 406 | 408 |
|
| 407 | 409 |
foreach my $translation (@translations) {
|
| 408 |
do_statement($form, $sth, $query, conv_i($form->{id}), conv_i($translation->{language_id}), $translation->{translation}, $translation->{longdescription});
|
|
| 410 |
do_statement($form, $sth, $query, conv_i($form->{id}), conv_i($translation->{language_id}), $translation->{translation}, $restricter->process($translation->{longdescription}));
|
|
| 409 | 411 |
} |
| 410 | 412 |
|
| 411 | 413 |
$sth->finish(); |
Auch abrufbar als: Unified diff
Artikelstammdaten: HTML in Langtexten nutzen