<& /elements/header-popup.html &>
Module:
Object:
Module:
Data type:
<& /elements/xmlhttp.html, url => $p.'misc/xmlhttp-mib-browse.html', subs => [qw( search get_module_list )], &> <& /elements/footer.html &> <%init> my $callback = 'alert("(no callback defined)" + selected_mib.stringify)'; $cgi->param('callback') =~ /^(\w+)$/; if ( $1 ) { # construct the JS function call expresssion $callback = 'window.parent.' . $1 . '(selected_mib'; foreach ($cgi->param('arg')) { # pass-through arguments /^(\w+)$/ or next; $callback .= ",'$1'"; } $callback .= ')'; }