fix bug in searching a not exist board

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1521 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 2 insertions, 1 deletions

diff --git a/blog/blog.pl b/blog/blog.pl
index 49b30fd8..8126bc6f 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -36,7 +36,8 @@ sub main
             my($sth);
             $sth = $dbh->prepare("select k from counter where k='$brdname'");
             $sth->execute();
-            $brdname  = $sth->fetchrow_hashref()->{k};
+	    $brdname = (($sth = $sth->fetchrow_hashref()) ?
+			$sth->{k} : 'Blog');
         });
         return redirect("/blog.pl/$brdname/");
     }