/[Semantic-Engine]/EPrints/search.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /EPrints/search.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Fri Jun 29 15:29:55 2007 UTC revision 11 by dpavlin, Fri Jun 29 16:58:42 2007 UTC
# Line 120  warn "display results = ", dump( @displa Line 120  warn "display results = ", dump( @displa
120          print $semantic->paginate( "?query=$query;similar=$similar", $start, scalar keys %$results, $RESULTS_TO_DISPLAY);          print $semantic->paginate( "?query=$query;similar=$similar", $start, scalar keys %$results, $RESULTS_TO_DISPLAY);
121          foreach my $id ( @display_results ){          foreach my $id ( @display_results ){
122                  EPrints->id( $id );                  EPrints->id( $id );
123          print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>";                  print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>";
124                  print "$id <em>", sprintf("%.2f",$results->{$id}), "</em> <a href=\"?similar=$id\">similar</a></p>\n";                  print "| score: <em>", sprintf("%.2f",$results->{$id}), "</em> | id: $id | <a href=\"?similar=$id\">similar</a> | ";
125          print "<p>";                  my ($type,$uri) = split(/;/, EPrints->lookup( 'fileinfo', 'archive' ));
126                    print qq|<a href="$uri">$type</a>|;
127                    print "</p>\n";
128                    print "<p>";
129  #               print $semantic->summarize($id);  #               print $semantic->summarize($id);
130                  print "</p><p>Keywords: ", EPrints->lookup('keywords'), "</p><p>";                  print "</p><p>Keywords: ", EPrints->lookup('keywords'), "</p><p>";
131                  print "<small>", EPrints->lookup('abstract'), "</small>";                  print "<small>", EPrints->lookup('abstract'), "</small>";
132                  print "</p>\n";                  print "</p>\n";
133          $i++;                  $i++;
134          }          }
135    
136  }        }      
Legend:
Removed from v.9  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26