Experimental rewrite of Stop Words administration screen. Feedback welcomed.

[koha-ffzg.git] / admin / koha2marclinks.pl

diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl
index d59c2ce..7a57225 100755 (executable)
--- a/admin/koha2marclinks.pl
+++ b/admin/koha2marclinks.pl
@@ -36,7 +36,7 @@ my $op=$input->param('op');
 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,
@@ -63,8 +63,8 @@ if ($op eq 'add_form') {
        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) {
@@ -105,6 +105,7 @@ if ($op eq 'add_form') {
                $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;