genauer

[Reiner]

Hier mal der Teil, der das Problem verursacht:

sub get_file_id
{
    my ($url, $dbh) = @_;
    my ($fileID, $sql, $in, $success);

# Anker abtrennen
    ($url, undef) = split(/#/, $url, 2);

$sql  = "select id from sub_files where url = " . $dbh->quote($url);
    $in = $dbh->prepare($sql);
    $in->execute;
    $fileID = $in->fetchrow_array;
    $in->finish;

if ((!$fileID) || ($fileID eq "") || ($fileID eq " "))
    {
        my $filetype = get_file_type($url);
        $sql = "insert into sub_files (url, filetype) values (".$dbh->quote($url).", '$filetype')";
        $in = $dbh->prepare($sql);
        $success = $in->execute;
        if ($success)
        {
            $fileID = $dbh->{'mysql_insertid'};
        }
        $in->finish;
    }

return $fileID;
}