[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha MARCdetail.pl,1.24,1.25
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha MARCdetail.pl,1.24,1.25 |
Date: |
Mon, 03 Jan 2005 04:57:24 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9893
Modified Files:
MARCdetail.pl
Log Message:
* partial support of the "linkage" MARC feature : if you enter a "link" on a
MARC subfield, the magnifying glass won't search on the field, but on the
linked field. I agree it's a partial support. Will be improved, but I need to
investigate MARC21 & UNIMARC diffs on this topic.
Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -r1.24 -r1.25
*** MARCdetail.pl 22 Dec 2004 10:14:43 -0000 1.24
--- MARCdetail.pl 3 Jan 2005 12:57:21 -0000 1.25
***************
*** 74,78 ****
my $record =MARCgetbiblio($dbh,$bibid);
- warn "=>".$record->as_formatted;
# open template
my ($template, $loggedinuser, $cookie)
--- 74,77 ----
***************
*** 96,100 ****
my @subfields_data;
for (my $x_i=0;$x_i<=$#fields;$x_i++) {
! warn "$tabloop => $x_i";
# if tag <10, there's no subfield, use the "@" trick
if ($fields[$x_i]->tag()<10) {
--- 95,99 ----
my @subfields_data;
for (my $x_i=0;$x_i<=$#fields;$x_i++) {
! # warn "$tabloop => $x_i";
# if tag <10, there's no subfield, use the "@" trick
if ($fields[$x_i]->tag()<10) {
***************
*** 116,119 ****
--- 115,119 ----
my %subfield_data;
$subfield_data{marc_lib}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib};
+
$subfield_data{link}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{link};
if
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{isurl}) {
$subfield_data{marc_value}="<a
href=\"$subf[$i][1]\">$subf[$i][1]</a>";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha MARCdetail.pl,1.24,1.25,
Paul POULAIN <=