From 16c79987853a5ef3c9af12eb145442f22f0a1d49 Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 28 Sep 2006 04:37:47 +0000 Subject: [PATCH] adding Selector class method git-svn-id: svn://svn.open-ils.org/ILS/trunk@6240 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm b/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm index 0e56cc2a25..8aece95227 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm @@ -65,6 +65,10 @@ sub import { { virtual => ($idl->{$c}{fields}{field}{$f}{'oils_persist:virtual'} eq 'true') ? 1 : 0, position => $idl->{$c}{fields}{field}{$f}{'oils_obj:array_position'}, }; + + if ($idl->{$c}{fields}{field}{$f}{'reporter:selector'}) { + $$fieldmap{$n}{selector} = $idl->{$c}{fields}{field}{$f}{'reporter:selector'}; + } } } @@ -153,19 +157,24 @@ sub AUTOLOAD { return $obj->$field($value); } +sub Selector { + my $self = shift; + return $$fieldmap{$self->class_name}{selector}; +} + sub Identity { - my $class_name = shift; - return $$fieldmap{$class_name}{identity}; + my $self = shift; + return $$fieldmap{$self->class_name}{identity}; } sub Sequence { - my $class_name = shift; - return $$fieldmap{$class_name}{sequence}; + my $self = shift; + return $$fieldmap{$self->class_name}{sequence}; } sub Table { - my $class_name = shift; - return $$fieldmap{$class_name}{table}; + my $self = shift; + return $$fieldmap{$self->class_name}{table}; } sub class_name { -- 2.11.0