Parent Directory | Revision Log | Patch
revision 139 by dpavlin, Wed Oct 29 23:19:58 2003 UTC | revision 169 by dpavlin, Sun Nov 23 15:39:23 2003 UTC | |
---|---|---|
# | Line 4 | Line 4 |
4 | # e.g. marc_sf($row,'700','a') | # e.g. marc_sf($row,'700','a') |
5 | # | # |
6 | sub marc_sf { | sub marc_sf { |
7 | my $marc = shift @_; | my $marc = shift @_ || die "marc_sf: needs record"; |
8 | my $f = shift @_; | my $f = shift @_ || die "marc_sf: needs field name"; |
9 | my $s = shift @_; | my $s = shift @_; |
10 | ||
11 | my $i = shift @_ || 0; | my $i = shift @_ || 0; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |