[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 => address@hidden,
                                         catresult=> address@hidden,
***************
*** 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