From 1bf47197ba742047597b0adedd3f3365eda8aa0a Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Mon, 3 Feb 2003 07:03:06 +0000
Subject: [PATCH] Added some POD, minor comment fixes

---
 acqui.simple/addbiblio.pl | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 200198f0e8..2b2c1a0799 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -29,6 +29,18 @@ use C4::Context;
 use HTML::Template;
 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) = @_;
 #	warn "$tagfield / $insubfield // ";
@@ -46,6 +58,17 @@ sub find_value {
 	return($indicator,$result);
 }
 
+
+=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) = @_;
 	my $sth = $dbh->prepare("select file,marc from marc_breeding where id=?");
@@ -117,7 +140,7 @@ if ($op eq "addbiblio") {
 		$indicators{$ind_tag[$i]} = $indicator[$i];
 	}
 	my $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators);
-# MARC::Record builded => now, record in DB
+# MARC::Record built => now, record in DB
 	my $oldbibnum;
 	my $oldbibitemnum;
 	if ($is_a_modif) {
@@ -278,7 +301,7 @@ if ($op eq "addbiblio") {
 		}
 		$template->param($tabloop."XX" =>\@loop_data);
 	}
-	# now, build hidden datas => we store everything, even if we show only requested subfields.
+	# now, build hidden data => we store everything, even if we show only requested subfields.
 	my @loop_data =();
 	my $i=0;
 	foreach my $tag (keys %{$tagslib}) {
-- 
2.39.5