Revision a9cc7718
Von Sven Schöling vor etwa 16 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 274 | 274 |
|
| 275 | 275 |
# use JavaScript Calendar or not |
| 276 | 276 |
$form->{jsscript} = 1;
|
| 277 |
$TMPL_VAR{button1} = qq|
|
|
| 278 |
<td nowrap><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\">
|
|
| 279 |
<input type=button name=transdate id="trigger1" value=| . $locale->text('button') . qq|></td>
|
|
| 280 |
|; |
|
| 281 |
$TMPL_VAR{button2} = qq|
|
|
| 282 |
<td nowrap width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value="$form->{reqdate}" onBlur=\"check_right_date_format(this)\">
|
|
| 283 |
<input type=button name=reqdate name=reqdate id="trigger2" value=| . $locale->text('button') . qq|></td>
|
|
| 284 |
|; |
|
| 285 |
#write Trigger |
|
| 286 |
$TMPL_VAR{jsscript} = Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1", "reqdate", "BL", "trigger2");
|
|
| 287 | 277 |
|
| 288 | 278 |
# openclosed checkboxes |
| 289 | 279 |
my @tmp; |
| ... | ... | |
| 293 | 283 |
$form->{"closed"} ? "checked" : "", $locale->text('Closed') if $form->{id};
|
| 294 | 284 |
$TMPL_VAR{openclosed} = sprintf qq|<tr><td colspan=%d align=center>%s</td></tr>\n|, 2 * scalar @tmp, join "\n", @tmp if @tmp;
|
| 295 | 285 |
|
| 296 |
# set option selected |
|
| 297 |
foreach $item ($form->{vc}, 'currency', 'department', ($form->{vc} eq "customer" ? 'customer' : 'vendor')) {
|
|
| 298 |
$form->{"select$item"} =~ s/ selected//;
|
|
| 299 |
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
|
| 300 |
} |
|
| 301 |
|
|
| 302 |
#quote select[customer|vendor] Bug 133 |
|
| 303 |
$form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
|
|
| 304 |
|
|
| 305 |
#substitute \n and \r to \s (bug 543) |
|
| 306 |
$form->{"select$form->{vc}"} =~ s/[\n\r]/ /g;
|
|
| 307 |
|
|
| 286 |
# project ids |
|
| 308 | 287 |
my @old_project_ids = ($form->{"globalproject_id"}, grep { $_ } map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
|
| 309 | 288 |
|
| 310 | 289 |
my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
|
Auch abrufbar als: Unified diff
Vereinfachtes Template, und alten Code entfernt.