[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/search.marc dictionary.pl,1.1,1.2
From: |
Henri-Damien LAURENT |
Subject: |
[Koha-cvs] CVS: koha/search.marc dictionary.pl,1.1,1.2 |
Date: |
Mon, 02 May 2005 08:40:06 -0700 |
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/search.marc dictionary.pl,1.1,1.2,
Henri-Damien LAURENT <=