#Art und Name des Designs ermitteln if ($design eq "own") { $name = "own"; } else { open(FILE, "$internmaindir/userdaten/$userid/daten/payeddesigns.dat") or FEHLERABFRAGE; flock FILE,1; @designs = ; s/\n// foreach (@designs); close(FILE); foreach(@designs) { if ($_ eq $design) { $found = "ja"; } } if (!($found eq "ja")) { require "hpm_homepage_designnn.cgi"; } $anfrage = "SELECT name FROM hpm_designs WHERE designid='$design'"; &datenbank; $ergebnisse = $sth->fetchall_arrayref( { name => 1 } ); foreach(@$ergebnisse) { $name = $_->{name}; } }