Lines 345-350
use C4::Biblio qw( GetMarcFromKohaField );
Link Here
|
345 |
|
345 |
|
346 |
} |
346 |
} |
347 |
|
347 |
|
|
|
348 |
{ |
349 |
my $count = 0; |
350 |
|
351 |
# search items that have date fields that are 0000-00-00 |
352 |
foreach my $date_type (qw(dateaccessioned replacementpricedate datelastborrowed datelastseen damaged_on itemlost_on withdrawn_on deleted_on onloan)) { |
353 |
my $items = Koha::Items->search( { $date_type=>'0000-00-00' } ); |
354 |
while (my $item = $items->next()) { |
355 |
$count++; |
356 |
} |
357 |
} |
358 |
|
359 |
new_section("$count invalid item dates found"); |
360 |
|
361 |
if ($count > 0) { |
362 |
new_hint("You may change the date with script: misc/cronjobs/fix_invalid_item_dates.pl (-c -v)"); |
363 |
} |
364 |
|
365 |
} |
366 |
|
348 |
{ |
367 |
{ |
349 |
my @loop_borrowers_relationships; |
368 |
my @loop_borrowers_relationships; |
350 |
my @guarantor_ids = Koha::Patron::Relationships->_resultset->get_column('guarantor_id')->all(); |
369 |
my @guarantor_ids = Koha::Patron::Relationships->_resultset->get_column('guarantor_id')->all(); |
Lines 470-474
Catch data inconsistencies in Koha database
Link Here
|
470 |
* Invalid MARCXML in bibliographic records |
489 |
* Invalid MARCXML in bibliographic records |
471 |
* Patrons with invalid category types due to lower and upper age limits |
490 |
* Patrons with invalid category types due to lower and upper age limits |
472 |
* Patrons with 0000-00-00 dates in fields dateofbirth, dateenrolled, dateexpiry, date_renewed, lastseen, updated_on, debarred |
491 |
* Patrons with 0000-00-00 dates in fields dateofbirth, dateenrolled, dateexpiry, date_renewed, lastseen, updated_on, debarred |
|
|
492 |
* Items with 0000-00-00 dates in fields dateaccessioned, replacementpricedate, datelastborrowed, datelastseen, damaged_on, itemlost_on, withdrawn_on, deleted_on, onloan |
473 |
|
493 |
|
474 |
=cut |
494 |
=cut |
475 |
- |
|
|