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

987 $OUT.=&RRow('*','ll','Группа',$grps) if $grps;

 988 # ----------- Формирование списка свободных IP для текущего юзера
 989 $gn=&sql_select_line($dbh,"SELECT grp_nets FROM user_grp WHERE grp_id=$grp LIMIT 1",'Получим сети для группы');
 990 $allow_ips = '';
 991 if($gn && $gn->{grp_nets}){
 992         @nets = split /\n/, $gn->{grp_nets};
 993         &LoadNetMod;
 994         foreach $net (@nets){
 995                 ($nip)=&nNet_GetNextIp($net);
 996                 $nip or next;
 997                 $allow_ips .= qq{<span class=data2 style='cursor:pointer;border:0;' onClick="document.getElementById(12).value='$nip'">$nip</span>}.$br;
 998         }
 999 }
1000 # ----------------------------------

1001 $OUT.=&show_line($PR{71},$ip_cell,'ip',$ipp,18,18,$PR{71} && '<input type=checkbox name=setip value=1'.&SS.

1003 # -------- Список свободных ИП
1004 $span = qq{<span style='cursor:pointer;' onClick='this.style.display="none";document.getElementById(100500).style.display=""'>Свободные адреса</span>};
1005 $OUT.=&RRow('*','ll','&nbsp;',qq{$span<div style='display:none' id='100500'>$allow_ips</div>}) if $PR{71} && $allow_ips;
1006 # ----------------------------

"> <acronym title='Поставьте галочку если хотите изменить ip'>&nbsp;?</acronym>");

# -------- Список свободных ИП
$addrs_lnk = &ahref(qq{javascript:show_x("addrs")},'↓ Свободные адреса');
$OUT.=&RRow('*','ll',
        ' ',
        qq{$addrs_lnk<div style='display:none' id='my_x_addrs'>$allow_ips</div>}
) if $PR{71} && $allow_ips;
# ----------------------------

963 $OUT.=&RRow('*','ll','Группа',$grps) if $grps;
964 # ----------- Формирование списка свободных IP для текущего юзера
965 $gn=&sql_select_line($dbh,"SELECT grp_nets FROM user_grp WHERE grp_id=$grp LIMIT 1",'Получим сети для группы');
966 $allow_ips = '';
967 if($gn && $gn->{grp_nets}){
968         @nets = split /\n/, $gn->{grp_nets};
969         &LoadNetMod;
970         foreach $net (@nets){
971                 ($nip)=&nNet_GetNextIp($net);
972                 $nip or next;
973                 $allow_ips .= qq{<span class=data2 style='cursor:pointer;border:0;' onClick="document.getElementsByName('ip')[0].value='$nip'">$nip</span>}.$br;
974         }
975 }
976 # ----------------------------------
977 $OUT.=&show_line($PR{71},$ip_cell,'ip',$ipp,18,18,$PR{71} && '<input type=checkbox name=setip value=1'.&SS.
978    "> <acronym title='Поставьте галочку если хотите изменить ip'>&nbsp;?</acronym>");
979 # -------- Список свободных ИП
980 $addrs_lnk = &ahref(qq{javascript:show_x("addrs")},'&darr;&nbsp;Свободные адреса');
981 $OUT.=&RRow('*','ll',
982         '&nbsp;',
983         qq{$addrs_lnk<div style='display:none' id='my_x_addrs'>$allow_ips</div>}
984 ) if $PR{71} && $allow_ips;
985 # ----------------------------

$gn=&sql_select_line($dbh,"SELECT grp_nets FROM user_grp WHERE grp_id=$grp LIMIT 1",'Получим сети для группы');