os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

display user selected Architecture on result page

Browse source
This commit is contained in:
Wolfram Schneider 2011-08-21 12:20:31 +00:00
parent 9c24e1fdb8
commit 067bcb25fb
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=37584
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
en/cgi/man.cgi
View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp
# Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
#
# $FreeBSD: www/en/cgi/man.cgi,v 1.261 2011/03/29 21:54:40 wosch Exp $
# $FreeBSD: www/en/cgi/man.cgi,v 1.263 2011/08/20 20:25:00 wosch Exp $
############################################################################
# !!! man.cgi is stale perl4 code !!!
@ -1491,7 +1491,17 @@ ETX
my @arch = exists $arch{$l} ? @{ $arch{$l}->{'arch'} } : $default_arch;
unshift @arch, 'default';
my $a = exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
my $a;
# machine type selected by user
if ($arch) {
$a = $arch;
}
# pickup a default machine type
else {
exists $arch{$l}->{'default'} ? $arch{$l}->{'default'} : 'default';
}
foreach (@arch) {
my $selected = $_ eq $a ? ' selected="selected"' : "";
print qq{<option $selected value="$_">$_</option>\n};
@ -1552,7 +1562,7 @@ sub faq {
}
local $id =
'$FreeBSD: www/en/cgi/man.cgi,v 1.261 2011/03/29 21:54:40 wosch Exp $';
'$FreeBSD: www/en/cgi/man.cgi,v 1.263 2011/08/20 20:25:00 wosch Exp $';
return qq{\
<pre>
Copyright (c) 1996-2011 <a href="$mailtoURL">Wolfram Schneider</a>