+
+% sub prorate_day_options {
+% my $curr_value = shift;
+% my $ret = '';
+% for my $prorate_day ( 1 .. 28 ) {
+% my $sel = '';
+% $sel = "SELECTED='SELECTED'" if $curr_value == $prorate_day;
+% $ret .= "<OPTION VALUE='$prorate_day' $sel>$prorate_day</OPTION>";
+% }
+% $ret;
+% }
+