Revision 54451a50
Von Thomas Kasulke vor fast 18 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 172 | 172 |
chomp $curr[0]; |
| 173 | 173 |
$form->{defaultcurrency} = $curr[0];
|
| 174 | 174 |
|
| 175 |
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
|
|
| 175 |
map { $form->{selectcurrency} .= "<option>$_</option>\n" } @curr;
|
|
| 176 | 176 |
|
| 177 | 177 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
| 178 | 178 |
|
| 179 | 179 |
if (@{ $form->{all_customer} }) {
|
| 180 | 180 |
$form->{customer} = "$form->{customer}--$form->{customer_id}";
|
| 181 |
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
|
|
| 181 |
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}</option>\n" }
|
|
| 182 | 182 |
(@{ $form->{all_customer} });
|
| 183 | 183 |
} |
| 184 | 184 |
|
| ... | ... | |
| 189 | 189 |
|
| 190 | 190 |
map {
|
| 191 | 191 |
$form->{selectdepartment} .=
|
| 192 |
"<option>$_->{description}--$_->{id}\n"
|
|
| 192 |
"<option>$_->{description}--$_->{id}</option>\n"
|
|
| 193 | 193 |
} (@{ $form->{all_departments} });
|
| 194 | 194 |
} |
| 195 | 195 |
|
| ... | ... | |
| 198 | 198 |
# sales staff |
| 199 | 199 |
if ($form->{all_employees}) {
|
| 200 | 200 |
$form->{selectemployee} = "";
|
| 201 |
map { $form->{selectemployee} .= "<option>$_->{name}--$_->{id}\n" }
|
|
| 201 |
map { $form->{selectemployee} .= "<option>$_->{name}--$_->{id}</option>\n" }
|
|
| 202 | 202 |
(@{ $form->{all_employees} });
|
| 203 | 203 |
} |
| 204 | 204 |
|
| ... | ... | |
| 208 | 208 |
|
| 209 | 209 |
foreach $key (keys %{ $form->{AR_links} }) {
|
| 210 | 210 |
foreach $ref (@{ $form->{AR_links}{$key} }) {
|
| 211 |
$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
|
|
| 211 |
$form->{"select$key"} .=
|
|
| 212 |
"<option>$ref->{accno}--$ref->{description}</option>\n";
|
|
| 212 | 213 |
} |
| 213 | 214 |
|
| 214 | 215 |
if ($key eq "AR_paid") {
|
| ... | ... | |
| 433 | 434 |
|
| 434 | 435 |
#quote customer Bug 133 |
| 435 | 436 |
$form->{selectcustomer} = $form->quote($form->{selectcustomer});
|
| 437 |
|
|
| 438 |
#substitute \n and \r to \s (bug 543) |
|
| 439 |
$form->{selectcustomer} =~ s/[\n\r]/ /g;
|
|
| 436 | 440 |
|
| 437 | 441 |
if (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) {
|
| 438 | 442 |
$creditwarning = 1; |
Auch abrufbar als: Unified diff
Ersatzmuster für Lieferanten/Kundennamen, welche \n und/oder \r enthalten, hizugefügt (bug 543)