actor::user->has_many( cards => 'actor::card' );
actor::org_unit->has_many( users => 'actor::user' );
- actor::profile->has_many( users => 'actor::user' );
action::survey->has_many( questions => 'action::survey_question' );
action::survey->has_many( responses => 'action::survey_response' );
__PACKAGE__->columns( Essential => qw/usr name value/);
#-------------------------------------------------------------------------------
-package actor::profile;
-use base qw/actor/;
-
-__PACKAGE__->table( 'actor_profile' );
-__PACKAGE__->columns( Primary => qw/id/);
-__PACKAGE__->columns( Essential => qw/name/);
-
-#-------------------------------------------------------------------------------
package actor::org_unit_type;
use base qw/actor/;
city county state country post_code/ );
#-------------------------------------------------------------------------------
-package actor::profile;
-use base qw/actor/;
-
-__PACKAGE__->table( 'actor_profile' );
-__PACKAGE__->columns( Primary => qw/id/ );
-__PACKAGE__->columns( Essential => qw/name/ );
-
-#-------------------------------------------------------------------------------
1;
actor::org_address->sequence( 'actor.org_address_id_seq' );
#---------------------------------------------------------------------
- package actor::profile;
-
- actor::profile->table( 'actor.profile' );
- actor::profile->sequence( 'actor.profile_id_seq' );
-
- #---------------------------------------------------------------------
package actor::org_unit_type;
actor::org_unit_type->table( 'actor.org_unit_type' );
method => 'org_unit_descendants',
);
-sub profile_all {
- my $self = shift;
- my $client = shift;
-
- for my $rec ( actor::profile->retrieve_all ) {
- $client->respond( $rec->to_fieldmapper );
- }
-
- return undef;
-}
-__PACKAGE__->register_method(
- method => 'profile_all',
- api_name => 'open-ils.storage.direct.actor.profile.retrieve.all',
- argc => 0,
- stream => 1,
-);
-
sub fleshed_actor_stat_cat {
my $self = shift;
my $client = shift;