diff options
author | ivan <ivan> | 2009-09-18 19:28:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-09-18 19:28:59 +0000 |
commit | 20727883e43b7abed5160870b3fa3059a7cb1d83 (patch) | |
tree | b7236337119f98eaa9adc0fee38a48778712ed6d /httemplate/edit | |
parent | 3de7395677b966be0bc1d44bc0b912ebb58564ec (diff) |
better error message when the clone object isn't found, RT#6128
Diffstat (limited to 'httemplate/edit')
-rw-r--r-- | httemplate/edit/elements/edit.html | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/httemplate/edit/elements/edit.html b/httemplate/edit/elements/edit.html index e290bdb86..fd73e031e 100644 --- a/httemplate/edit/elements/edit.html +++ b/httemplate/edit/elements/edit.html @@ -745,7 +745,8 @@ if ( $cgi->param('error') ) { $qsearch{'extra_sql'} = ' AND '. $opt{'agent_clone_extra_sql'} if $opt{'agent_clone_extra_sql'}; - $object = qsearchs({ %qsearch, 'hashref' => { $pkey => $clone } }); + $object = qsearchs({ %qsearch, 'hashref' => { $pkey => $clone } }) + or die "$pkey $clone not found in $table"; &{$opt{'clone_callback'}}( $cgi, $object, $fields, \%opt ) if $opt{'clone_callback'}; |