Revision 24097357
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 103 | 103 |
$template->substitute_variables; |
| 104 | 104 |
|
| 105 | 105 |
# Clean the current $::form before rebuilding it from the template. |
| 106 |
my $form_defaults = delete $::form->{form_defaults};
|
|
| 106 | 107 |
delete @{ $::form }{ grep { !m{^(?:script|login)$}i } keys %{ $::form } };
|
| 107 | 108 |
|
| 108 | 109 |
# Fill $::form from the template. |
| ... | ... | |
| 150 | 151 |
$::form->{"project_id_${row}"} = $item->project_id;
|
| 151 | 152 |
} |
| 152 | 153 |
|
| 154 |
$::form->{$_} = $form_defaults->{$_} for keys %{ $form_defaults // {} };
|
|
| 155 |
|
|
| 153 | 156 |
flash('info', $::locale->text("The record template '#1' has been loaded.", $template->template_name));
|
| 154 | 157 |
|
| 155 | 158 |
update( |
| bin/mozilla/ar.pl | ||
|---|---|---|
| 101 | 101 |
$template->substitute_variables; |
| 102 | 102 |
|
| 103 | 103 |
# Clean the current $::form before rebuilding it from the template. |
| 104 |
my $form_defaults = delete $::form->{form_defaults};
|
|
| 104 | 105 |
delete @{ $::form }{ grep { !m{^(?:script|login)$}i } keys %{ $::form } };
|
| 105 | 106 |
|
| 106 | 107 |
# Fill $::form from the template. |
| ... | ... | |
| 148 | 149 |
$::form->{"project_id_${row}"} = $item->project_id;
|
| 149 | 150 |
} |
| 150 | 151 |
|
| 152 |
$::form->{$_} = $form_defaults->{$_} for keys %{ $form_defaults // {} };
|
|
| 153 |
|
|
| 151 | 154 |
flash('info', $::locale->text("The record template '#1' has been loaded.", $template->template_name));
|
| 152 | 155 |
|
| 153 | 156 |
update( |
| bin/mozilla/gl.pl | ||
|---|---|---|
| 96 | 96 |
$template->substitute_variables; |
| 97 | 97 |
|
| 98 | 98 |
# Clean the current $::form before rebuilding it from the template. |
| 99 |
my $form_defaults = delete $::form->{form_defaults};
|
|
| 99 | 100 |
delete @{ $::form }{ grep { !m{^(?:script|login)$}i } keys %{ $::form } };
|
| 100 | 101 |
|
| 101 | 102 |
my $dummy_form = {};
|
| ... | ... | |
| 138 | 139 |
$::form->{"${_}_${row}"} = $item->$_ for qw(source memo project_id);
|
| 139 | 140 |
} |
| 140 | 141 |
|
| 142 |
$::form->{$_} = $form_defaults->{$_} for keys %{ $form_defaults // {} };
|
|
| 143 |
|
|
| 141 | 144 |
flash('info', $::locale->text("The record template '#1' has been loaded.", $template->template_name));
|
| 142 | 145 |
|
| 143 | 146 |
update( |
Auch abrufbar als: Unified diff
Belegvorlagen: Form-Parameter beim Laden über Request vorbelegen können