View | Details | Raw Unified | Return to bug 31458
Collapse All | Expand All

(-)a/Koha/Patron.pm (-1 / +36 lines)
Lines 1247-1252 Method to add a new restriction to a patrons account Link Here
1247
1247
1248
=cut
1248
=cut
1249
1249
1250
sub _update_patron_restriction_fields {
1251
    my $self = $_;
1252
1253
    # OPTION ONE
1254
    my $restrictions = $self->restrictions->search(
1255
        { expiration => [ undef, { '>=' => \'CURRENT_DATE()' } ] },
1256
        {
1257
            order_by => [
1258
                { '-desc' => \'expiration IS NULL' },
1259
                { '-desc' => 'expiration' }
1260
            ],
1261
            rows => 1
1262
        }
1263
    );
1264
1265
    # OPTION TWO
1266
    # my $restrictions = $self->restrictions->search(
1267
    #    { expiration => [ undef, { '>=' => \'CURRENT_DATE()' } ] },
1268
    #    {
1269
    #        order_by => { '-desc' => [ \'expiration IS NULL', 'expiration' ] },
1270
    #        rows     => 1
1271
    #    }
1272
    #);
1273
1274
    my ( $expiration, $comment );
1275
    if ( my $restriction = $restrictions->next ) {
1276
        $expiration =
1277
          defined( $restriction->expiration )
1278
          ? $restriction->expiration
1279
          : '9999-12-31';
1280
        $comment = $restriction->comment;
1281
    }
1282
    $self->set( { debarred => $expiration, debarredcomment => $comment } )
1283
      ->store;
1284
}
1285
1250
sub add_restriction {
1286
sub add_restriction {
1251
    my ($self, $params) = @_;
1287
    my ($self, $params) = @_;
1252
1288
1253
- 

Return to bug 31458