|
Lines 47-53
my $del_records = $input->param('del_records');
Link Here
|
| 47 |
my $completedJobID = $input->param('completedJobID'); |
47 |
my $completedJobID = $input->param('completedJobID'); |
| 48 |
my $runinbackground = $input->param('runinbackground'); |
48 |
my $runinbackground = $input->param('runinbackground'); |
| 49 |
my $src = $input->param('src'); |
49 |
my $src = $input->param('src'); |
| 50 |
|
50 |
my $use_default_values = $input->param('use_default_values'); |
| 51 |
|
51 |
|
| 52 |
my $template_name; |
52 |
my $template_name; |
| 53 |
my $template_flag; |
53 |
my $template_flag; |
|
Lines 78-85
my $itemrecord;
Link Here
|
| 78 |
my $nextop=""; |
78 |
my $nextop=""; |
| 79 |
my @errors; # store errors found while checking data BEFORE saving item. |
79 |
my @errors; # store errors found while checking data BEFORE saving item. |
| 80 |
my $items_display_hashref; |
80 |
my $items_display_hashref; |
| 81 |
my $frameworkcode=""; |
81 |
my $tagslib = &GetMarcStructure(1); |
| 82 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
|
|
| 83 |
|
82 |
|
| 84 |
my $deleted_items = 0; # Number of deleted items |
83 |
my $deleted_items = 0; # Number of deleted items |
| 85 |
my $deleted_records = 0; # Number of deleted records ( with no items attached ) |
84 |
my $deleted_records = 0; # Number of deleted records ( with no items attached ) |
|
Lines 309-315
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
| 309 |
$subfield_data{repeatable} = $tagslib->{$tag}->{$subfield}->{repeatable}; |
308 |
$subfield_data{repeatable} = $tagslib->{$tag}->{$subfield}->{repeatable}; |
| 310 |
my ($x,$value); |
309 |
my ($x,$value); |
| 311 |
$value =~ s/"/"/g; |
310 |
$value =~ s/"/"/g; |
| 312 |
unless ($value) { |
311 |
if ( !$value && $use_default_values) { |
| 313 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; |
312 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; |
| 314 |
# get today date & replace YYYY, MM, DD if provided in the default value |
313 |
# get today date & replace YYYY, MM, DD if provided in the default value |
| 315 |
my ( $year, $month, $day ) = split ',', $today_iso; # FIXME: iso dates don't have commas! |
314 |
my ( $year, $month, $day ) = split ',', $today_iso; # FIXME: iso dates don't have commas! |
| 316 |
- |
|
|