|
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 |
- |
|
|