From 4a6b840064c91ecb9008f47aff3f78723abbdd41 Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 11 Oct 2002 10:17:41 +0000 Subject: [PATCH] POD doc and code cleaning --- MARCdetail.pl | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/MARCdetail.pl b/MARCdetail.pl index 0145240104..50c457fb52 100755 --- a/MARCdetail.pl +++ b/MARCdetail.pl @@ -17,6 +17,27 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # 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 /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; use C4::Context; @@ -79,7 +100,6 @@ for (my $tabloop = 0; $tabloop<=10;$tabloop++) { my @fields = $record->fields(); 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; my %this_row; @@ -118,7 +138,6 @@ for (my $i=0;$i<=$#big_array; $i++) { foreach my $subfield_code (keys(%witness)) { my %header_value; $header_value{header_value} = $witness{$subfield_code}; - warn "$subfield_code => ".$witness{$subfield_code}; push(@header_value_loop, \%header_value); } -- 2.39.5