Changeset 16425 for lang/actionscript

Timestamp:

07/25/08 20:51:33 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• index.cgi (modified) (1 diff)
• nohada.cgi (modified) (3 diffs)
• perl/Obj.pm (modified) (2 diffs)

lang/actionscript/todoshare/index.cgi

@@ -16 +16 @@
       [h1,"メニュー"],
        link("todo.cgi","Todo"),
+       link("nohada.cgi","のはだ"),
        link("swkText.cgi","SWK(Text Mode)"),
        link("DBConsoleFlash.html","SWK(Flash Mode)"),

lang/actionscript/todoshare/nohada.cgi

@@ -26 +26 @@
   
   $("test").innerHTML=Object.toJSON(list);
-  get(list,function(data) {
+  db(list,function(data) {
      var cand=data.map(function (e) {
          return e[tName];
      }).sort().uniq();
-     $("test").innerHTML=cand.length;
+     print(cand.join(", "));
      if (cand.length==1) {$(tName).value=cand[0];}
      else {sugs[tName].candidateList=cand;}
   });
 }
-function get(cmd,onComplete) {
+function db(cmd,onComplete) {
    new Ajax.Request("db.cgi", {
                 method: "put",
                 parameters: 'cmd='+encodeURI(Object.toJSON(cmd)) ,
                 onSuccess:function(httpObj){
-                   //alert(httpObj);
-                   //alert(httpObj.responseText);
                    try {
                      onComplete( httpObj.responseText.evalJSON() );
-                   } catch(e) {$("test").innerHTML=e;}
-                   //$("test").innerHTML=httpObj.responseText;
-                   
+                   } catch(e) {print(e);}
                 },
                 onFailure:function(httpObj) {
-                   $("test").innerHTML=httpObj.responseText;
+                   print (httpObj.responseText);
                 }
    });
+}
+function print(c) {
+  $("test").innerHTML=c;
 }
 
@@ -65 +64 @@
    init("val");
 };
-function () {   
-              var suggest = new Suggest.LocalMulti("obj", "suggest",
-               list[0/*document.getElementById('select').selectedIndex*/], {dispAllKey: true});
-              /*var select = document.getElementById('select')
-              var change = function(){
-                suggest.candidateList = list[select.selectedIndex];
-              };
-              select.addEventListener ?
-                select.addEventListener('change', change, false) :
-                select.attachEvent('onchange', change);*/
-};
+function exe() {
+   db(["MAKEREL", 
+      $("obj").value,
+      $("name").value,
+      $("val").value],function (res) {
+      print (Object.toJSON(res));
+      clearForm();
+   });
+}
+function clearForm(target) {
+      $("obj").value="";
+      $("name").value="";
+      $("val").value="";
+}
+
 window.addEventListener ?
   window.addEventListener('load', start, false) :
@@ -114 +117 @@
         &area("val","だ"),"\n",
       ],"\n",
-      [button(onClick=>"test()"),"OK"],[div(id=>"test"),"test"]
+      [button(onClick=>"exe(this)"),"OK"],
+      [button(onClick=>"clearForm(this)"),"Clear"],
+      [div(id=>"test"),"test"]
     ]]
   ]

lang/actionscript/todoshare/perl/Obj.pm

@@ -318 +318 @@
         return array($res);
     } elsif ($cmd->[0] eq 'MAKEREL') {
+        my $res=&exe( ["FINDREL",$cmd->[1],$cmd->[2],$cmd->[3]] );
+        if (@$res>0) {
+           return ["EXISTS"];
+        }
             return &exe(["INSERT",$relName, {
                obj => $cmd->[1],
@@ -326 +330 @@
             # ["FINDREL", obj , name ] 
             my $where={};
-            $where->{obj} = $cmd->[1] if ($cmd->[1] and $cmd->[1] ne &any);
-            $where->{name}= $cmd->[2] if ($cmd->[2] and $cmd->[2] ne &any);
-            $where->{val} = $cmd->[3] if ($cmd->[3] and $cmd->[3] ne &any);
+            $where->{obj} = $cmd->[1] if ($cmd->[1] and not &isAny($cmd->[1]));
+            $where->{name}= $cmd->[2] if ($cmd->[2] and not &isAny($cmd->[2]));
+            $where->{val} = $cmd->[3] if ($cmd->[3] and not &isAny($cmd->[3]));
             return &exe(["GET", {
                     from=> $relName,