Changeset 1928 for trunk

Timestamp:

01/12/17 15:17:20 (7 years ago)

Author:

nanardon

Message:

Add RenameAlias? function

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -460 +460 @@
 }
 
+=head2 RenameAlias($otype, $name, $to)
+
+Rename an object alias
+
+=cut
+
+sub RenameAlias {
+    my ($self, $otype, $name, $to) = @_;
+
+    my $pclass = $self->_load_obj_class($otype) or return;
+
+    my $obj = $self->GetAlias($otype, $name) or do {
+        $self->log('Cannot get alias %s/%s for removal', $otype, $name);
+        return;
+    };
+
+    my $sth = $self->db->prepare_cached(sprintf(
+        'UPDATE %s SET %s = ? WHERE %s = ?',
+        $self->db->quote_identifier($pclass->_key_field),
+        $self->db->quote_identifier($pclass->_object_table),
+        $self->db->quote_identifier($pclass->_key_field),
+    ));
+
+    my $res = $sth->execute($to, $name);
+
+    return $res;
+}
+
 =head2 RemoveAlias($otype, $name, $for)