21 lines
722 B
Text
21 lines
722 B
Text
$NetBSD: patch-ca,v 1.4 2005/12/17 19:36:27 markd Exp $
|
|
|
|
--- khelpcenter/searchhandlers/khc_mansearch.pl.orig 2005-12-01 00:32:43.000000000 +1300
|
|
+++ khelpcenter/searchhandlers/khc_mansearch.pl
|
|
@@ -55,7 +55,7 @@ my @results;
|
|
while( <MAN> ) {
|
|
# print "RAW:$_";
|
|
chop;
|
|
- /^([^\s]+)\s+\((.*)\)\s+-\s+(.*)$/;
|
|
+ /^([^(]+)\s+\((.*)\)\s+-\s+(.*)$/;
|
|
my $page = $1;
|
|
my $section = $2;
|
|
my $description = $3;
|
|
@@ -73,6 +73,7 @@ if ( $nummatches > 0 ) {
|
|
for my $result ( @results ) {
|
|
my ( $page, $section, $description ) = @$result;
|
|
my $url = "man:" . $page;
|
|
+ $url =~ s/,.*//;
|
|
print "<li><a href=\"$url\">";
|
|
print "$page - $description</a></li>\n";
|
|
if ( ++$count == $maxcount ) { last; }
|