Lines 139-144
if ($op eq 'add_form') {
Link Here
|
139 |
while ($data =$sth->fetchrow_hashref) { |
139 |
while ($data =$sth->fetchrow_hashref) { |
140 |
|
140 |
|
141 |
my %row_data; # get a fresh hash for the row data |
141 |
my %row_data; # get a fresh hash for the row data |
|
|
142 |
$row_data{defaultvalue} = $data->{defaultvalue}; |
142 |
$row_data{tab} = CGI::scrolling_list(-name=>'tab', |
143 |
$row_data{tab} = CGI::scrolling_list(-name=>'tab', |
143 |
-id=>"tab$i", |
144 |
-id=>"tab$i", |
144 |
-values => |
145 |
-values => |
Lines 386-394
if ($op eq 'add_form') {
Link Here
|
386 |
$template->param(tagfield => "$input->param('tagfield')"); |
387 |
$template->param(tagfield => "$input->param('tagfield')"); |
387 |
# my $sth=$dbh->prepare("replace auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) |
388 |
# my $sth=$dbh->prepare("replace auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) |
388 |
# values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
389 |
# values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
389 |
my $sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) |
390 |
my $sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl,defaultvalue) |
390 |
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
391 |
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
391 |
my $sth_update = $dbh->prepare("update auth_subfield_structure set authtypecode=?, tagfield=?, tagsubfield=?, liblibrarian=?, libopac=?, repeatable=?, mandatory=?, kohafield=?, tab=?, seealso=?, authorised_value=?, frameworkcode=?, value_builder=?, hidden=?, isurl=? |
392 |
my $sth_update = $dbh->prepare("update auth_subfield_structure set authtypecode=?, tagfield=?, tagsubfield=?, liblibrarian=?, libopac=?, repeatable=?, mandatory=?, kohafield=?, tab=?, seealso=?, authorised_value=?, frameworkcode=?, value_builder=?, hidden=?, isurl=?, defaultvalue=? |
392 |
where authtypecode=? and tagfield=? and tagsubfield=?"); |
393 |
where authtypecode=? and tagfield=? and tagsubfield=?"); |
393 |
my @tagsubfield = $input->param('tagsubfield'); |
394 |
my @tagsubfield = $input->param('tagsubfield'); |
394 |
my @liblibrarian = $input->param('liblibrarian'); |
395 |
my @liblibrarian = $input->param('liblibrarian'); |
Lines 404-409
if ($op eq 'add_form') {
Link Here
|
404 |
my $authtypecode = $input->param('authtypecode'); |
405 |
my $authtypecode = $input->param('authtypecode'); |
405 |
my @frameworkcodes = $input->param('frameworkcode'); |
406 |
my @frameworkcodes = $input->param('frameworkcode'); |
406 |
my @value_builder =$input->param('value_builder'); |
407 |
my @value_builder =$input->param('value_builder'); |
|
|
408 |
my @defaultvalue = $input->param('defaultvalue'); |
407 |
for (my $i=0; $i<= $#tagsubfield ; $i++) { |
409 |
for (my $i=0; $i<= $#tagsubfield ; $i++) { |
408 |
my $tagfield =$input->param('tagfield'); |
410 |
my $tagfield =$input->param('tagfield'); |
409 |
my $tagsubfield =$tagsubfield[$i]; |
411 |
my $tagsubfield =$tagsubfield[$i]; |
Lines 418-423
if ($op eq 'add_form') {
Link Here
|
418 |
my $authorised_value =$authorised_values[$i]; |
420 |
my $authorised_value =$authorised_values[$i]; |
419 |
my $frameworkcode =$frameworkcodes[$i]; |
421 |
my $frameworkcode =$frameworkcodes[$i]; |
420 |
my $value_builder=$value_builder[$i]; |
422 |
my $value_builder=$value_builder[$i]; |
|
|
423 |
my $defaultvalue = $value_builder[$i]; |
421 |
#my $hidden = $ohidden[$i].$ihidden[$i].$ehidden[$i]; #collate from 3 hiddens; |
424 |
#my $hidden = $ohidden[$i].$ihidden[$i].$ehidden[$i]; #collate from 3 hiddens; |
422 |
my $hidden = $ohidden[$i]; #collate from 3 hiddens; |
425 |
my $hidden = $ohidden[$i]; #collate from 3 hiddens; |
423 |
my $isurl = $input->param("isurl$i")?1:0; |
426 |
my $isurl = $input->param("isurl$i")?1:0; |
Lines 440-445
if ($op eq 'add_form') {
Link Here
|
440 |
$value_builder, |
443 |
$value_builder, |
441 |
$hidden, |
444 |
$hidden, |
442 |
$isurl, |
445 |
$isurl, |
|
|
446 |
$defaultvalue, |
443 |
( |
447 |
( |
444 |
$authtypecode, |
448 |
$authtypecode, |
445 |
$tagfield, |
449 |
$tagfield, |
Lines 463-468
if ($op eq 'add_form') {
Link Here
|
463 |
$value_builder, |
467 |
$value_builder, |
464 |
$hidden, |
468 |
$hidden, |
465 |
$isurl, |
469 |
$isurl, |
|
|
470 |
$defaultvalue, |
466 |
); |
471 |
); |
467 |
} |
472 |
} |
468 |
} |
473 |
} |