my($id, $qs, $post, $user) = @_; | my($id, $qs, $post, $user) = @_; | ||||
my @tags; | my @tags; | ||||
my $q = sqlquery($dbh, "SELECT * FROM tags ORDER by tag DESC"); | my $q = sqlquery($dbh, "SELECT * FROM tags ORDER by tag DESC"); | ||||
while(my $h = $q->fetchrow_array()) { | |||||
while(my $h = $q->fetchrow_hashref()) { | |||||
push @tags, { | push @tags, { | ||||
id => $h->{id}, | id => $h->{id}, | ||||
name => $h->{tag}, | name => $h->{tag}, |