Some minor debug changes

diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl
index a19d2ce..42c2bef 100755 (executable)
--- 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 7991c57..ed0d400 100755 (executable)
--- 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,