sub mTutorials
  {
  if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/i )
  {
  $str.=mLeftIndex();
  my $xml = xmlFileData("Content", "tempotutorials.xml", "mTutorials()");
    if ($Request->item("DocID")->item())
    {
      my $id = $Request->item("DocID")->item();
      $xml =~ /(<tut id=\"$id\".*?\/>)/s;
      $str .= $1;
    }
    else
    {
      $xml =~ /(<tempo.*?<\/tempo>)/s;
      $str .= shadowBox("Tempo Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));
      $xml =~ /(<general.*?<\/general>)/s;
      $str .= shadowBox("General PC Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));

    }
    #$str.=mLeftIndex();
     return $str;
  }
 
  else
  {
  
  $str.=mLeftIndex();
  my $xml=xmlFileData("Content", "tutorials.xml", "mTutorials()");
  
   if ($Request->item("DocID")->item())
    {
      #my $id = $Request->item("DocID")->item();
      $xml =~ /(<tut id=\"$id\".*?\/>)/s;
      $str .= $1;
      
    }
    else
    {
      $xml =~ /(<mlxchange.*?<\/mlxchange>)/s;
      $xml .=~/(<description.*?<\/description>)/s;
      $str .= shadowBox("MLXchange Tutorials &amp; Demos", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));
     
      $xml =~ /(<general.*?<\/general>)/s;
      $str .= shadowBox("General PC Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));

    }
      
    return $str;
    }
    
}