[Koha-cvs] CVS: koha MARCdetail.pl,1.3,1.4

[Paul POULAIN]

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 ----