Changeset 16712

Timestamp:

07/27/08 19:01:40 (6 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• index.cgi (modified) (2 diffs)
• perl/Tmpl.pm (modified) (1 diff)

lang/actionscript/todoshare/index.cgi

@@ -44 +44 @@
 
 sub disp {
-  &Tmpl::page({title=>$id},[span,
+  my $scr=<<'EOF';
+j=new JsonScript();
+j.registerAction("DELREL",function (obj,name,val,td,table) {
+   print("DE "+ obj+ " "+name+" "+val+" "+td+" "+table );  
+   $(table).firstChild/*tbody*/.removeChild($(td)); 
+});
+EOF
+  &Tmpl::page({title=>$id,script=>$scr},[span,
      [strong,img(src=>"img/obj.png"),"$id"],
      [table(id=>$id),sub {
@@ -50 +57 @@
        my $res=&Obj::exe(["FINDREL",$id,any,any]);
        for (@$res) {
-          my $action=["PROGN",
-              ["DELREL", $_->{obj},$_->{name},$_->{val}],
-              ["RMELEM", $_->{t} ]
-          ];
+          my $action=toJSON(
+             ["DELREL", $_->{obj},$_->{name},$_->{val}, $_->{t},$id ]
+          );
           $p->p([&tr(id=>$_->{t}),
                 [td,$_->{name}] ,
                 [td,&Tmpl::link2obj($_->{val})],
                 [td,
-                   [button(id=>,
-                           onClick=>qq(alert(this.id)) 
+                   [button(
+                           onClick=>qq(j.exec($action)) 
                           ) ,"Forget"]
                 ]

lang/actionscript/todoshare/perl/Tmpl.pm

@@ -19 +19 @@
       script(src=>"suggest.js"),
       script(src=>"js/common.js"),
+      script(src=>"js/jsonScr.js"),
       [script,$opt->{script}],
       link(rel=>"Stylesheet",type=>"text/css",href=>$opt->{css}),