sub add_views{ my $id = shift; my $current_views = shift; my $new_views = $current_views + 1; my($dbh,$sth); $dbh = BaboonDB->connect(); $sth = $dbh->prepare('UPDATE news SET views=? WHERE id=?') or die("Couldn't prepare statement: " . $dbh->errstr); $sth->execute($new_views,$id) or die("Couldn't execute statement: " . $sth->errstr); $sth->finish; $dbh->disconnect; return($new_views); }