Fixed syntax errors preventing compilation; however,
unsure whether this is a dead utility that should be
removed outright.
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
'h' => \$help,
);
-if ($h) {
+if ($help) {
print $USAGE."\n";
exit;
}
unless (-d "$biblioserverdir/specialUpdate") {
system("mkdir -p $biblioserverdir/specialUpdate");
print "Info: created $biblioserverdir/specialUpdate\n";
- $created_dir_or_file++;
}
my $outfile = "$biblioserverdir/specialUpdate/$filename";
#
my ($itemnumberTag,$itemnumberSubfield) = GetMarcFromKohaField("items.itemnumber","");
my ($date_dueTag,$date_dueSubfield) = GetMarcFromKohaField("items.issues","");
-my (
while (my $biblionumber=$biblionumber_sth->fetchrow) {
$count++;