VPF::построение обработки форм и т.д.

gcc

Дата 15.5.2009, 02:59 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

хотел спросить с точки зрения правильности, чтобы глупость не писать

есть несколько методов, в которых почти одинковая обрабокт данных из СУБД или форм, но все таки много разного!

1) пример:

Код


sub bla0 {

if ($bla eq 'bla');

if ($bla eq 'dgdfg')

}

sub bla1 {

if ($bla eq 'bla1');

if  ($ eq 'sfdfg')

}

sub bla2 {

if ($bla eq 'bla2');

}

sub bla3 {

if ($bla eq 'bla3');

}

sub bla4 {

if ($bla eq 'bla4');

}

есть ли смысл так написать, но будет большая часть кода которая вообще не актульная в некоторых методах?

Код



sub global_valid {
if ($bla eq 'bla');
if ($bla eq 'dgdfg')
if ($bla eq 'bla1');
if  ($ eq 'sfdfg')
if ($bla eq 'bla2');
if ($bla eq 'bla3');
if ($bla eq 'bla4');
}

sub bla1 {
global_valid();
}
и т.д.

2) есть допустим хэш, который отправить в шаблон

обязательно ли делать проверки и пропускать элементы которые в шаблоне не нужны? которые там не будут инициализироватся?

из хэша отправится 5-10 элементов которые не нужны в шаблоне, шаблон сам удаляет лишнее, может тут не надо лишний раз перепроверять и пропусать?

Код



      $loop_data = $sth->fetchrow_hashref();
    $sth->finish();
    

      if (defined $loop_data) {       
        
        while ( my ( $key, $value ) = each( %{$loop_data} ) ) {

            if ( $key eq 'privat_se' ) {
            $key .= '_current';
            $value = $value == 1 ? '1' : undef;            
            } 
            
            if ( $key eq 'active_co' ) {
            $value = $value == 1 ? '1' : undef;            
            } 
            
            if ( $key eq 'hiden_co' ) {
            $value = $value == 1 ? '1' : undef;            
            } 
            
            if ( $key eq 'hiden_g_co' ) {
            $value = $value == 1 ? '1' : undef;            
            } 
            
            if ( $key eq 'voting_co' ) {
            $value = $value == 1 ? '1' : undef;            
            } 
            
              if ( $c->check_user_roles('moder_co') )
                {
                
            if ( $key eq 'close_co' ) {
            $value = $value == 1 ? '1' : undef;            
            }
            
            if ( $key eq 'active_co' ) {
            $value = $value == 1 ? '1' : undef;            
            }
            
            if ( $key eq 'hiden_g_co' ) {
            $value = $value == 1 ? '1' : undef;            
            }                  
            
            }  
            
                                      
            if ( $key eq 'hiden_co' ) {
            $value = $value == 1 ? '1' : undef;            
            }     
            
            if ( $key eq 'forbi_comm_co' ) {
            $value = $value == 1 ? '1' : undef;            
            }    
           
           
              if ( $key eq 'name_co' ) {
            $key .= '_current';
            }  
            
            if ( $key eq 'heading_name_co' ) {
            $key .= '_current';
            } 
            
            if ( $key eq 'text_co' ) {
            $key .= '_current';
            }
            
            if ( $key eq 'keys_co' ) {
            $key .= '_current';
            }                          
           
            if ( $key eq 'id_co' ) {
            $key .= '_current';
            }  

                        
          $c->stash->{$key} = $value;

Это сообщение отредактировал(а) gcc - 15.5.2009, 03:06

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »