Revision ea5d75b5
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/DB/LetterDraft.pm | ||
|---|---|---|
| 12 | 12 |
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. |
| 13 | 13 |
__PACKAGE__->meta->make_manager_class; |
| 14 | 14 |
|
| 15 |
sub new_from_letter {
|
|
| 16 |
my ($class, $letter) = @_; |
|
| 17 |
|
|
| 18 |
my $self = $class->new; |
|
| 19 |
|
|
| 20 |
if (!ref $letter) {
|
|
| 21 |
require SL::DB::Draft; |
|
| 22 |
$letter = SL::DB::Draft->new(id => $letter)->load; |
|
| 23 |
} |
|
| 24 |
|
|
| 25 |
$self->assign_attributes(map { $_ => $letter->$_ } $letter->meta->columns);
|
|
| 26 |
|
|
| 27 |
$self->id(undef); |
|
| 28 |
|
|
| 29 |
$self; |
|
| 30 |
} |
|
| 31 |
|
|
| 15 | 32 |
1; |
Auch abrufbar als: Unified diff
Letter Controller rewrite
Jetzt auf einigermassen aktuellem technischen Stand.