Revision 7f883269
Von Sven Schöling vor mehr als 1 Jahr hinzugefügt
| SL/DB/ReclamationItem.pm | ||
|---|---|---|
| 12 | 12 |
use SL::DB::Helper::ActsAsList; |
| 13 | 13 |
use SL::DB::Helper::LinkedRecords; |
| 14 | 14 |
use SL::DB::Helper::RecordItem; |
| 15 |
use SL::DB::Helper::RecordLink qw(RECORD_ITEM_ID RECORD_ITEM_TYPE_REF); |
|
| 15 | 16 |
use SL::DB::Helper::CustomVariables ( |
| 16 | 17 |
sub_module => 'reclamation_items', |
| 17 | 18 |
cvars_alias => 1, |
| ... | ... | |
| 30 | 31 |
sub is_linked_to_record {
|
| 31 | 32 |
my ($self) = @_; |
| 32 | 33 |
|
| 33 |
if(scalar(@{$self->linked_records}) || $self->{converted_from_record_item_type_ref}) {
|
|
| 34 |
if(scalar(@{$self->linked_records}) || $self->{RECORD_ITEM_TYPE_REF()}) {
|
|
| 34 | 35 |
return 1; |
| 35 | 36 |
} |
| 36 | 37 |
|
| ... | ... | |
| 99 | 100 |
$item->assign_attributes(%{ $params{attributes} }) if $params{attributes};
|
| 100 | 101 |
|
| 101 | 102 |
unless ($params{no_linked_records}) {
|
| 102 |
$item->{"converted_from_record_item_type_ref"} = ref($source);
|
|
| 103 |
$item->{"converted_from_record_item_id"} = $source->id;
|
|
| 103 |
$item->{RECORD_ITEM_TYPE_REF()} = ref($source);
|
|
| 104 |
$item->{RECORD_ITEM_ID()} = $source->id;
|
|
| 104 | 105 |
} |
| 105 | 106 |
|
| 106 | 107 |
return $item; |
Auch abrufbar als: Unified diff
RecordLinks: Reclamation after save hook in ein SL::DB::Helper modul verschoben
RecordLinks werden in reclamations in einem after save hook behandelt,
und sind damit deutlich robuster als die manuelle Behandlung. Die
ausgelagerte Variante hat jetzt auch Konstanten für die magischen
Strings in den Objekten.