[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.17,1.18
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.17,1.18 |
Date: |
Sun, 02 Feb 2003 23:03:08 -0800 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.17,1.18,
Ambrose Li <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/zh-TW/parameters marc_subfields_structure.tmpl,1.1,1.2 marctagstructure.tmpl,1.1,1.2
- Next by Date:
[Koha-cvs] CVS: koha/C4 Auth.pm,1.20,1.21
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/zh-TW/parameters marc_subfields_structure.tmpl,1.1,1.2 marctagstructure.tmpl,1.1,1.2
- Next by thread:
[Koha-cvs] CVS: koha/C4 Auth.pm,1.20,1.21
- Index(es):