projekt kivitendo

sub auto_foreign_key_name

{

  my($self, $f_class, $current_name, $key_columns, $used_names) = @_;

  my $f_meta = $f_class->meta or return $current_name;

  my $package_name = SL::DB::Helper::Mappings::get_name_for_table($f_meta->table);

  my $name = $package_name || $current_name;

  if(keys %$key_columns == 1)

  {

    my($local_column, $foreign_column) = %$key_columns;

    # Try to lop off foreign column name.  Example:

    # my_foreign_object_id -> my_foreign_object

    if($local_column =~ s/_$foreign_column$//i)

    {

      $name = $local_column;

    }

    else

    {

      $name = $package_name || $current_name;

    }

  }

  # Avoid method name conflicts

  if($self->method_name_conflicts($name) || $used_names->{$name})

  {

    foreach my $s ('_obj', '_object')

    {

      # Try the name with a suffix appended

      unless($self->method_name_conflicts($name . $s) ||

             $used_names->{$name . $s})

      {

        return $name . $s;

      }

    }

    my $i = 1;

    # Give up and go with numbers...

    $i++  while($self->method_name_conflicts($name . $i) ||

                $used_names->{$name . $i});

    return $name . $i;

  }

  return $name;

}