|
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 |
- |
|
|