Changeset 104

Timestamp:

12/09/10 23:58:25 (13 years ago)

Author:

nanardon

Message:

• add admin/replace_path function

Location:

server/trunk/web/lib/Sophie

Files:

• Base/Result/Paths.pm (modified) (1 diff)
• Controller/Admin.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Base/Result/Paths.pm

@@ -8 +8 @@
 __PACKAGE__->add_columns(qw/d_path_key path added updated/);
 __PACKAGE__->set_primary_key('d_path_key');
+__PACKAGE__->add_unique_constraint('path' => [ 'path' ]);
 #__PACKAGE__->belongs_to(media => 'Sophie::Base::Result::Medias', 'media');
 __PACKAGE__->has_many(MediasPaths => 'Sophie::Base::Result::MediasPaths', 'd_path');

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

@@ -177 +177 @@
 }
 
+sub replace_path : XMLRPC {
+    my ($self, $c, $path, $newpath) = @_;
+
+    my $dpath = $c->model('Base::Paths')->find({
+        path => $path,
+    }) or do {
+        return $c->stash->{xmlrpc} = 'Path not found';
+    };
+
+    $newpath =~ s/\/*$//;
+
+    $dpath->update(
+        {
+            updated => undef,
+            path => $newpath,
+        }
+    ) and $c->model('Base')->storage->dbh->commit;
+    return $c->stash->{xmlrpc} = 'OK';
+}
+
 sub dump_distrib : XMLRPC {
     my ($self, $c, $distribution, $version, $arch) = @_;