Changeset 1928 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 01/12/17 15:17:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r1911 r1928 460 460 } 461 461 462 =head2 RenameAlias($otype, $name, $to) 463 464 Rename an object alias 465 466 =cut 467 468 sub RenameAlias { 469 my ($self, $otype, $name, $to) = @_; 470 471 my $pclass = $self->_load_obj_class($otype) or return; 472 473 my $obj = $self->GetAlias($otype, $name) or do { 474 $self->log('Cannot get alias %s/%s for removal', $otype, $name); 475 return; 476 }; 477 478 my $sth = $self->db->prepare_cached(sprintf( 479 'UPDATE %s SET %s = ? WHERE %s = ?', 480 $self->db->quote_identifier($pclass->_key_field), 481 $self->db->quote_identifier($pclass->_object_table), 482 $self->db->quote_identifier($pclass->_key_field), 483 )); 484 485 my $res = $sth->execute($to, $name); 486 487 return $res; 488 } 489 462 490 =head2 RemoveAlias($otype, $name, $for) 463 491
Note: See TracChangeset
for help on using the changeset viewer.