[Koha-cvs] CVS: koha/search.marc dictionary.pl,1.4,1.5

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/search.marc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14704/search.marc

Modified Files:
	dictionary.pl 
Log Message:
Dictionary feature implemented

Index: dictionary.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/dictionary.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** dictionary.pl	3 May 2005 15:00:32 -0000	1.4
--- dictionary.pl	4 May 2005 12:46:27 -0000	1.5
***************
*** 39,43 ****
  #my $kohafield = $input->param('kohafield');
  my @search = $input->param('search');
! #warn " ".$search[0];
  my $op=$input->param('op');
  if (($search[0]) and not ($op eq 'do_search')){
--- 39,45 ----
  #my $kohafield = $input->param('kohafield');
  my @search = $input->param('search');
! warn " ".$search[0];
! my $index = $input->param('index');
! warn " index: ".$index;
  my $op=$input->param('op');
  if (($search[0]) and not ($op eq 'do_search')){
***************
*** 192,195 ****
--- 194,198 ----
  		$to = (($startfrom+1)*$resultsperpage);
  	}
+ 	$template->param(anindex => $input->param('index'));
  	$template->param(result => \@results,
  					 catresult=> \@catresults,
***************
*** 220,225 ****
   				flagsrequired => {catalogue => 1},
   				debug => 1,
-  				search => $search[0],
-  				marclist =>$field,
   				});
  #warn "type : $type";
--- 223,226 ----
***************
*** 228,232 ****
  $template->param(search => $search[0],
  					marclist =>$field,
! 					type=>$type);
  
  # Print the page
--- 229,234 ----
  $template->param(search => $search[0],
  					marclist =>$field,
! 					type=>$type,
! 					anindex => $input->param('index'));
  
  # Print the page