[Koha-devel] Pretty OPAC biblio record : patch

[Rob Levandowski]

When I started playing around with Koha 1.2.2, I found that the biblio 
record display in the OPAC catalogue search detail wasn't pretty or 
functional enough for me.

Below are diffs for the changes I made to detail.pl.  They make the 
following changes:

* the Author becomes a link to search.pl with the appropriate argument.
* the Additional Author field becomes an unordered list, with each name 
as a link to search.pl.  A substitution removes any trailing qualifiers 
commonly used by the Library of Congress for motion picture 
authorship -- that is, if "BROOKS, MEL, DIRECTION, PRODUCTION, CAST" is 
an additional author on a movie, the titles are removed so the search is 
for "BROOKS, MEL."
* the Subject field becomes an ordered list, with each subject as a link 
to search.pl.  I'll probably modify this some more to recognize " -- " 
and the em dash (%97) as hierarchical separators, and divide up the 
link, so that "PROGRAMMING -- LANGUAGES" has two links: the word 
"programming" as a search for that word, and the word "languages" as a 
search for "programming -- languages."

These diffs are against the version in intranet-cgi.  That version can, 
of course, be used in the opac-cgi location too.


10a11
> use URI::Escape;
120a122,146
>  }
>  if ($dat->{'author'} ne ''){
>   print "<B>Author:</B> <A HREF=\"search.pl?author=";
>   my $autlink=$dat->{'author'};
>   $autlink =~ s/(, DIRECTION|, WRITING|, CAST|, PRODUCTION)//ig;
>   my $htautlink = uri_escape($autlink);
>   print "$htautlink\&type=opac\">$dat->{'author'}</A><BR>";
>  }
>  #Additional Author: <br>
>  if ($additional ne ''){
>   my $adstr = $additional;
>   my @adar = split /\s*\|/, $adstr;
>   print "<B>Additional Author";
>   if(scalar @adar > 1){ print "s"; }
>   print ": </B><UL>";
>   my $autitem;
>   foreach $autitem (@adar) {
>       print "<LI>";
>       print "<A HREF=\"search.pl?author=";
>       my $autlink = $autitem;
>       $autlink =~ s/(, DIRECTION|, WRITING|, CAST|, PRODUCTION)//ig;
>       my $htitem = uri_escape($autlink);
>       print "$htitem\&type=opac\">$autitem</A>";
>   }
>   print "</UL>";
122,125c148
< if ($dat->{'author'} ne ''){
<   print "<b>Author:</b> $dat->{'author'}<br>";
< }
< #Additional Author: <br>
---
> print "\n";
130c153,166
<   print "<b>Subject:</b> $dat->{'subject'}<br>";
---
>   my $subj = $dat->{'subject'};
>   $subj =~ s/^\s*\|\s*//;
>   my @subar = split /\|\s+/, $subj;
>   print "<B>Subject:</B> <OL>";
>   my $subitem;
>   SUBLOOP: foreach $subitem (@subar) {
>       print "<LI>";
>       print "<A HREF=\"subjectsearch.pl?subject=";
>       $subitem =~ s/\s*$//;
>       my $htitem = uri_escape($subitem);
>       print "$htitem\&type=opac\">$subitem</A>";
>   }
>   print "</OL>\n";
>



--
Rob Levandowski
address@hidden