Lines 47-59
sub get_component_part_query {
Link Here
|
47 |
|
47 |
|
48 |
if ( !defined($pf003) ) { |
48 |
if ( !defined($pf003) ) { |
49 |
# search for 773$w='Host001' |
49 |
# search for 773$w='Host001' |
50 |
$searchstr = "rcn=\"" . $pf001->data() . "\""; |
50 |
$searchstr = "rcn:" . $pf001->data(); |
51 |
} |
51 |
} |
52 |
else { |
52 |
else { |
53 |
$searchstr = "("; |
53 |
$searchstr = "("; |
54 |
# search for (773$w='Host001' and 003='Host003') or 773$w='Host003 Host001') |
54 |
# search for (773$w='Host001' and 003='Host003') or 773$w='Host003 Host001') |
55 |
$searchstr .= "(rcn=\"" . $pf001->data() . "\" AND cni=\"" . $pf003->data() . "\")"; |
55 |
$searchstr .= "(rcn:" . $pf001->data() . " AND cni:" . $pf003->data() . ")"; |
56 |
$searchstr .= " OR rcn=\"" . $pf003->data() . " " . $pf001->data() . "\""; |
56 |
$searchstr .= " OR rcn:" . $pf003->data() . " " . $pf001->data(); |
57 |
$searchstr .= ")"; |
57 |
$searchstr .= ")"; |
58 |
} |
58 |
} |
59 |
|
59 |
|
Lines 66-71
sub get_component_part_query {
Link Here
|
66 |
$cleaned_title =~ tr|/||; |
66 |
$cleaned_title =~ tr|/||; |
67 |
$searchstr = "Host-item:($cleaned_title)"; |
67 |
$searchstr = "Host-item:($cleaned_title)"; |
68 |
} |
68 |
} |
|
|
69 |
|
70 |
return $searchstr; |
69 |
} |
71 |
} |
70 |
|
72 |
|
71 |
1; |
73 |
1; |
72 |
- |
|
|