version 1.1, 2001/07/28 21:31:37
|
version 1.2, 2001/07/28 21:39:47
|
Line 51 MAIN:
|
Line 51 MAIN:
|
$sth->execute; |
$sth->execute; |
if(!$sth->rows) { |
if(!$sth->rows) { |
print STDERR "There is no file $source in the database\n"; |
print STDERR "There is no file $source in the database\n"; |
|
$sth->finish; |
|
$dbh->disconnect; |
exit 1; |
exit 1; |
} |
} |
my ($Title)=$sth->fetchrow; |
my ($Title)=$sth->fetchrow; |
Line 61 MAIN:
|
Line 63 MAIN:
|
if($sth->rows) { |
if($sth->rows) { |
($Title)=$sth->fetchrow; |
($Title)=$sth->fetchrow; |
print STDERR "The file $source already exists. The title is $Title\n"; |
print STDERR "The file $source already exists. The title is $Title\n"; |
|
$sth->finish; |
|
$dbh->disconnect; |
exit 1; |
exit 1; |
} |
} |
|
|