Changeset 16711 for lang/actionscript/todoshare/index.cgi

Timestamp:

07/27/08 18:21:58 (6 months ago)

Author:

hoge1e3

Message:

 

Files:

• lang/actionscript/todoshare/index.cgi (modified) (2 diffs)

lang/actionscript/todoshare/index.cgi

@@ -10 +10 @@
 use Tmpl;
 use Obj;
+use JSON2;
 header;
 my $id=$ENV{"QUERY_STRING"};
@@ -44 +45 @@
 sub disp {
   &Tmpl::page({title=>$id},[span,
-     [h2,"Infomation about $id"],
-     [table,sub {
+     [strong,img(src=>"img/obj.png"),"$id"],
+     [table(id=>$id),sub {
        my $p=shift;
        my $res=&Obj::exe(["FINDREL",$id,any,any]);
        for (@$res) {
-          $p->p([&tr,
+          my $action=["PROGN",
+              ["DELREL", $_->{obj},$_->{name},$_->{val}],
+              ["RMELEM", $_->{t} ]
+          ];
+          $p->p([&tr(id=>$_->{t}),
                 [td,$_->{name}] ,
-                [td,&Tmpl::link2obj($_->{val})]
+                [td,&Tmpl::link2obj($_->{val})],
+                [td,
+                   [button(id=>,
+                           onClick=>qq(alert(this.id)) 
+                          ) ,"Forget"]
+                ]
              ]);
        }