From 2db02a8285520bf82a141d5e3e5529f318dc2510 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 11 Feb 2001 22:44:34 +0000
Subject: [PATCH] Little fix so that if the item has no author information,
 empty () dont disply

---
 detail.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/detail.pl b/detail.pl
index 84bdbebb67..96330868c2 100755
--- a/detail.pl
+++ b/detail.pl
@@ -46,7 +46,11 @@ for (my $i=1;$i<$count3;$i++){
   $additional=$additional."|".$addauthor->[$i]->{'author'};                                             
 }  
 my @temp=split('\t',$items[0]);
-print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]");
+if ($dat->{'author'} ne ''){
+  print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]");
+} else {
+  print mkheadr(3,"$dat->{'title'} $temp[4]");
+}
 print <<printend
 
 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 align=left width="220">
-- 
2.39.2