Revision 9a4cae85
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 272 | 272 |
$form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
|
| 273 | 273 |
$form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
|
| 274 | 274 |
|
| 275 |
map { $form->{$_} = H($form->{$_}) }
|
|
| 276 |
qw(shippingpoint shipvia notes intnotes shiptoname |
|
| 277 |
shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact |
|
| 278 |
shiptophone shiptofax shiptodepartment_1 shiptodepartment_2); |
|
| 279 |
|
|
| 280 | 275 |
# use JavaScript Calendar or not |
| 281 | 276 |
$form->{jsscript} = 1;
|
| 282 | 277 |
$TMPL_VAR{button1} = qq|
|
| ... | ... | |
| 428 | 423 |
$introws = max 2, $form->numtextrows($form->{intnotes}, 35, 8);
|
| 429 | 424 |
$rows = max $rows, $introws; |
| 430 | 425 |
|
| 431 |
$TMPL_VAR{notes} = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|;
|
|
| 432 |
$TMPL_VAR{intnotes} = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
|
|
| 426 |
$TMPL_VAR{notes} = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>| . H($form->{notes}) . qq|</textarea>|;
|
|
| 427 |
$TMPL_VAR{intnotes} = qq|<textarea name=intnotes rows=$introws cols=35 wrap=soft>| . H($form->{intnotes}) . qq|</textarea>|;
|
|
| 433 | 428 |
|
| 434 | 429 |
if (!$form->{taxincluded}) {
|
| 435 | 430 |
|
| ... | ... | |
| 485 | 480 |
sub update {
|
| 486 | 481 |
$lxdebug->enter_sub(); |
| 487 | 482 |
|
| 483 |
$form->{"Watchdog::shipvia"} = 1;
|
|
| 488 | 484 |
my ($recursive_call) = shift; |
| 489 | 485 |
|
| 490 | 486 |
check_oe_access(); |
Auch abrufbar als: Unified diff
Anführungszeichen nicht doppelt quoten.