Changeset 467

Timestamp:

03/18/14 17:17:47 (10 years ago)

Author:

nanardon

Message:

• Commit changes after submitting metapath
• Dump / Restore take data part or matapath into account

File:

• web/lib/Sophie/Controller/Admin.pm (modified) (4 diffs)

web/lib/Sophie/Controller/Admin.pm

@@ -293 +293 @@
         ->search({}, 
             { 
-                'select' => [ qw(path type) ], 
-                'as'     => [ qw(path type) ] ,
+                'select' => [ qw(path type data) ], 
+                'as'     => [ qw(path type data) ] ,
             }
         )->all ];
@@ -302 +302 @@
 
 sub add_meta_path : XMLRPC {
-    my ($self, $c, $distrib, $meta, $type) = @_;
+    my ($self, $c, $distrib, $meta, $type, $data) = @_;
 
     my ($dist) = 
@@ -318 +318 @@
             type => $type,
             path => $meta,
+            data => $data,
         },
         { key => 'upath' },
     )) {
+        $c->model('Base')->storage->dbh->commit;
         return $c->stash->{xmlrpc} = 'OK';
     } else {
@@ -381 +383 @@
     }
     foreach my $meta (@{ $ref->{metapath} || []}) {
+        warn $meta;
         $c->forward('add_meta_path', 
-            [ $ref->{distrib}, $meta->{path}, $meta->{type} ]);
+            [ $ref->{distrib}, $meta->{path}, $meta->{type}, $meta->{data} ]);
     }