| 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}, |