View | Details | Raw Unified | Return to bug 16942
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +9 lines)
Lines 1485-1491 sub _get_tt_params { Link Here
1485
                my $id = ref $ref eq 'HASH' ? $tables->{$table}->{$pk} : $tables->{$table};
1485
                my $id = ref $ref eq 'HASH' ? $tables->{$table}->{$pk} : $tables->{$table};
1486
                my $object;
1486
                my $object;
1487
                if ( $fk ) { # Using a foreign key for lookup
1487
                if ( $fk ) { # Using a foreign key for lookup
1488
                    $object = $module->search( { $fk => $id } )->next();
1488
                    if ( ref( $fk ) eq 'ARRAY' ) { # Foreign key is multi-column
1489
                        my $search;
1490
                        foreach my $key ( @$fk ) {
1491
                            $search->{$key} = $id->{$key};
1492
                        }
1493
                        $object = $module->search( $search )->next();
1494
                    } else { # Foreign key is single column
1495
                        $object = $module->search( { $fk => $id } )->next();
1496
                    }
1489
                } else { # using the table's primary key for lookup
1497
                } else { # using the table's primary key for lookup
1490
                    $object = $module->find($id);
1498
                    $object = $module->find($id);
1491
                }
1499
                }
1492
- 

Return to bug 16942