Revision eaf907b1
Von Sven Schöling vor mehr als 1 Jahr hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
|
use SL::DB::Helper::AttrSorted;
|
||
|
use SL::DB::Helper::FlattenToForm;
|
||
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::TypeDataProxy;
|
||
|
use SL::DB::Helper::TransNumberGenerator;
|
||
|
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF);
|
||
|
|
||
| ... | ... | |
|
$self->date->to_kivitendo;
|
||
|
}
|
||
|
|
||
|
sub type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new(ref $_[0], $_[0]->type);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
__END__
|
||
|
|
||
| SL/DB/Helper/TypeDataProxy.pm | ||
|---|---|---|
|
package SL::DB::Helper::TypeDataProxy;
|
||
|
|
||
|
use strict;
|
||
|
use Scalar::Util qw(weaken);
|
||
|
|
||
|
sub new {
|
||
|
my ($class, $record_class, $type) = @_;
|
||
|
|
||
|
my $type_data_class = $record_class . '::TypeData';
|
||
|
eval "require $type_data_class" or die "invalid type data class '$type_data_class'";
|
||
|
|
||
|
bless [
|
||
|
$type,
|
||
|
$type_data_class
|
||
|
], $class;
|
||
|
}
|
||
|
|
||
|
# convenience methods for common topics in type data
|
||
|
sub text {
|
||
|
my $self = shift;
|
||
|
$self->[1]->can("get3")->($self->[0], "text", @_);
|
||
|
}
|
||
|
|
||
|
sub properties {
|
||
|
my $self = shift;
|
||
|
$self->[1]->can("get3")->($self->[0], "properties", @_);
|
||
|
}
|
||
|
|
||
|
sub show_menu {
|
||
|
my $self = shift;
|
||
|
$self->[1]->can("get3")->($self->[0], "show_menu", @_);
|
||
|
}
|
||
|
|
||
|
sub rights {
|
||
|
my $self = shift;
|
||
|
$self->[1]->can("get3")->($self->[0], "rights", @_);
|
||
|
}
|
||
|
|
||
|
sub AUTOLOAD {
|
||
|
our $AUTOLOAD;
|
||
|
|
||
|
my ($self, @args) = @_;
|
||
|
|
||
|
my $method = $AUTOLOAD;
|
||
|
$method =~ s/.*:://;
|
||
|
|
||
|
return if $method eq 'DESTROY';
|
||
|
|
||
|
if (my $sub = $self->[1]->can($method)) {
|
||
|
return $sub->($self->[0], @args);
|
||
|
} else {
|
||
|
die "no method $method in $self->[1]";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=encoding utf-8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::DB::Helper::TypeDataProxy - proxy for accessing type data from a record instance
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
# in a SL::DB::Record type
|
||
|
sub type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new(ref $_[0], $_[0]->type);
|
||
|
}
|
||
|
|
||
|
# in consuming code with a record object
|
||
|
# the methods are only available if the TypeData class supports them
|
||
|
$record->type_data->is_type(...)
|
||
|
$record->type_data->valid_types
|
||
|
$record->type_data->text('edit')
|
||
|
$record->type_data->properties('is_customer')
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
Wrap the static type information of a given record into an accessible sub object.
|
||
|
Only works if a TypeData class exists that knows about the return values of the given type
|
||
|
Since this does not operate on the live objects but rather wraps a snapshot,
|
||
|
this will not get updated if the creating object changes.
|
||
|
|
||
|
=head1 PROXIED METHODS
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item * C<valid_types>
|
||
|
|
||
|
Returns the known sub types of this record
|
||
|
|
||
|
=item * C<is_type> $type
|
||
|
|
||
|
Checks whether this record is of the given type
|
||
|
|
||
|
=item * C<is_valid_type>
|
||
|
|
||
|
=item * C<validate_type>
|
||
|
|
||
|
Check whether this record has a valid type. C<is_valid_type> returns boolish, C<validate_type> will throw if the validation fails.
|
||
|
|
||
|
=item * C<text> $action
|
||
|
|
||
|
Returns the translated text for this action and action
|
||
|
|
||
|
=item * C<properties> $property
|
||
|
|
||
|
Returns the named property for this type
|
||
|
|
||
|
=item * C<show_menu> $action
|
||
|
|
||
|
Rtuens whether the given menu action is valid for this type
|
||
|
|
||
|
=item * C<rights> $action
|
||
|
|
||
|
Returns the needed rights for this action with this type
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 BUGS
|
||
|
|
||
|
None yet. :)
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
Sven Schöling $<lt>s.schoeling@googlemail.comE<gt>
|
||
|
|
||
|
=cut
|
||
| SL/DB/Order.pm | ||
|---|---|---|
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::PriceTaxCalculator;
|
||
|
use SL::DB::Helper::PriceUpdater;
|
||
|
use SL::DB::Helper::TypeDataProxy;
|
||
|
use SL::DB::Helper::TransNumberGenerator;
|
||
|
use SL::DB::Helper::Payment qw(forex);
|
||
|
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF RECORD_ITEM_ID RECORD_ITEM_TYPE_REF);
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
sub type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new(ref $_[0], $_[0]->type);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
| SL/DB/Reclamation.pm | ||
|---|---|---|
|
use SL::DB::Helper::LinkedRecords;
|
||
|
use SL::DB::Helper::PriceTaxCalculator;
|
||
|
use SL::DB::Helper::PriceUpdater;
|
||
|
use SL::DB::Helper::TypeDataProxy;
|
||
|
use SL::DB::Helper::TransNumberGenerator;
|
||
|
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF);
|
||
|
use SL::Locale::String qw(t8);
|
||
| ... | ... | |
|
$self->date->to_kivitendo;
|
||
|
}
|
||
|
|
||
|
sub type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new(ref $_[0], $_[0]->type);
|
||
|
}
|
||
|
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
Auch abrufbar als: Unified diff
TypeData: proxy um $record->type_data benutzen zu können