From 0c3e1dd11b13bb1c117af20dfb01c478fe86024a Mon Sep 17 00:00:00 2001 From: doxulting Date: Fri, 30 Jul 2004 13:55:58 +0000 Subject: [PATCH] Some minor debug changes --- admin/marc_subfields_structure.pl | 1 + authorities/authorities-home.pl | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index a19d2cec08..42c2bef198 100755 --- a/admin/marc_subfields_structure.pl +++ b/admin/marc_subfields_structure.pl @@ -320,6 +320,7 @@ if ($op eq 'add_form') { } elsif ($op eq 'delete_confirm') { my $dbh = C4::Context->dbh; my $sth=$dbh->prepare("select * from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?"); + #FIXME : called with 2 bind variables when 3 are needed $sth->execute($tagfield,$tagsubfield); my $data=$sth->fetchrow_hashref; $sth->finish; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index 7991c57d50..ed0d400581 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -68,7 +68,7 @@ if ($op eq "do_search") { my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or, \@excluding, \@operator, \@value, $startfrom*$resultsperpage, $resultsperpage,$authtypecode); - warn "R : $results"; + warn "R test : $results"; ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "authorities/searchresultlist.tmpl", query => $query, -- 2.20.1