lib/A3C/Record.pm

package A3C::Record;

use strict;
use warnings;

use base 'Jifty::Record';

=head1 NAME

Custom Record class for A3C

=head1 METHODS

=head2 load_or_create

Perform canonicalization on C<load_or_create> and loads subset of columns
(which hopfully are indexes in model for performance reasons).

=cut

sub load_or_create {
        my $class = shift;
        my $self;
        if ( ref($class) ) {
                ( $self, $class ) = ( $class, undef );
        } else {
                $self = $class->new();
        }

        my %args = (@_);

        foreach my $key ( keys %args ) {
                $args{$key} = $self->run_canonicalization_for_column(
                        column => $key,
                        value  => $args{$key}
                );
        }

        my %load_cols;

        if ( ref($self) eq Jifty->app_class('Model','Person') ) {

                $load_cols{$_} = $args{$_} foreach ( qw/
                        uid
                        hrEduPersonUniqueID
                        mail
                / );
        
        } else {
                %load_cols = %args;
        }

        my ( $id, $msg ) = $self->load_by_cols(%load_cols);
        unless ( $self->id ) {
                return $self->create(%args);
        }

        return ( $id, $msg );
}

1;
1	dpavlin	54	package A3C::Record;
2
3			use strict;
4			use warnings;
5
6			use base 'Jifty::Record';
7
8			=head1 NAME
9
10			Custom Record class for A3C
11
12			=head1 METHODS
13
14			=head2 load_or_create
15
16	dpavlin	74	Perform canonicalization on C<load_or_create> and loads subset of columns
17			(which hopfully are indexes in model for performance reasons).
18	dpavlin	54
19			=cut
20
21			sub load_or_create {
22			my $class = shift;
23			my $self;
24			if ( ref($class) ) {
25			( $self, $class ) = ( $class, undef );
26			} else {
27			$self = $class->new();
28	dpavlin	76	}
29	dpavlin	54
30			my %args = (@_);
31
32			foreach my $key ( keys %args ) {
33			$args{$key} = $self->run_canonicalization_for_column(
34			column => $key,
35			value => $args{$key}
36			);
37			}
38
39	dpavlin	74	my %load_cols;
40
41	dpavlin	75	if ( ref($self) eq Jifty->app_class('Model','Person') ) {
42	dpavlin	74
43			$load_cols{$_} = $args{$_} foreach ( qw/
44			uid
45			hrEduPersonUniqueID
46			mail
47			/ );
48
49			} else {
50			%load_cols = %args;
51			}
52
53			my ( $id, $msg ) = $self->load_by_cols(%load_cols);
54	dpavlin	54	unless ( $self->id ) {
55			return $self->create(%args);
56			}
57
58			return ( $id, $msg );
59			}
60
61			1;