[Koha-cvs] CVS: koha/search.marc dictionary.pl,1.1,1.2

[Henri-Damien LAURENT]

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

Modified Files:
        dictionary.pl 
Log Message:
Improving output:
Should be a good start point for choosing what to display.

Index: dictionary.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/dictionary.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** dictionary.pl       2 May 2005 09:25:13 -0000       1.1
--- dictionary.pl       2 May 2005 15:39:24 -0000       1.2
***************
*** 93,97 ****
                                                                                
address@hidden, address@hidden,  address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$orderby);
!       
        my $strsth="Select distinct authtypecode from marc_subfield_structure 
where ";
        my $strtagfields="tagfield in (";
--- 93,111 ----
                                                                                
address@hidden, address@hidden,  address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$orderby);
!       my %seen = ();
! 
!       foreach my $item (@$results) {
!               my $display;
!               $display="author" if ($field=~/author/);
!               $display="title" if ($field=~/title/);
!               $display="subject" if ($field=~/subject/);
!               $display="publishercode" if ($field=~/publisher/);
!           $seen{$item->{$display}}++;
!       }
!       my @catresults;
!       foreach my $name (keys %seen){
!               push @catresults, { value => $name , count => $seen{$name}}
!       }
! 
        my $strsth="Select distinct authtypecode from marc_subfield_structure 
where ";
        my $strtagfields="tagfield in (";
***************
*** 173,176 ****
--- 187,191 ----
        }
        $template->param(result => $results,
+                                        catresult=> address@hidden,
                                                search => $search[0],
                                                marclist =>$field,