use strict;
use C4::Output;
-use C4::Charset;
+use C4::Interface::CGI::Output;
use C4::Auth;
use CGI;
use C4::Search;
my $script_name = 'koha2marclinks.pl';
my ($template, $borrowernumber, $cookie)
- = get_template_and_user({template_name => "parameters/koha2marclinks.tmpl",
+ = get_template_and_user({template_name => "admin/koha2marclinks.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
my ($defaulttagfield, $defaulttagsubfield,$defaultliblibrarian) = $sth->fetchrow;
for (my $i=0;$i<=9;$i++) {
- my $sth2=$dbh->prepare("select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where tagfield like '$i%'");
- $sth2->execute;
+ my $sth2=$dbh->prepare("select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where tagfield like ?");
+ $sth2->execute("$i%");
my @marcarray;
push @marcarray," ";
while (my ($field, $tagsubfield, $liblibrarian) = $sth2->fetchrow_array) {
$fields{$kohafield}->{tagsubfield} = $tagsubfield;
$fields{$kohafield}->{liblibrarian} = $liblibrarian;
}
+ #XXX: This might not work. Maybe should use a DBI call instead of SHOW COLUMNS
my $sth2=$dbh->prepare("SHOW COLUMNS from $tablename");
$sth2->execute;
$row_data{tagsubfield} = $fields{$tablename.".".$field}->{tagsubfield};
$row_data{liblibrarian} = $fields{$tablename.".".$field}->{liblibrarian};
$row_data{kohafield} = $field;
- $row_data{edit} = "$script_name?op=add_form&tablename=$tablename&kohafield=$field";
+ $row_data{edit} = "$script_name?op=add_form&tablename=$tablename&kohafield=$field";
$row_data{bgcolor} = $toggle;
push(@loop_data,\%row_data);
}
$template->param(loop => \@loop_data,
tablename => CGI::scrolling_list(-name=>'tablename',
- -values=>['biblio','biblioitems','items'],
+ -values=>['biblio','biblioitems','items','bibliosubject','bibliosubtitle','additionalauthors'],
-default=>$tablename,
-size=>1,
-multiple=>0
);
} #---- END $OP eq DEFAULT
-print $input->header(
- -type => guesstype($template->output),
- -cookie => $cookie
-), $template->output;
+output_html_with_http_headers $input, $cookie, $template->output;