- 1
@list($o, $isp, $online) = @explode(":", $p107);Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+61
@list($o, $isp, $online) = @explode(":", $p107);от туда же классика жанра
+79
if ($type['my_event']) {
    $select->where('1=1)))');
} else {
    $select->where('1=1))');				
}Индусы..
+62
$str = CHEREZ_GOPU_NOCACHE ? false : $mem->get($cachename);
 if ($str === false)
 {
  /*
    
мно гомно гомно го кода 
 */
   $mem->set('totalonline', $totalonline, false, MEMCACHE_CACHETIME * 3);
   if (!CHEREZ_GOPU_NOCACHE)
       $mem->set($cachename, $str, false, MEMCACHE_CACHETIME);
}и еще 100500 строк в данном файле...
+96
OdbcCommand dist_cmd = ifx_conn.CreateCommand();
                dist_cmd.CommandText = string.Format(@"select  -1 as districtid, '-=ВСІ=-' as districtname from systables where  tabname = 'systables'                               union all 
                                        select id as districtid , cpz_name as districtname from  post_cpz where directorate_id = {0} and id != 0 ORDER BY 2", (String.IsNullOrEmpty(DDL_obl.SelectedValue))?"-1":DDL_obl.SelectedValue);
                reader = dist_cmd.ExecuteReader();в процессе рефакторинга, убирая NHibernate код был заменен на это
−102
Процедура СортировкаСписка(Список) 
	
	Перем лСредний;  
	
	лЛевый= СоздатьОбъект("СписокЗначений");
	лПравый = СоздатьОбъект("СписокЗначений");
	
	Если Список.РазмерСписка()>1 Тогда  
		
		лРазмерСписка = Список.РазмерСписка();
		лПозицияСреднего = Цел(лРазмерСписка/2);
		лСреднее = Список.ПолучитьЗначение(лПозицияСреднего);
		
		Для й = 1 По лРазмерСписка Цикл
			
			Если й<>лПозицияСреднего Тогда
				
				лПроверяемоеЗначение =  Список.ПолучитьЗначение(й);
				
				Если лПроверяемоеЗначение<лСреднее Тогда
					
					лЛевый.ДобавитьЗначение(лПроверяемоеЗначение);
					
				ИначеЕсли лПроверяемоеЗначение>лСреднее Тогда
					
					лПравый.ДобавитьЗначение(лПроверяемоеЗначение);
					
				КонецЕсли;
				
			КонецЕсли;
			
		КонецЦикла;
		
		СортировкаСписка(лЛевый);
		СортировкаСписка(лПравый);
		
		Список.УдалитьВсе();
		
		Для й = 1 По лЛевый.РазмерСписка() Цикл
			Список.ДобавитьЗначение(лЛевый.ПолучитьЗначение(й));
		КонецЦикла; 
		
		Список.ДобавитьЗначение(лСреднее); 
		
		Для й = 1 По лПравый.РазмерСписка() Цикл
			Список.ДобавитьЗначение(лПравый.ПолучитьЗначение(й));
		КонецЦикла;
		
	КонецЕсли;
	
	
КонецПроцедуры
Процедура Выполнить()
	
	ОтсортированныйСписок = СоздатьОбъект("СписокЗначений");
	
	СписокЗначений = СоздатьОбъект("СписокЗначений");   
	
	СписокЗначений.ДобавитьЗначение(2);
	СписокЗначений.ДобавитьЗначение(7);
	СписокЗначений.ДобавитьЗначение(15);
	СписокЗначений.ДобавитьЗначение(16);
	СписокЗначений.ДобавитьЗначение(20);
	СписокЗначений.ДобавитьЗначение(21);
	СписокЗначений.ДобавитьЗначение(3);
	СписокЗначений.ДобавитьЗначение(5);
	СписокЗначений.ДобавитьЗначение(4);
	СписокЗначений.ДобавитьЗначение(14);
	СписокЗначений.ДобавитьЗначение(12);
	СписокЗначений.ДобавитьЗначение(13);
	СписокЗначений.ДобавитьЗначение(11);
	СписокЗначений.ДобавитьЗначение(19);
	СписокЗначений.ДобавитьЗначение(1);
	СписокЗначений.ДобавитьЗначение(8);
	СписокЗначений.ДобавитьЗначение(6);
	СписокЗначений.ДобавитьЗначение(17);
	СписокЗначений.ДобавитьЗначение(9);
	СписокЗначений.ДобавитьЗначение(10);
	СписокЗначений.ДобавитьЗначение(18);
	
	СортировкаСписка(СписокЗначений);
	
	ВыбранноеЗначение = 0;
	СписокЗначений.ВыбратьЗначение(ВыбранноеЗначение);
	
КонецПроцедуры
+61
class admin_payment {
    // ...
}
$m = 'admin_payment';
$$m = new $m();
$m->get();отборно.
−119
Функция ЧекМайл(Майл) 
    
	Перем Чек;
	
	Если Найти(Майл,"@mail.ru")<>0 Тогда
		
		Чек = 0; 
		
	Иначе	
		
		Чек = 1;
		
	КонецЕсли;
	
	Возврат Чек;
	
КонецФункции
...
	  Если ЧекМайл("[email protected]") = 0 Тогда
	  	 Предупреждение("Ой! Что-то пошло не так!");
	  	 Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
	  	 СтатусВозврата(0);
	  	 Возврат;
	  КонецЕсли;могли и предупредить ...
+138
typedef int32_t wl_fixed_t;
//было:
static inline double wl_fixed_to_double(wl_fixed_t f)
{
  return (double) f / 256.0;
}
//стало:
static inline double wl_fixed_to_double(wl_fixed_t f)
{
  union {
    double d;
    int64_t i;
  } u;
  u.i = ((1023LL + 44LL) << 52) + (1LL << 51) + f;
  return u.d - (3LL << 43);
}Заоптимизировали...
+176
function getAnchor(link){
	var url=( (!link) ? window.location : link).toString();
	var idx = url.indexOf("#");
	return (idx != -1 ? url.substring(idx+1) : '');	
}
function setAnchor(anchor){
	var url=(window.location).toString();
	var idx = url.indexOf("#");
	return ( window.location= 
		(idx != -1 ? url.substring(0,idx+1) : url+'#')+anchor
	);
}
−115
Тз = СоздатьОбъект("ТаблицаЗначений");
	Тз.НоваяКолонка("Число");
	Для й=1 По 100 Цикл
		Тз.НоваяСтрока();
		Тз.Число = й;
	КонецЦикла;
	КоличествоСтрокТз = Тз.КоличествоСтрок();
	Для й=-КоличествоСтрокТз По -1 Цикл
		ЗначениеИзТз = Тз.ПолучитьЗначение(-й,"Число");
		ПроверяемоеЗначение = ЗначениеИзТз/2-Цел(ЗначениеИзТз/2);
		Если ПроверяемоеЗначение <> 0 Тогда
			Тз.УдалитьСтроку(-й);
		КонецЕсли;
	КонецЦикла;
	Тз.ВыбратьСтроку();Четные числа до 100