[Koha-devel] Pretty OPAC biblio record : patch

7 Aug 2002

      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
robl@macwhiz.com