Revision 4491f15f
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/Drafts.pm | ||
|---|---|---|
| 38 | 38 |
|
| 39 | 39 |
my @dont_save = qw(login password action); |
| 40 | 40 |
|
| 41 |
sub dont_save {
|
|
| 42 |
return @dont_save; |
|
| 43 |
} |
|
| 44 |
|
|
| 41 | 45 |
sub save {
|
| 42 | 46 |
$main::lxdebug->enter_sub(); |
| 43 | 47 |
|
| bin/mozilla/drafts.pl | ||
|---|---|---|
| 120 | 120 |
if ($old_form) {
|
| 121 | 121 |
$old_form = YAML::Load($old_form); |
| 122 | 122 |
|
| 123 |
my %dont_save_vars = map { $_ => 1 } @Drafts::dont_save;
|
|
| 123 |
my %dont_save_vars = map { $_ => 1 } Drafts->dont_save;
|
|
| 124 | 124 |
my @restore_vars = grep { !$dont_save_vars{$_} } keys %{ $old_form };
|
| 125 | 125 |
|
| 126 | 126 |
@{$form}{@restore_vars} = @{$old_form}{@restore_vars};
|
Auch abrufbar als: Unified diff
Klassenvariable vermeiden (einfacher zu testen)