[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)
 #