Avoid Z39.50 search warning for uninit var user/dbs/z3950_log_warning
authorDan Scott <dscott@laurentian.ca>
Mon, 24 Jun 2013 14:12:50 +0000 (10:12 -0400)
committerDan Scott <dscott@laurentian.ca>
Mon, 24 Jun 2013 14:12:50 +0000 (10:12 -0400)
commitfb6760761654299a8cba49f9cba652f27d8678ae
tree98d06361d3af986cb8aa823e2689340f43b7cfc7
parent52f893edbec7b71a2e9c40afb1cd5a7c2cc1cc9b
Avoid Z39.50 search warning for uninit var

The debug log blindly attempts to access list members that might not
exist (if, for example, an event code was returned from the attempt to
run do_service_search()), thus generating spurious log warnings.
Instead, move the debug line to only generate output when we have
created the list item in question.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm