<%args> $reqkey => undef $user => undef $extra_info => undef <%init> my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m", database=>'guianet'); my ($id,$reqdate,$updated) = $dbh->selectrow_array("select id, reqdate, updated from tdownloads_history where reqkey='$reqkey' and username='$user' order by updated limit 1"); return ($id,$reqdate,$updated) if $extra_info; return ($id);