[Koha-cvs] CVS: koha MARCdetail.pl,1.3,1.4
Paul POULAIN
tipaul at users.sourceforge.net
Fri Oct 11 12:17:43 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv15260
Modified Files:
MARCdetail.pl
Log Message:
POD doc and code cleaning
Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** MARCdetail.pl 11 Oct 2002 09:29:38 -0000 1.3
--- MARCdetail.pl 11 Oct 2002 10:17:41 -0000 1.4
***************
*** 18,21 ****
--- 18,42 ----
# Suite 330, Boston, MA 02111-1307 USA
+ =head1 NAME
+
+ MARCdetail.pl : script to show a biblio in MARC format
+
+ =head1 SYNOPSIS
+
+
+ =head1 DESCRIPTION
+
+ This script needs a biblionumber in bib parameter (bibnumber from koha style DB. Automaticaly maps to marc biblionumber).
+ It shows the biblio in a (nice) MARC format depending on MARC parameters tables.
+ The template is in <templates_dir>/catalogue/MARCdetail.tmpl. this template must be divided in 11 "tabs".
+ The 10 firsts presents the biblio, the 11th one presents the items attached to the biblio
+
+ =head1 FUNCTIONS
+
+ =over 2
+
+ =cut
+
+
use strict;
require Exporter;
***************
*** 80,84 ****
my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code
my @big_array;
- warn "loop 1";
foreach my $field (@fields) {
my @subf=$field->subfields;
--- 101,104 ----
***************
*** 119,123 ****
my %header_value;
$header_value{header_value} = $witness{$subfield_code};
- warn "$subfield_code => ".$witness{$subfield_code};
push(@header_value_loop, \%header_value);
}
--- 139,142 ----
More information about the Koha-cvs
mailing list