gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 28915: (follow-up) Add POD 

Signed-off-by: Andrew Fuerste Henry <andrew@bywatersolutions.com>
Signed-off-by: Anneli Österman <anneli.osterman@koha-suomi.fi>
Signed-off-by: Andrew Fuerste Henry <andrew@bywatersolutions.com>
Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
This commit is contained in:
Andrew Fuerste Henry 2026-05-04 15:31:54 +00:00 committed by Pedro Amorim
parent 6db0d42427
commit 433fa34c11
No known key found for this signature in database
GPG Key ID: 06B75BA7F3894D55
1 changed files with 55 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
Koha/SimpleMARC.pm
View File

@ -172,7 +172,7 @@ sub copy_and_replace_field {
=head2 update_field
Missing POD for update_field.
Updates the value of a field.
When parameter C<field> is a control field (000-009), parameter C<subfield> is
used to indicate character position. Defaults to position C<0>.
@ -252,6 +252,12 @@ sub add_field {
}
}
=head2 _update_field
Updates the value of a field.
=cut
sub _update_field {
my ($params) = @_;
my $record = $params->{record};
@ -278,6 +284,12 @@ sub _update_field {
}
}
=head3 _update_subfield
Updates the value of a subfield
=cut
sub _update_subfield {
my ($params) = @_;
my $record = $params->{record};
@ -318,6 +330,12 @@ sub _update_subfield {
}
}
=head3 _update_controlfield
Updates the value of a controlfield at a specified position.
=cut
sub _update_controlfield {
my ($params) = @_;
my $record = $params->{record};
@ -380,6 +398,12 @@ sub read_field {
}
}
=head3 _read_field
Returns the value of a field
=cut
sub _read_field {
my ($params) = @_;
my $record = $params->{record};
@ -413,6 +437,12 @@ sub _read_field {
return @values;
}
=head3 _read_subfield
Returns the value of a subfield
=cut
sub _read_subfield {
my ($params) = @_;
my $record = $params->{record};
@ -643,6 +673,12 @@ sub _delete_field {
}
}
=head3 _delete_subfield
Deletes the given subfield.
=cut
sub _delete_subfield {
my ($params) = @_;
my $record = $params->{record};
@ -662,6 +698,12 @@ sub _delete_subfield {
}
}
=head3 _copy_move_field
Copies a value from one field and moves it to another.
=cut
sub _copy_move_field {
my ($params) = @_;
my $record = $params->{record};
@ -700,6 +742,12 @@ sub _copy_move_field {
$record->insert_fields_ordered(@new_fields);
}
=head3 _copy_move_subfield
Copies a value from one subfield and moves it to another.
=cut
sub _copy_move_subfield {
my ($params) = @_;
my $record = $params->{record};
@ -760,6 +808,12 @@ sub _copy_move_subfield {
}
}
=head3 _modify_values
Performs a regex substitution to modify values
=cut
sub _modify_values {
my ($params) = @_;
my $values = $params->{values};