$sth = $dbh->prepare("select * from tasks where task_id = $id")
                 or &dienice
        ("AssignProblem:Can't prepare to get problem report: " . $dbh->errstr );
        $sth->execute or &dienice
                ("AssignProblem:Can't get problem report $id: " . $dbh->errstr);
        while (@rows = $sth->fetchrow_array) {
                        push(@task, @rows);