konevsa/alterator-net-ifupdown2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hide IP version selection if IPv4 only case

Browse Source
This commit is contained in:
Andriy Stepanov 2014-11-20 17:19:20 +04:00 committed by Mikhail Efremov
parent 8f189fc50f
commit 8d147924f7
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
alterator-net-eth/ui/net-eth/ajax.scm
View File

@ -97,7 +97,10 @@
"/net-eth" "/net-eth"
'name name 'name name
'ipv ipv 'ipv ipv
(form-value-list '("language" "ipv_enabled" ; stanv@: 'form-value-list' skips values for checkboxes == #f (unchecked)
; put checkboxes separately
'ipv_enabled (form-value "ipv_enabled")
(form-value-list '("language"
"computer_name" "dns" "search" "computer_name" "dns" "search"
"default" "configuration")))) "default" "configuration"))))
@ -161,7 +164,11 @@
(form-update-value "prev_name" ""))))) (form-update-value "prev_name" "")))))
(define (init-interface) (define (init-interface)
(form-update-enum "ipv" (woo-list "/net-eth/avail_ipv")) (let* ( ; has form as : ("/net-eth/avail_ipv" name "4" label "IPv4")
(available-ip-versions (woo-list "/net-eth/avail_ipv"))
(only-ipv4-available (= (length available-ip-versions) 1)))
(form-update-enum "ipv" available-ip-versions)
(form-update-visibility "area-ip-version-select" (not only-ipv4-available)))
(form-update-value "ipv" "4") (form-update-value "ipv" "4")
(cell-set! *prev_ipv* "4") (cell-set! *prev_ipv* "4")
(catch/message (catch/message

2
alterator-net-eth/ui/net-eth/index.html
View File

@ -45,7 +45,7 @@
</div> </div>
</td> </td>
</tr> </tr>
<tr> <tr name="area-ip-version-select">
<td align="right"><span translate="_">Select IP version:</span></td> <td align="right"><span translate="_">Select IP version:</span></td>
<td> <td>
<select name="ipv"/> <select name="ipv"/>