|
Lines 98-104
sub authorised_value {
Link Here
|
| 98 |
authorised_value => $self->attribute, |
98 |
authorised_value => $self->attribute, |
| 99 |
} |
99 |
} |
| 100 |
); |
100 |
); |
| 101 |
return unless $av->count; # Data inconsistency |
101 |
return unless $av->count; # Data inconsistency |
| 102 |
return $av->next; |
102 |
return $av->next; |
| 103 |
} |
103 |
} |
| 104 |
|
104 |
|
|
Lines 114-120
displayed instead of the code.
Link Here
|
| 114 |
=cut |
114 |
=cut |
| 115 |
|
115 |
|
| 116 |
sub description { |
116 |
sub description { |
| 117 |
my ( $self) = @_; |
117 |
my ($self) = @_; |
| 118 |
if ( $self->type->authorised_value_category ) { |
118 |
if ( $self->type->authorised_value_category ) { |
| 119 |
my $av = $self->authorised_value; |
119 |
my $av = $self->authorised_value; |
| 120 |
return $av ? $av->lib : ""; |
120 |
return $av ? $av->lib : ""; |
|
Lines 147-156
whether storing the current object state would break the repeatable constraint.
Link Here
|
| 147 |
|
147 |
|
| 148 |
sub repeatable_ok { |
148 |
sub repeatable_ok { |
| 149 |
|
149 |
|
| 150 |
my ( $self ) = @_; |
150 |
my ($self) = @_; |
| 151 |
|
151 |
|
| 152 |
my $ok = 1; |
152 |
my $ok = 1; |
| 153 |
if ( ! $self->type->repeatable ) { |
153 |
if ( !$self->type->repeatable ) { |
| 154 |
my $params = { |
154 |
my $params = { |
| 155 |
borrowernumber => $self->borrowernumber, |
155 |
borrowernumber => $self->borrowernumber, |
| 156 |
code => $self->code |
156 |
code => $self->code |
|
Lines 174-180
whether storing the current object state would break the unique constraint.
Link Here
|
| 174 |
|
174 |
|
| 175 |
sub unique_ok { |
175 |
sub unique_ok { |
| 176 |
|
176 |
|
| 177 |
my ( $self ) = @_; |
177 |
my ($self) = @_; |
| 178 |
|
178 |
|
| 179 |
my $ok = 1; |
179 |
my $ok = 1; |
| 180 |
if ( $self->type->unique_id ) { |
180 |
if ( $self->type->unique_id ) { |
|
Lines 183-191
sub unique_ok {
Link Here
|
| 183 |
$params->{borrowernumber} = { '!=' => $self->borrowernumber } if $self->borrowernumber; |
183 |
$params->{borrowernumber} = { '!=' => $self->borrowernumber } if $self->borrowernumber; |
| 184 |
$params->{id} = { '!=' => $self->id } if $self->in_storage; |
184 |
$params->{id} = { '!=' => $self->id } if $self->in_storage; |
| 185 |
|
185 |
|
| 186 |
my $unique_count = Koha::Patron::Attributes |
186 |
my $unique_count = Koha::Patron::Attributes->search($params)->count; |
| 187 |
->search( $params ) |
|
|
| 188 |
->count; |
| 189 |
|
187 |
|
| 190 |
$ok = 0 if $unique_count > 0; |
188 |
$ok = 0 if $unique_count > 0; |
| 191 |
} |
189 |
} |
|
Lines 201-211
Checks if the value of the attribute is valid for the type
Link Here
|
| 201 |
|
199 |
|
| 202 |
sub value_ok { |
200 |
sub value_ok { |
| 203 |
|
201 |
|
| 204 |
my ( $self ) = @_; |
202 |
my ($self) = @_; |
| 205 |
|
203 |
|
| 206 |
my $ok = 1; |
204 |
my $ok = 1; |
| 207 |
if ( $self->type->is_date ) { |
205 |
if ( $self->type->is_date ) { |
| 208 |
eval { dt_from_string($self->attribute); }; |
206 |
eval { dt_from_string( $self->attribute ); }; |
| 209 |
if ($@) { |
207 |
if ($@) { |
| 210 |
$ok = 0; |
208 |
$ok = 0; |
| 211 |
} |
209 |
} |
| 212 |
- |
|
|