Changeset 16711 for lang/actionscript

Timestamp:

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

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• index.cgi (modified) (2 diffs)
• js/jsonScr.js (added)
• jsonDB.html (modified) (1 diff)
• perl/Obj.pm (modified) (2 diffs)
• test/scriptTest.html (added)
• test/tagTest.html (added)

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"]
+                ]
              ]);
        }

lang/actionscript/todoshare/jsonDB.html

@@ -39 +39 @@
 <BR>
 <textarea rows=10 cols=40 name=cmd>
+["DELREL","obj://gorira","type","animal"]
 ["GET",{ "from":"relation",
   "where": {"obj":"obj://gorira"}}

lang/actionscript/todoshare/perl/Obj.pm

@@ -91 +91 @@
             $sth->finish;
         return array($res);             
+    } elsif ($cmd->[0] eq "DELETE") {
+        # ["DELETE",$from ,$where]
+        my $from = $cmd->[1];
+        my $where=&where($cmd->[2]);
+        my $query=qq(delete from ).&escapeSymbol($from)." $where";
         
+        my $sth=$db->prepare($query);
+            my $res=$sth->execute;
+                &log($cmd,$query);
+            if ($res) { 
+              $res=["OK",$query];
+            } else { 
+              die ($query."- ".$sth->errstr);
+            }
+            $sth->finish;
+        return array($res);                          
+                
         } elsif ($cmd->[0] eq 'POST' or $cmd->[0] eq 'PUT' ) {
             my $data=$cmd->[1];
@@ -330 +346 @@
                role=> &Session::getRole
             }]);
+        } elsif ($cmd->[0] eq 'DELREL') {
+            # ["DELREL" , obj, name, val]
+            my $where={};
+            $where->{obj} = $cmd->[1];
+            $where->{name}= $cmd->[2];
+            $where->{val} = $cmd->[3];
+            $where->{role}=&Session::getRole;
+            return &exe(["DELETE",$relName,$where]);
         } elsif ($cmd->[0] eq 'FINDREL') {
             # ["FINDREL", obj , name ]