Changeset 455 for server/trunk/web/lib/Sophie/Controller/User.pm

Timestamp:

07/10/12 17:09:39 (12 years ago)

Author:

nanardon

Message:

• add options to list stored variables

File:

• server/trunk/web/lib/Sophie/Controller/User.pm (modified) (1 diff)

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

@@ -54 +54 @@
 }
 
+sub list_user_data : XMLRPC {
+    my ( $self, $c, $user ) = @_;
+
+    return $c->stash->{xmlrpc} = [
+        $c->model('Base')->resultset('Users')->search(
+            { mail => $user, }
+        )->search_related('UsersData')->get_column('varname')->all
+    ];    
+}
+
+sub listdata : XMLRPC {
+    my ( $self, $c, $dataname ) = @_;
+
+    $c->user or return {};
+
+    return $c->forward('list_user_data', [ $c->user->mail || '', $dataname ]);
+}
 
 sub fetchdata : XMLRPC {