Add a link from the front page to the tag cloud (and back) if there are any

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 43ea98853ffbd6e41f9e108512009d46063f1cb5..5d5b2be1602f7c06c57b73d88fd4b000bad0b6e3 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -268,7 +268,7 @@ sub update_image_info {
                        undef, $id)
                        or die "Couldn't delete old tag information in SQL: $!";
 
-               my $q = $dbh->prepare('INSERT INTO tags (image,tag) VALUES (?,?)')
+               $q = $dbh->prepare('INSERT INTO tags (image,tag) VALUES (?,?)')
                        or die "Couldn't prepare inserting tag information: $!";
 
                for my $tag (@tags) {