Changeset 16091

Timestamp:

07/22/08 21:17:12 (5 years ago)

Author:

hoge1e3

Message:

 

Files:

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

lang/actionscript/todoshare/perl/Obj.pm

@@ -74 +74 @@
           my $key=$_;
           push @sets, (
-            &escapeSymbol($key)."=" &escapeLiteral($set->{$key})
+            &escapeSymbol($key)."=".&escapeLiteral($set->{$key})
           );        
         }
         $query.=join ",",@sets;
-        $query.=" where ";
-        for (keys 
+        $query.=&where($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' ) {
@@ -143 +153 @@
                 # update
                 my $objectID=$properties->{$idNameOvr};
-                my $fields=filter (keys $properties),sub {$_[0] ne $idNameOvr};
+                my $fields=filter ([keys %$properties],sub {$_[0] ne $idNameOvr});
                 for (@$fields) {
-                   return &exe(["UPDATE",$relName,
-                          {value=>$properties->{$_}},
+                   &exe(["UPDATE",$relName,
+                          {val=>$properties->{$_}},
                           {obj=>$objectID, name=>$_}
                    ]);
                 }
-            } else {
-                # insert
-                    my $objectID=&newID;
-                    my $values=&values2($objectID, $properties);
-                    $properties->{$idNameOvr}=$objectID;
-                    my $query =qq(
+                return ["OK"];
+            }
+            # insert
+                my $objectID=&newID;
+                my $values=&values2($objectID, $properties);
+                $properties->{$idNameOvr}=$objectID;
+                my $query =qq(
                       insert into @{[&escapeSymbol($relName)]} $values ;
-                    );
-                }
+                );
                 my $sth=$db->prepare($query);
             my $res=$sth->execute;