Lines 3331-3337
sub ModBiblioMarc {
Link Here
|
3331 |
my $userenv = C4::Context->userenv; |
3331 |
my $userenv = C4::Context->userenv; |
3332 |
if ($userenv) { |
3332 |
if ($userenv) { |
3333 |
my $borrowernumber = $userenv->{number}; |
3333 |
my $borrowernumber = $userenv->{number}; |
3334 |
my $borrowername = join ' ', @$userenv{qw(firstname surname)}; |
3334 |
my $borrowername = join ' ', map { $_ // q{} } @$userenv{qw(firstname surname)}; |
3335 |
unless ($m_rs->in_storage) { |
3335 |
unless ($m_rs->in_storage) { |
3336 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorId'), $borrowernumber); |
3336 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorId'), $borrowernumber); |
3337 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorName'), $borrowername); |
3337 |
Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorName'), $borrowername); |
3338 |
- |
|
|