|
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 |
- |
|
|