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

Timestamp:

07/27/08 00:02:11 (6 months ago)

Author:

hoge1e3

Message:

 

Files:

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

lang/actionscript/todoshare/index.cgi

@@ -8 +8 @@
 use Html;
 use HtmlTag;
+use Tmpl;
+use Obj;
 header;
+my $id=$ENV{"QUERY_STRING"};
+$id =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
+if ($id) {&disp($id);exit;}
 
 &Html::p ([html,
@@ -16 +21 @@
       [h1,"メニュー"],
        link("todo.cgi","Todo"),
+       link("todoJS.cgi","Todo(JS)"),
        link("nohada.cgi","のはだ"),
        link("swkText.cgi","SWK(Text Mode)"),
@@ -36 +42 @@
 }
 
+sub disp {
+  &Tmpl::page({title=>$id},[span,
+     [h2,"Infomation about $id"],
+     [table,sub {
+       my $p=shift;
+       my $res=&Obj::exe(["FINDREL",$id,any,any]);
+       for (@$res) {
+          $p->p([&tr,
+                [td,$_->{name}] ,
+                [td,&Tmpl::link2obj($_->{val})]
+             ]);
+       }
+     }]
+   ]);
+  
+  
+}