Lines 387-396
if ($op eq 'add_form') {
Link Here
|
387 |
$template->param(tagfield => "$input->param('tagfield')"); |
387 |
$template->param(tagfield => "$input->param('tagfield')"); |
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 |
# 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) |
389 |
# values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
389 |
# values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
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 |
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) |
391 |
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
391 |
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); |
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 |
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=? |
393 |
where authtypecode=? and tagfield=? and tagsubfield=?"); |
393 |
where authtypecode=? and tagfield=? and tagsubfield=?"); |
394 |
my @tagsubfield = $input->param('tagsubfield'); |
394 |
my @tagsubfield = $input->param('tagsubfield'); |
395 |
my @liblibrarian = $input->param('liblibrarian'); |
395 |
my @liblibrarian = $input->param('liblibrarian'); |
396 |
my @libopac = $input->param('libopac'); |
396 |
my @libopac = $input->param('libopac'); |
397 |
- |
|
|