Lines Matching refs:Param
46 my ( $Type, %Param ) = @_;
80 my ( $Self, %Param ) = @_;
84 if ( !$Param{$Argument} ) {
105 if ( $Object1 eq $Param{Object1} && $Object2 eq $Param{Object2} )
106 || ( $Object2 eq $Param{Object1} && $Object1 eq $Param{Object2} );
158 my ( $Self, %Param ) = @_;
162 if ( !$Param{$Argument} ) {
183 next POSSIBLELINK if $Param{Object} ne $Object1 && $Param{Object} ne $Object2;
186 if ( $Param{Object} eq $Object1 ) {
220 my ( $Self, %Param ) = @_;
330 my ( $Self, %Param ) = @_;
334 if ( !$Param{$Argument} ) {
344 if ( $Param{SourceObject} eq $Param{TargetObject} && $Param{SourceKey} eq $Param{TargetKey} ) {
357 $Param{ $Object . 'ID' } = $Self->ObjectLookup(
358 Name => $Param{$Object},
361 next OBJECT if $Param{ $Object . 'ID' };
373 Object1 => $Param{SourceObject},
374 Object2 => $Param{TargetObject},
378 if ( !$PossibleTypesList{ $Param{Type} } ) {
382 …"Not possible to create a '$Param{Type}' link between $Param{SourceObject} and $Param{TargetObject…
389 Name => $Param{State},
394 Name => $Param{Type},
395 UserID => $Param{UserID},
415 \$Param{SourceObjectID}, \$Param{SourceKey},
416 \$Param{TargetObjectID}, \$Param{TargetKey},
417 \$Param{TargetObjectID}, \$Param{TargetKey},
418 \$Param{SourceObjectID}, \$Param{SourceKey},
452 return 1 if $Existing{SourceObjectID} eq $Param{SourceObjectID}
453 && $Existing{SourceKey} eq $Param{SourceKey};
465 Object => $Param{SourceObject},
466 Key => $Param{SourceKey},
467 State => $Param{State},
468 UserID => $Param{UserID},
475 next OBJECT if $Object ne $Param{TargetObject};
485 next TYPE if !$Source->{ $Param{TargetKey} } && !$Target->{ $Param{TargetKey} };
490 Type2 => $Param{Type},
506 …my $BackendSourceObject = $Kernel::OM->Get( 'Kernel::System::LinkObject::' . $Param{SourceObject} …
511 …my $BackendTargetObject = $Kernel::OM->Get( 'Kernel::System::LinkObject::' . $Param{TargetObject} …
517 Key => $Param{SourceKey},
518 TargetObject => $Param{TargetObject},
519 TargetKey => $Param{TargetKey},
520 Type => $Param{Type},
521 State => $Param{State},
522 UserID => $Param{UserID},
527 Key => $Param{TargetKey},
528 SourceObject => $Param{SourceObject},
529 SourceKey => $Param{SourceKey},
530 Type => $Param{Type},
531 State => $Param{State},
532 UserID => $Param{UserID},
542 \$Param{SourceObjectID}, \$Param{SourceKey},
543 \$Param{TargetObjectID}, \$Param{TargetKey},
544 \$TypeID, \$StateID, \$Param{UserID},
554 . '::ObjectID' . $Param{ $Direction . 'ObjectID' }
564 Key => $Param{SourceKey},
565 TargetObject => $Param{TargetObject},
566 TargetKey => $Param{TargetKey},
567 Type => $Param{Type},
568 State => $Param{State},
569 UserID => $Param{UserID},
574 Key => $Param{TargetKey},
575 SourceObject => $Param{SourceObject},
576 SourceKey => $Param{SourceKey},
577 Type => $Param{Type},
578 State => $Param{State},
579 UserID => $Param{UserID},
586 SourceObject => $Param{SourceObject},
587 SourceKey => $Param{SourceKey},
588 TargetObject => $Param{TargetObject},
589 TargetKey => $Param{TargetKey},
590 Type => $Param{Type},
591 State => $Param{State},
593 UserID => $Param{UserID},
613 my ( $Self, %Param ) = @_;
617 if ( !$Param{$Argument} ) {
628 Name => $Param{State},
637 $DateTimeObject->Subtract( Seconds => $Param{Age} );
677 my ( $Self, %Param ) = @_;
681 if ( !$Param{$Argument} ) {
695 $Param{ $Object . 'ID' } = $Self->ObjectLookup(
696 Name => $Param{$Object},
699 next OBJECT if $Param{ $Object . 'ID' };
711 Name => $Param{Type},
712 UserID => $Param{UserID},
732 \$Param{Object1ID}, \$Param{Key1},
733 \$Param{Object2ID}, \$Param{Key2},
734 \$Param{Object2ID}, \$Param{Key2},
735 \$Param{Object1ID}, \$Param{Key1},
793 Type => $Param{Type},
795 UserID => $Param{UserID},
803 Type => $Param{Type},
805 UserID => $Param{UserID},
821 \$Param{Object1ID}, \$Param{Key1},
822 \$Param{Object2ID}, \$Param{Key2},
823 \$Param{Object2ID}, \$Param{Key2},
824 \$Param{Object1ID}, \$Param{Key1},
838 . '::ObjectID' . $Param{ 'Object' . $DirectionNumber . 'ID' }
853 Type => $Param{Type},
855 UserID => $Param{UserID},
863 Type => $Param{Type},
865 UserID => $Param{UserID},
876 Type => $Param{Type},
879 UserID => $Param{UserID},
898 my ( $Self, %Param ) = @_;
902 if ( !$Param{$Argument} ) {
922 Object => $Param{Object},
923 Key => $Param{Key},
925 UserID => $Param{UserID},
947 Object1 => $Param{Object},
948 Key1 => $Param{Key},
952 UserID => $Param{UserID},
1011 my ( $Self, %Param ) = @_;
1015 if ( !$Param{$Argument} ) {
1026 Name => $Param{Object},
1032 Name => $Param{State},
1037 if ( $Param{Type} ) {
1041 Name => $Param{Type},
1042 UserID => $Param{UserID},
1049 my $Direction = $Param{Direction} || 'Both';
1054 Key => $Param{Key},
1062 Key => $Param{Key},
1080 next OBJECTID if $Param{Object2} && $Param{Object2} ne $ObjectName;
1199 my ( $Self, %Param ) = @_;
1203 if ( !$Param{$Argument} ) {
1213 my $LinkList = $Self->LinkList(%Param);
1243 ref $Param{ObjectParameters} eq 'HASH'
1244 && ref $Param{ObjectParameters}->{$Object} eq 'HASH'
1247 %ObjectParameters = %{ $Param{ObjectParameters}->{$Object} };
1253 UserID => $Param{UserID},
1316 my ( $Self, %Param ) = @_;
1320 if ( !$Param{$Argument} ) {
1331 %Param,
1332 Object => $Param{Object1},
1333 Key => $Param{Key1},
1341 my $TypeList = $LinkList->{ $Param{Object2} };
1389 my ( $Self, %Param ) = @_;
1393 if ( !$Param{$Argument} ) {
1404 %Param,
1405 Object => $Param{Object1},
1406 Key => $Param{Key1},
1414 my $TypeList = $LinkList->{ $Param{Object2} };
1453 my ( $Self, %Param ) = @_;
1456 if ( !$Param{ObjectID} && !$Param{Name} ) {
1464 if ( $Param{ObjectID} ) {
1467 my $CacheKey = 'ObjectLookup::ObjectID::' . $Param{ObjectID};
1483 Bind => [ \$Param{ObjectID} ],
1497 Message => "Link object id '$Param{ObjectID}' not found in the database!",
1515 my $CacheKey = 'ObjectLookup::Name::' . $Param{Name};
1537 Bind => [ \$Param{Name} ],
1550 StringRef => \$Param{Name},
1554 if ( !$Param{Name} || $Param{Name} =~ m{ :: }xms || $Param{Name} =~ m{ \s }xms ) {
1557 Message => "Invalid object name '$Param{Name}' is given!",
1567 Bind => [ \$Param{Name} ],
1602 my ( $Self, %Param ) = @_;
1605 if ( !$Param{TypeID} && !$Param{Name} ) {
1614 if ( !$Param{UserID} ) {
1622 if ( $Param{TypeID} ) {
1625 my $CacheKey = 'TypeLookup::TypeID::' . $Param{TypeID};
1638 Bind => [ \$Param{TypeID} ],
1652 Message => "Link type id '$Param{TypeID}' not found in the database!",
1674 StringRef => \$Param{Name},
1678 my $CacheKey = 'TypeLookup::Name::' . $Param{Name};
1696 Bind => [ \$Param{Name} ],
1708 if ( !$Param{Name} || $Param{Name} =~ m{ :: }xms || $Param{Name} =~ m{ \s }xms ) {
1711 Message => "Invalid type name '$Param{Name}' is given!",
1722 Bind => [ \$Param{Name}, \$Param{UserID}, \$Param{UserID} ],
1730 Message => "Link type '$Param{Name}' not found in the database!",
1769 my ( $Self, %Param ) = @_;
1773 if ( !$Param{$Argument} ) {
1783 my $CacheKey = 'TypeGet::TypeID::' . $Param{TypeID};
1799 Bind => [ \$Param{TypeID} ],
1887 my ( $Self, %Param ) = @_;
1951 my ( $Self, %Param ) = @_;
2037 my ( $Self, %Param ) = @_;
2041 if ( !$Param{$Argument} ) {
2059 return if $TypeList{ $Param{Type1} } && $TypeList{ $Param{Type2} };
2083 my ( $Self, %Param ) = @_;
2086 if ( !$Param{StateID} && !$Param{Name} ) {
2094 if ( $Param{StateID} ) {
2097 my $CacheKey = 'StateLookup::StateID::' . $Param{StateID};
2113 Bind => [ \$Param{StateID} ],
2127 Message => "Link state id '$Param{StateID}' not found in the database!",
2145 my $CacheKey = 'StateLookup::Name::' . $Param{Name};
2161 Bind => [ \$Param{Name} ],
2175 Message => "Link state '$Param{Name}' not found in the database!",
2209 my ( $Self, %Param ) = @_;
2212 if ( !defined $Param{Valid} ) {
2213 $Param{Valid} = 1;
2218 if ( $Param{Valid} ) {
2256 my ( $Self, %Param ) = @_;
2260 if ( !$Param{$Argument} ) {
2270 my $BackendObject = $Kernel::OM->Get( 'Kernel::System::LinkObject::' . $Param{Object} );
2276 %Param,
2299 my ( $Self, %Param ) = @_;
2303 if ( !$Param{$Argument} ) {
2313 my $BackendObject = $Kernel::OM->Get( 'Kernel::System::LinkObject::' . $Param{Object} );
2319 %Param,
2353 my ( $Self, %Param ) = @_;
2357 if ( !$Param{$Argument} ) {
2367 my $BackendObject = $Kernel::OM->Get( 'Kernel::System::LinkObject::' . $Param{Object} );
2373 %Param,
2377 $ObjectList{ $Param{Object} } = $SearchList;
2383 my ( $Self, %Param ) = @_;
2387 if ( !$Param{$Argument} ) {
2399 . '::Direction' . $Param{Direction}
2400 . '::ObjectID' . $Param{ObjectID}
2401 . '::StateID' . $Param{StateID};
2415 my @Bind = ( \$Param{ObjectID}, \$Param{StateID} );
2419 if ( $Param{Direction} eq 'Source' ) {
2465 next LINK if $Link->{RequestKey} ne $Param{Key};
2466 next LINK if $Param{TypeID} && $Link->{TypeID} ne $Param{TypeID};