<%args> $filename => undef <%init> if ($filename){ my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m", database=>'guianet'); my ($req_key) = $dbh->selectrow_array("select reqkey from tdownloads where filename='$filename'"); return $req_key; }else{ return undef; }