[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,\@tags,\@subfields,\@values,%indicators);
! # MARC::Record builded => now, record in DB
  	my $oldbibnum;
  	my $oldbibitemnum;
--- 141,145 ----
  	}
  	my $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators);
! # MARC::Record built => now, record in DB
  	my $oldbibnum;
  	my $oldbibitemnum;
***************
*** 279,283 ****
  		$template->param($tabloop."XX" =>\@loop_data);
  	}
! 	# 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" =>\@loop_data);
  	}
! 	# now, build hidden data => we store everything, even if we show only requested subfields.
  	my @loop_data =();
  	my $i=0;