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

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