824 |
let main_availability_of net availabilities = |
let main_availability_of net availabilities = |
825 |
try |
try |
826 |
List.assoc net availabilities |
List.assoc net availabilities |
827 |
with _ -> |
with _ -> "" |
|
begin |
|
|
match availabilities with |
|
|
(_, availability)::_ -> |
|
|
begin |
|
|
let len = String.length availability in |
|
|
String.make len (char_of_int 0) |
|
|
end |
|
|
|
|
|
| _ -> "" |
|
|
|
|
|
end |
|
828 |
|
|
829 |
let availability_bar availability chunks b = |
let availability_bar availability chunks b = |
830 |
if !!O.gtk_look_graphical_availability |
if !!O.gtk_look_graphical_availability |