View file biblioteka/sha.dat

switch ($a):
  case 1: $lt= "А";break;
  case 2: $lt= "Б";break;
  case 3: $lt= "В";break;
  case 4: $lt= "Г";break;
  case 5: $lt= "Д";break;
  case 6: $lt= "Е";break;
  case 7: $lt= "Ё";break;
  case 8: $lt= "Ж";break;
  case 9: $lt= "З";break;
  case 10: $lt= "И";break;
  case 11: $lt= "Й";break;
  case 12: $lt= "К";break;
  case 13: $lt= "Л";break;
  case 14: $lt= "М";break;
  case 15: $lt= "Н";break;
  case 16: $lt= "О";break;
  case 17: $lt= "П";break;
  case 18: $lt= "Р";break;
  case 19: $lt= "С";break;
  case 20: $lt= "Т";break;
  case 21: $lt= "У";break;
  case 22: $lt= "Ф";break;
  case 23: $lt= "Х";break;
  case 24: $lt= "Ц";break;
  case 25: $lt= "Ч";break;
  case 26: $lt= "Ш";break;
  case 27: $lt= "Щ";break;
  case 28: $lt= "Э";break;
  case 29: $lt= "Ю";break;
  case 30: $lt= "Я";break;
endswitch;

  for ($i=0; $i<$am; $i++){ // Список авторов
    $fstr= explode("|", trim($abs[$i]));
    $let= $fstr[1];
    if ($let!="Разное")
     if ($let[0]===$lt) {
       @$ll[$let]++; // $letterlist
       @$num[$let]= $fstr[0];
     }
  }

if (!isset($start) || $start<0) $start= 0;
$c= 0;
ksort($ll);
foreach ($ll as $k=>$v) {
  if ($c>=$start && $c<$start+$AUTORSPP) {
    $wml.= "<a href=\"$PHP_SELF?cmd=ShM&amp;a=".$num[$k]."&amp;sz=".$sz."&amp;dcs=".@$dcs."\">".$k."</a> (".$v.")<br/>\n";
  }
  $c++;
}

if ($start>0) $s1= "<a href=\"$PHP_SELF?cmd=ShA&amp;a=".$a."&amp;sz=".$sz."&amp;start=".($start-$AUTORSPP)."&amp;dcs=".@$dcs."\">&lt;&lt;|</a>"; else $s1="";
if ($start+$AUTORSPP<count($ll)) $s2= "<a href=\"$PHP_SELF?cmd=ShA&amp;a=".$a."&amp;sz=".$sz."&amp;start=".($start+$AUTORSPP)."&amp;dcs=".@$dcs."\">|&gt;&gt; </a>"; else $s2="";
$wml.= $s1.$s2;
//if ($s1!=="" && $s2!=="") $wml.="<br/>\n";
if ($s1==="" && $s2==="") ; else $wml.="<br/>\n";

$wml.= "- - -<br/><a href=\"$PHP_SELF?dcs=".@$dcs."\">Алфавит</a><br/>";