Some minor debug changes

This commit is contained in:
doxulting 2004-07-30 13:55:58 +00:00
parent f122180117
commit 0c3e1dd11b
2 changed files with 2 additions and 1 deletions

View File

@ -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;

View File

@ -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,