/[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 4 by dpavlin, Fri Jun 29 09:52:53 2007 UTC revision 5 by dpavlin, Fri Jun 29 10:01:31 2007 UTC
# Line 22  $abs_path =~ s!/[^/]*$!/!;  #!fix-vim Line 22  $abs_path =~ s!/[^/]*$!/!;  #!fix-vim
22  #############################################################  #############################################################
23  my $COLLECTION = 'EPrints';  my $COLLECTION = 'EPrints';
24  my ( @TERMS, @RESULTS );  my ( @TERMS, @RESULTS );
25  my ( $RESULTS_TO_DISPLAY, $TERMS_TO_DISPLAY ) = ( 10, 10 );  my ( $RESULTS_TO_DISPLAY, $TERMS_TO_DISPLAY ) = ( 20, 20 );
26  #############################################################  #############################################################
27    
28    
# Line 33  my $cgi = new CGI; Line 33  my $cgi = new CGI;
33  my $start = $cgi->param( 'start' ) || 0;  my $start = $cgi->param( 'start' ) || 0;
34  my $query = $cgi->param( 'query' ) || '';  my $query = $cgi->param( 'query' ) || '';
35  my $similar = $cgi->param( 'similar' ) || '';  my $similar = $cgi->param( 'similar' ) || '';
36    my $slogovi = $cgi->param( 'slogovi' );
37    
38  my $charset='iso-8859-2';  my $charset='iso-8859-2';
39    
40  my $full_query = "$query " . join(" ", EPrints::slogovi( $query ));  my $full_query = $query;
41    $full_query .= " " . join(" ", EPrints::slogovi( $query )) if ($slogovi);
42    
43  ##############################  ##############################
44  #       Start the HTML output  #       Start the HTML output
# Line 55  print qq|<?xml version="1.0" encoding="$ Line 57  print qq|<?xml version="1.0" encoding="$
57      <p>      <p>
58        <input type="text" name="query" value="$query" />        <input type="text" name="query" value="$query" />
59        <input type="submit" />        <input type="submit" />
60              |, $cgi->checkbox( -name => 'slogovi' ), qq|
61      </p>\n|;      </p>\n|;
62    
63    
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26