Lines 290-296
sub create_input {
Link Here
|
290 |
|
290 |
|
291 |
# if there is no value provided but a default value in parameters, get it |
291 |
# if there is no value provided but a default value in parameters, get it |
292 |
if ( $value eq '' ) { |
292 |
if ( $value eq '' ) { |
293 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; |
293 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
294 |
|
294 |
|
295 |
# get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value |
295 |
# get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value |
296 |
my $today_dt = dt_from_string; |
296 |
my $today_dt = dt_from_string; |
Lines 694-700
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it'
Link Here
|
694 |
my $parentbiblio = $input->param('parentbiblionumber'); |
694 |
my $parentbiblio = $input->param('parentbiblionumber'); |
695 |
my $breedingid = $input->param('breedingid'); |
695 |
my $breedingid = $input->param('breedingid'); |
696 |
my $z3950 = $input->param('z3950'); |
696 |
my $z3950 = $input->param('z3950'); |
697 |
my $op = $input->param('op'); |
697 |
my $op = $input->param('op') // q{}; |
698 |
my $mode = $input->param('mode'); |
698 |
my $mode = $input->param('mode'); |
699 |
my $frameworkcode = $input->param('frameworkcode'); |
699 |
my $frameworkcode = $input->param('frameworkcode'); |
700 |
my $redirect = $input->param('redirect'); |
700 |
my $redirect = $input->param('redirect'); |
Lines 711-717
my $fa_duedatespec = $input->param('duedatespec');
Link Here
|
711 |
|
711 |
|
712 |
my $userflags = 'edit_catalogue'; |
712 |
my $userflags = 'edit_catalogue'; |
713 |
|
713 |
|
714 |
my $changed_framework = $input->param('changed_framework'); |
714 |
my $changed_framework = $input->param('changed_framework') // q{}; |
715 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
715 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
716 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'addbiblio' ); |
716 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'addbiblio' ); |
717 |
|
717 |
|
718 |
- |
|
|