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

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +10 lines)
Lines 326-331 use C4::Biblio qw( GetMarcFromKohaField ); Link Here
326
    }
326
    }
327
}
327
}
328
328
329
{
330
    # search patrons that have date fields that are 0000-00-00
331
    foreach my $date_type (qw(dateofbirth dateenrolled dateexpiry date_renewed lastseen updated_on_debarred)) {
332
        my $borrowers = Koha::Patrons->search( { $date_type=>'0000-00-00' } );
333
            while (my $borrower = $borrowers->next()) {
334
                $borrower->$date_type(undef)->store();
335
            }
336
    }
337
}
338
329
{
339
{
330
    my @loop_borrowers_relationships;
340
    my @loop_borrowers_relationships;
331
    my @guarantor_ids = Koha::Patron::Relationships->_resultset->get_column('guarantor_id')->all();
341
    my @guarantor_ids = Koha::Patron::Relationships->_resultset->get_column('guarantor_id')->all();
332
- 

Return to bug 31143