Changeset 67

Timestamp:

12/04/10 02:58:03 (14 years ago)

Author:

nanardon

Message:

• add udapte_data functions (merge new value with previously registered one)

File:

• server/trunk/web/lib/Sophie/Controller/User.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Controller/User.pm

@@ -50 +50 @@
     my ( $self, $c, $dataname ) = @_;
 
+    $c->user or return {};
+
     return $c->forward('fetch_user_data', [ $c->user->mail || '', $dataname ]);
 }
@@ -65 +67 @@
     });
     $c->model('Base')->storage->dbh->commit;
+}
+
+sub update_data : XMLRPC {
+    my ( $self, $c, $user, $dataname, $data ) = @_;
+    $c->forward('update_user_data', [ $c->user->mail || '', $dataname, $data ]);
+}
+
+sub update_user_data : Private {
+    my ( $self, $c, $user, $dataname, $data ) = @_;
+
+    my $prev_data = $c->forward('fetch_user_data',
+        [ $user || '', $dataname ]
+    ) || {};
+
+    foreach (keys %$data) {
+        $prev_data->{$_} = $data->{$_};
+    }
+
+    $c->forward('set_user_data', [ $user, $dataname, $prev_data ]);
 }