From fe3f3050bd0ca87b5593417e2623e92b8a9e12f7 Mon Sep 17 00:00:00 2001
From: Arne Fitzenreiter <arne_f@ipfire.org>
Date: Sun, 24 Feb 2013 13:44:03 +0100
Subject: [PATCH] wlanap.cgi: set channel manually if no channels are reported.

---
 html/cgi-bin/wlanap.cgi | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/html/cgi-bin/wlanap.cgi b/html/cgi-bin/wlanap.cgi
index 83d65dbdb..5eb480007 100644
--- a/html/cgi-bin/wlanap.cgi
+++ b/html/cgi-bin/wlanap.cgi
@@ -2,7 +2,7 @@
 ###############################################################################
 #                                                                             #
 # IPFire.org - A linux based firewall                                         #
-# Copyright (C) 2005-2012  IPFire Team  <info@ipfire.org>                     #
+# Copyright (C) 2005-2013  IPFire Team  <info@ipfire.org>                     #
 #                                                                             #
 # This program is free software: you can redistribute it and/or modify        #
 # it under the terms of the GNU General Public License as published by        #
@@ -391,16 +391,31 @@ print <<END
 		<option value='wpa1+2' $selected{'ENC'}{'wpa1+2'}>WPA1+2</option>
 	</select>
 </td></tr>
+END
+;
+
+#
+# If channel's found use a select dropdown if not a text inputfield.
+if ( scalar @channellist > 0 ){
+	print <<END
 <tr><td width='25%' class='base'>$Lang::tr{'wlanap channel'}:&nbsp;</td><td class='base' colspan='3'>
 	<select name='CHANNEL'>
 END
 ;
-foreach $channel (@channellist){
-	print "<option $selected{'CHANNEL'}{$channel}>$channel</option>";
+	foreach $channel (@channellist){
+		print "<option $selected{'CHANNEL'}{$channel}>$channel</option>";
+	}
+	print "</select></td></tr>"
+} else {
+	print <<END
+<tr><td width='25%' class='base'>$Lang::tr{'wlanap channel'}:&nbsp;</td><td class='base' colspan='3'>
+<input type='text' name='CHANNEL' size='10' value='$wlanapsettings{'CHANNEL'}' />
+</td></tr>
+END
+;
 }
 
 print <<END
-</select></td></tr>
 <tr><td width='25%' class='base'>$Lang::tr{'wlanap country'}:&nbsp;</td><td class='base' colspan='3'>
 	<select name='COUNTRY'>
 END
-- 
2.39.2