Merge pull request #25 from Spoowy/patch-1

Regard binary source list element as atom-element

src/actions/action_event.erl

@@ -15,8 +15,9 @@ render_action(#event{postback=Postback,actions=_A,source=Source,target=Control,t
      "',function (event){ event.preventDefault(); ",PostbackBin,"});};"].
 
 data(E,SourceList) ->
-    Type=fun(A) when is_atom(A) -> [ "atom('",atom_to_list(A),"')" ];
-                            (A) -> [ "string('",A,"')" ] end,
+    Type=fun(A) when is_atom(A)   -> [ "atom('",atom_to_list(A),"')" ];
+            (A) when is_binary(A) -> [ "atom('",binary_to_list(A),"')" ];
+                              (A) -> [ "string('",A,"')" ] end,
     list_to_binary(["[tuple(tuple(string('",E,"'),bin('detail')),[])",
         [ case S of {Id,Code} -> [ ",tuple(",Type(Id),",",Code,")" ];
                             _ -> [ ",tuple(",Type(S),",querySource('",?B(S),"'))" ]