Биллинговая система Nodeny

$h1.="<option value=$_>".($_+1900).'</option>' foreach (100..109);

$h1.="<option value=$_>".($_+1900).'</option>' foreach ($year_now-5..$year_now+5);

$hyear.="<option value=$_>".($_+1900)."</option>" for (104..110);

foreach $tmpl (keys %cfg::Dopfields_tmpl_name)
{
 $tmpl<100 or next;
 $h=nSql->new(
    sql  => "SELECT * FROM dopdata WHERE revision=(SELECT MAX(revision) FROM dopdata WHERE parent_id=$Fid AND template_num=$tmpl) ORDER BY field_name",
    dbh  => $dbh,
    show => 'full',
    comment => "Дополнительные данные шаблона $tmpl",
 );
 $out='';
 while( $h->get_line( [\%h] ) )
 {
   $field_name=&Del_Sort_Prefix($h{field_name});
   $field_value=&Filtr_out(
     nDopdataAPI->print_value(
     {
        type  => $h{field_type},
	alias => $h{field_alias},
	value => $h{field_value},
     })
   );
   $out.=&RRow('*','lr',$field_name,$field_value);
 }

 $outl.=
   &RRow('','ll',
     html->show('a', data=>'Редактировать', href=>"$scrpt0&a=dopdata&parent_type=0&id=$Fid&tmpl=$tmpl"),
     $v::a_nav->show(data=>'&nbsp;&darr;&nbsp;', href=>qq{javascript:show_x("tmpl_$tmpl")}).' '.&bold($cfg::Dopfields_tmpl_name{$tmpl})
   ).
   &RRow('','L',html->show(
       data => $out? &Table('table2 width100',$out) : &Center('не создано'),
       id   => "my_x_tmpl_$tmpl",
       style=> 'display:none', 
   ));
}

$outl=&form('_id'=>'saveform','act'=>'save','id'=>$Fid,'mess'=>$main::t,'wannasave'=>$WannaSave, &Table('table2 width100',$outl) );

sub Set_year_in_list
{# формирования выпадающего списка с годами и selected делается запрошенный год
 # Вход: год (отсчет от нуля!)
 # Возврат: выпадающий список
 my $hyear="<select size=1 name=year><option value=104>2004</option><option value=105>2005</option><option value=106>2006</option>".
   "<option value=107>2007</option><option value=108>2008</option><option value=109>2009</option><option value=110>2010</option></select>";
 my $year=int $_[0]; 
 $hyear=~s/=$year>/=$year selected>/;
 return ($hyear);
}

$hyear.="<option value=$_>".($_+1900)."</option>" for ($year_now-5..$year_now);

sub Set_year_in_list
{
 my $hyear="<select size=1 name=year>";
 $hyear.="<option value=$_>".($_+1900)."</option>" for ($year_now-5..$year_now);
 $hyear.="</select>";
 my $year=int $_[0];
 $hyear=~s/=$year>/=$year selected>/;
 return $hyear;
}