@@ -, +, @@
staffClientBaseURL
---
misc/cronjobs/check_marc_errors.pl | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
--- a/misc/cronjobs/check_marc_errors.pl
+++ a/misc/cronjobs/check_marc_errors.pl
@@ -61,7 +61,7 @@ use MARC::Lint;
use Koha::Biblios;
my @bibnum;
-my $intranet;
+my $intranet = C4::Context->preference('staffClientBaseURL') . "/";
my $html;
GetOptions(
@@ -72,7 +72,7 @@ GetOptions(
my $count = 0;
-print "\n
\n\n
" if $html;
+print "\n\n\n
\n\n\nNo. | \nLink to record | \nWarning | \n
\n\n" if $html;
# checking MARC errors for specific records only
if ( @bibnum ) {
@@ -80,6 +80,7 @@ if ( @bibnum ) {
my $record = GetMarcBiblio({ biblionumber => $id });
my $warning = $record ? lint_record( $record ) : "Record does not exist.";
+ $warning =~ s/\n/
/g if $html;
my $detail_uri = "cgi-bin/koha/catalogue/detail.pl?biblionumber=";
report( $id, $warning, $detail_uri );
}
@@ -93,12 +94,13 @@ if ( @bibnum ) {
my $record = GetMarcBiblio({ biblionumber => $biblionumber });
my $warning = $record ? lint_record( $record ) : "Record does not exist.";
+ $warning =~ s/\n/
/g if $html;
my $detail_uri = "cgi-bin/koha/catalogue/detail.pl?biblionumber=";
report( $biblionumber, $warning, $detail_uri );
}
}
-print "
\n
\n\n" if $html;
+print "\n
\n
\n\n" if $html;
sub lint_record {
my $record = shift;
@@ -127,7 +129,7 @@ sub report {
$string .= "" . $warning . " | \n\n";
print $string;
} else {
- print "$count.\t$id\t$warning\n";
+ print "$count.\tRecord ID: $id\n$warning\n\n";
}
}
}
--