httemplate/elements/tr-part_pkg_freq.html

   1 <% include('tr-td-label.html', @_ ) %>
   2
   3   <TD>
   4     <SELECT NAME="freq">
   5 %     foreach my $freq ( @freq ) {
   6         <OPTION VALUE="<% $freq %>" <% $freq eq $curr_value ? 'SELECTED' : '' %>><% $freq{$freq} %>
   7 %     }
   8     </SELECT>
   9   </TD>
  10
  11 </TR>
  12
  13 <%init>
  14
  15 my %opt = @_;
  16
  17 my $curr_value = $opt{'curr_value'} || $opt{'freq'};
  18
  19 tie my %freq, 'Tie::IxHash', %{FS::part_pkg->freqs_href()};
  20 if ( dbdef->table('part_pkg')->column('freq')->type =~ /(int)/i ) {
  21   delete $freq{$_} foreach grep { ! /^\d+$/ } keys %freq;
  22 }
  23
  24 my @freq = keys %freq;
  25 @freq = grep { /^\d+$/ } @freq
  26   if $opt{'month_increments_only'};
  27 #   if exists($plans{$layer}->{'freq'}) && $plans{$layer}->{'freq'} eq 'm';
  28
  29 </%init>