|
Lines 284-290
sub create_input {
Link Here
|
| 284 |
|
284 |
|
| 285 |
# if there is no value provided but a default value in parameters, get it |
285 |
# if there is no value provided but a default value in parameters, get it |
| 286 |
if ( $value eq '' ) { |
286 |
if ( $value eq '' ) { |
| 287 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; |
287 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
| 288 |
|
288 |
|
| 289 |
# get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value |
289 |
# get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value |
| 290 |
my $today_dt = dt_from_string; |
290 |
my $today_dt = dt_from_string; |
|
Lines 688-694
my $biblionumber = $input->param('biblionumber'); # if biblionumber exists, it'
Link Here
|
| 688 |
my $parentbiblio = $input->param('parentbiblionumber'); |
688 |
my $parentbiblio = $input->param('parentbiblionumber'); |
| 689 |
my $breedingid = $input->param('breedingid'); |
689 |
my $breedingid = $input->param('breedingid'); |
| 690 |
my $z3950 = $input->param('z3950'); |
690 |
my $z3950 = $input->param('z3950'); |
| 691 |
my $op = $input->param('op'); |
691 |
my $op = $input->param('op') // q{}; |
| 692 |
my $mode = $input->param('mode'); |
692 |
my $mode = $input->param('mode'); |
| 693 |
my $frameworkcode = $input->param('frameworkcode'); |
693 |
my $frameworkcode = $input->param('frameworkcode'); |
| 694 |
my $redirect = $input->param('redirect'); |
694 |
my $redirect = $input->param('redirect'); |
|
Lines 705-711
my $fa_duedatespec = $input->param('duedatespec');
Link Here
|
| 705 |
|
705 |
|
| 706 |
my $userflags = 'edit_catalogue'; |
706 |
my $userflags = 'edit_catalogue'; |
| 707 |
|
707 |
|
| 708 |
my $changed_framework = $input->param('changed_framework'); |
708 |
my $changed_framework = $input->param('changed_framework') // q{}; |
| 709 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
709 |
$frameworkcode = &GetFrameworkCode($biblionumber) |
| 710 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'addbiblio' ); |
710 |
if ( $biblionumber and not( defined $frameworkcode) and $op ne 'addbiblio' ); |
| 711 |
|
711 |
|
| 712 |
- |
|
|