sub XmlList
  {
    my($callback,$action_name,%options) = @_;
    my($session_id,$request_id,$debug_level);
    my($projectID,$wellID,$setID,$curveID);

    if(!ref($callback))
      {
        my $ncallback = eval("\\&$callback");
        $callback = $ncallback if(ref($ncallback) eq "CODE");
      }
    if(ref($callback) ne "CODE")
      {
        carp "Must pass subroutine to XmlList\n";
        return;
      }
        .
        .
        .

    return RawXmlList($callback,$action_name,
                $session_id,$request_id,$debug_level,
                $projectID,$wellID,$setID,$curveID);
  }