Changeset 2038
- Timestamp:
- 02/29/08 08:35:56 (3 months ago)
- Files:
-
- Swishetest/trunk/DoSearch.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Swishetest/trunk/DoSearch.pm
r1965 r2038 51 51 while ( my $result = $results->NextResult() ) { 52 52 my %h; 53 for my $p (@props) { $h{$p} = $result->Property($p); } 53 #for my $p (@props) { $h{$p} = $result->Property($p); } 54 for my $p (@props) { if($p eq "swishdocpath") { $h{$p} = $result->Property($p);} } 54 55 push(@r, \%h); 56 #push( @r, {swishdocpath=>$result->Property( "swishdocpath" ); 55 57 } 56 58 }; # end eval{}
