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

    −118.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
    if ( $in{s} )
{

#	максимальная вложенность =3 - сформируем строку для чекбокса по-простому 
	my %ha = db_select_row [ 'id', 'title', 'parent_id' ], "catalog_section", "id=$in{s}			AND `object_id`=1";
	if (%ha)    																				          		    ¦
	{           																				          			¦
		$selected_only[ $ha{parent_id} ] = 'selected';    										          			
	}    																						              		¦
	     																						          			¦
	my %parent = db_select_row [ 'title', 'parent_id' ], "catalog_section",  "id=$ha{parent_id}		AND `object_id`=1";
	my %parent2 = db_select_row [ 'title', 'parent_id' ], "catalog_section", "id=$parent{parent_id}	AND `object_id`=1";
	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>~;

	}
}

    по-простому

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

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

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