Lines 90-102
sub copy_field {
Link Here
|
90 |
} |
90 |
} |
91 |
} |
91 |
} |
92 |
|
92 |
|
93 |
update_field( $record, $toFieldName, $toSubfieldName, @values, $dont_erase ); |
93 |
update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values ); |
94 |
|
94 |
|
95 |
} |
95 |
} |
96 |
|
96 |
|
97 |
=head2 |
97 |
=head2 |
98 |
|
98 |
|
99 |
update_field( $record, $fieldName, $subfieldName, $value[, $value,[ $value ... ] ] ); |
99 |
update_field( $record, $fieldName, $subfieldName, $dont_erase, $value[, $value,[ $value ... ] ] ); |
100 |
|
100 |
|
101 |
Updates a field with the given value, creating it if neccessary. |
101 |
Updates a field with the given value, creating it if neccessary. |
102 |
|
102 |
|
Lines 109-116
sub copy_field {
Link Here
|
109 |
=cut |
109 |
=cut |
110 |
|
110 |
|
111 |
sub update_field { |
111 |
sub update_field { |
112 |
my ( $record, $fieldName, $subfieldName, @values, $dont_erase ) = @_; |
112 |
my ( $record, $fieldName, $subfieldName, $dont_erase, @values ) = @_; |
113 |
C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, @values )" ) if $debug; |
113 |
C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, $dont_erase, @values )" ) if $debug; |
114 |
|
114 |
|
115 |
if ( ! ( $record && $fieldName ) ) { return; } |
115 |
if ( ! ( $record && $fieldName ) ) { return; } |
116 |
|
116 |
|
117 |
- |
|
|