Revision 67643d03
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/DB/CsvImportProfile.pm | ||
|---|---|---|
| 5 | 5 |
use List::Util qw(first); |
| 6 | 6 |
|
| 7 | 7 |
use SL::DB::MetaSetup::CsvImportProfile; |
| 8 |
use Rose::DB::Object::Helpers qw(clone_and_reset); |
|
| 8 | 9 |
|
| 9 | 10 |
__PACKAGE__->meta->add_relationship( |
| 10 | 11 |
settings => {
|
| ... | ... | |
| 94 | 95 |
return $self; |
| 95 | 96 |
} |
| 96 | 97 |
|
| 98 |
sub clone_and_reset_deep {
|
|
| 99 |
my ($self) = @_; |
|
| 100 |
|
|
| 101 |
my $clone = $self->clone_and_reset; |
|
| 102 |
$clone->settings(map { $_->clone_and_reset } $self->settings);
|
|
| 103 |
$clone->name('');
|
|
| 104 |
|
|
| 105 |
return $clone; |
|
| 106 |
} |
|
| 107 |
|
|
| 97 | 108 |
# |
| 98 | 109 |
# hooks |
| 99 | 110 |
# |
Auch abrufbar als: Unified diff
Csv Import in Datenbank zwischenspeichern und rudimentärer Report.