1. Perl / Говнокод #1605

    −109.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    $in{item_name}=CGI::unescape($in{item_name});
$in{item_number}=CGI::unescape($in{item_number});

#убиваем пробелы сначала, с конца и двойные
###
if($in{item_name}=~/^[\s]+([\s\S]+)/) {
  $in{item_name}=$1;
}
if($in{item_name}=~/([\s\S]+)[\s]+$/) {
  $in{item_name}=$1;
}

$in{item_name}=~s/[\s]{2,}/ /g;
  
if($in{item_number}=~/^[\s]+([\s\S]+)/) {
  $in{item_number}=$1;
}
if($in{item_number}=~/([\s\S]+)[\s]+$/) {
  $in{item_number}=$1;
}

$in{item_number}=~s/[\s]{2,}/ /g;
####

my @select_parent=db_select_list ['title','id'],"catalog_section","parent_id=0";



###########
my $only_this_category_text;
my $checked_only;
if($in{action} eq 'filter' and !$in{only_this_cat}) { $checked_only=''; } else {$checked_only="checked"; }

#############################
my $selected_list_item;
my $only_this_cat_string;
my @selected_only;
my $selected_parent;
#die $in{only_this_cat_s};


for(@select_parent)
{my $name="index_sel_$$_{id}";
 if($in{action} eq 'filter' and ($in{only_this_cat_s} eq $$_{id})) {$selected_only[$$_{id}]='selected'; } else { $selected_only[$$_{id}]=''; }
 if(!$in{only_this_cat_s})
 { if(!$in{action} and ($in{s} eq $$_{id})) {$selected_only[$$_{id}]='selected'; } else { $selected_only[$$_{id}]=''; }
 }else{ if($in{only_this_cat_s} eq $$_{id}){ $selected_only[$$_{id}]='selected';}}
}


############################


if($in{s}) {

#максимальная вложенность =3 - сформируем строку для чекбокса по-простому
  my %ha=db_select_row ['id','title','parent_id'],"catalog_section","id=$in{s}";
 if(%ha){$selected_only[$ha{parent_id}]='selected';}
	my %parent=db_select_row ['title','parent_id'],"catalog_section","id=$ha{parent_id}";
  my %parent2=db_select_row ['title','parent_id'],"catalog_section","id=$parent{parent_id}";	
	my $only_title=$ha{title};
	
	$only_title= "$parent{title} — $only_title" if %parent;
	$only_title= "$parent2{title} — $only_title" if %parent2;
  $only_this_cat_string=""; 
	if(%parent || %parent2) {#%ha
      $only_this_category_text=qq~
			<span>
			<input type="checkbox" name="only_this_cat" id="only_this_cat" $checked_only onchange="checkSelect();">
			<label for="only_this_cat">Искать только в разделе &laquo;$only_title&raquo;</label>
			</span>~;
			    	
	}
	}
	
	
$selected_list_item=qq~<select name="only_this_cat_s" id="only_this_cat_s"> <OPTION VALUE='none'>Все разделы</OPTION>~;
										for(@select_parent)
										{
$selected_list_item.=qq~<OPTION VALUE='$$_{id}' $selected_only[$$_{id}]~;
$selected_list_item.=qq~><label for="only_this_cat_s">$$_{title}</label>
                        </OPTION>~;
										
										}
$selected_list_item.=qq~</select></td>~;
$only_this_cat_string="Раздел каталога";

    Оригинальное форматирование сохранено

    Запостил: nolka4, 17 Августа 2009

    Комментарии (4) RSS

    • ava Oleg_quadro 17.08.2009 14:23 # 0

      Расскажите человеку про Html::Template
      Ответить

    • ava Suor 01.10.2009 12:15 # −1

      В чём говнокодность кроме того, что не используются шаблоны?

      Иногда нужно сделать именно быстро и грязно :)
      Ответить

    • ava guest 13.10.2009 12:04 # +1

      Всё не осилил, хватило замены пробелов.
      Ответить

    • ava Bezeus 25.08.2021 01:02 # 0

      Новая школа. Новые люди. Всё было таким неинтересным. Я даже не пытался что-то вновь полюбить. К чему-либо привыкнуть. А зачем? Если в любой момент мой отец или кто-либо ещё может опять всё враз отнять. Я был в подвешенном состоянии и очень долго привыкал к новому месту жительства. Пока отец не отправил меня в воскресную школу. Вернее, это была не школа. Скорее, что-то вроде отроческой версии воскресной службы. Школьникам трудно усидеть в общем зале, где находятся все взрослые. Поэтому их отводят в специальную комнату в здании церкви, где им рассказывают о Библии более понятным языком.
      Ответить

    Добавить комментарий