Changeset 16711 for lang/actionscript/todoshare/perl/Obj.pm

Timestamp:

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

Author:

hoge1e3

Message:

 

Files:

• lang/actionscript/todoshare/perl/Obj.pm (modified) (2 diffs)

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 ]