sub mTutorials
  {
  if ($Session->{'usrSystem'} eq "MRT")
  {
  my $str="";
  $str.=mLeftIndex();
  my $xml=xmlFileData("Content", "Sitelist40.xml", "MLX40Tutorials()");
   if ($Request->item("DocID")->item())
    {
      my $id = $Request->item("DocID")->item();
      $xml =~ /(<tut id=\"$id\".*?\/>)/s;
      $str .= $1;
    }
    else
    {
      $xml =~ /(<mlxchange40.*?<\/mlxchange40>)/s;
      $str .= shadowBox("MLXchange Tutorials &amp; Demos", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));
      #$xml =~ /(<mlxchange.*?<\/mlxchange>)/s;
      #$str .= shadowBox("MLXchange 3.0 Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));

    }
    return $str;
    }
  
  if ($Session->{'usrSystem'} eq "RMLS")
  {
  my $str="";
  $str.=mLeftIndex();
  my $xml=xmlFileData("Content", "Sitelist40.xml", "MLX40Tutorials()");
   if ($Request->item("DocID")->item())
    {
      my $id = $Request->item("DocID")->item();
      $xml =~ /(<tut id=\"$id\".*?\/>)/s;
      $str .= $1;
    }
    else
    {
      $xml =~ /(<mlxchange40.*?<\/mlxchange40>)/s;
      $str .= shadowBox("MLXchange Tutorials &amp; Demos", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));
      #$xml =~ /(<mlxchange.*?<\/mlxchange>)/s;
      #$str .= shadowBox("MLXchange 3.0 Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));

    }return $str;
  }
  
  else
  {
  if ($Session->{'usrSystem'} eq "BAR")
  {
  my $str="";
  $str.=mLeftIndex();
  my $xml=xmlFileData("Content", "Sitelist40.xml", "MLX40Tutorials()");
   if ($Request->item("DocID")->item())
    {
      my $id = $Request->item("DocID")->item();
      $xml =~ /(<tut id=\"$id\".*?\/>)/s;
      $str .= $1;
    }
    else
    {
      $xml =~ /(<mlxchange40.*?<\/mlxchange40>)/s;
      $str .= shadowBox("MLXchange Tutorials &amp; Demos", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));
      #$xml =~ /(<mlxchange.*?<\/mlxchange>)/s;
      #$str .= shadowBox("MLXchange 3.0 Tutorials", "<tutorials>".$1."</tutorials>", ($g_docWidth/5*4-(2*$g_docSpace)));

    }
    return $str;
  }
  
  else
  {
    my $str = "";
    $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;
      $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;
  }
}
}