[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.17,1.18

[Ambrose Li]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv28242/acqui.simple

Modified Files:
        addbiblio.pl 
Log Message:
Added some POD, minor comment fixes


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** addbiblio.pl        2 Feb 2003 07:18:38 -0000       1.17
--- addbiblio.pl        3 Feb 2003 07:03:06 -0000       1.18
***************
*** 30,33 ****
--- 30,45 ----
  use MARC::File::USMARC;
  
+ 
+ =item find_value
+ 
+     ($indicators, $value) = find_value($tag, $subfield, $record);
+ 
+ Find the given $subfield in the given $tag in the given
+ MARC::Record $record.  If the subfield is found, returns
+ the (indicators, value) pair; otherwise, (undef, undef) is
+ returned.
+ 
+ =cut
+ 
  sub find_value {
        my ($tagfield,$insubfield,$record) = @_;
***************
*** 47,50 ****
--- 59,73 ----
  }
  
+ 
+ =item find_value
+ 
+     $record = MARCfindbreeding($dbh, $breedingid);
+ 
+ Look up the breeding farm with database handle $dbh, for the
+ record with id $breedingid.  If found, returns the decoded
+ MARC::Record; otherwise, -1 is returned (FIXME).
+ 
+ =cut
+ 
  sub MARCfindbreeding {
        my ($dbh,$id) = @_;
***************
*** 118,122 ****
        }
        my $record = 
MARChtml2marc($dbh,address@hidden,address@hidden,address@hidden,%indicators);
! # MARC::Record builded => now, record in DB
        my $oldbibnum;
        my $oldbibitemnum;
--- 141,145 ----
        }
        my $record = 
MARChtml2marc($dbh,address@hidden,address@hidden,address@hidden,%indicators);
! # MARC::Record built => now, record in DB
        my $oldbibnum;
        my $oldbibitemnum;
***************
*** 279,283 ****
                $template->param($tabloop."XX" =>address@hidden);
        }
!       # now, build hidden datas => we store everything, even if we show only 
requested subfields.
        my @loop_data =();
        my $i=0;
--- 302,306 ----
                $template->param($tabloop."XX" =>address@hidden);
        }
!       # now, build hidden data => we store everything, even if we show only 
requested subfields.
        my @loop_data =();
        my $i=0;