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