[Koha-cvs] koha/C4 AuthoritiesMarc.pm [rel_2_2]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <kados>  06/08/02 23:43:51

Modified files:
        C4             : AuthoritiesMarc.pm 

Log message:
        partial fix to MARC21 authorities headings display

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/AuthoritiesMarc.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.21&r2=1.9.2.22

Patches:
Index: AuthoritiesMarc.pm
===================================================================
RCS file: /sources/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.9.2.21
retrieving revision 1.9.2.22
diff -u -b -r1.9.2.21 -r1.9.2.22
--- AuthoritiesMarc.pm  2 Aug 2006 10:17:09 -0000       1.9.2.21
+++ AuthoritiesMarc.pm  2 Aug 2006 23:43:51 -0000       1.9.2.22
@@ -206,7 +206,6 @@
                     if ($tag eq '001') {
                         $reported_tag.='$3'.$field->data();
                     }
-
                                } else {
                                        my @subf = $field->subfields;
                                        for my $i (0..$#subf) {
@@ -224,7 +223,7 @@
                        $summary =~ s/\[(.*?)]//g;
                        $summary =~ s/\n/<br>/g;
                } else {
-                       my $heading; # = $authref->{summary};
+                       my $heading; 
                        my $altheading;
                        my $seeheading;
                        my $see;
@@ -285,14 +284,15 @@
                                } #See From
                                foreach my $field ($record->field('4..')) {
                                        $seeheading.= 
"&nbsp;&nbsp;&nbsp;".$field->as_string()."<br />";
-                                       $seeheading.= 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>see:</i> ".$seeheading."<br />";  
+                                       $seeheading.= 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>see:</i> ".$heading."<br />";     
                                } #See Also
                                foreach my $field ($record->field('5..')) {
                                        $altheading.= 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>see also:</i> 
".$field->as_string()."<br />";     
                                        $altheading.= 
"&nbsp;&nbsp;&nbsp;".$field->as_string()."<br />";
-                                       $altheading.= 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>see also:</i> ".$altheading."<br />";
+                                       $altheading.= 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>see also:</i> ".$heading."<br />";
                                }
-                               $summary.=$heading.$seeheading.$altheading;
+                               #$summary.=$heading.$seeheading.$altheading;
+                               $summary = "<b><a 
href='/cgi-bin/koha/search.marc/search.pl?type=intranet&op=do_search&marclist=$tags_using_authtype&operator==&value=$result[$counter]&and_or=and&excluding='>".$heading."</a></b><br>".$seeheading.$altheading.$summary;
      
                        }
                }
                # then add a line for the template loop
@@ -1312,8 +1312,11 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.9.2.21 2006/08/02 10:17:09 tipaul Exp $
+# $Id: AuthoritiesMarc.pm,v 1.9.2.22 2006/08/02 23:43:51 kados Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# Revision 1.9.2.22  2006/08/02 23:43:51  kados
+# partial fix to MARC21 authorities headings display
+#
 # Revision 1.9.2.21  2006/08/02 10:17:09  tipaul
 # some improvements in buildHerarchies (unimarc hierarchies)
 #