% my $dbi = $nvar{dbi}; my $query = $nvar{query}; my $column = $nvar{column}; my $title = ($var{revise} ? '修正' : '追加'); my $cv = $var{data}{cv}; my $mon_list = [ '', (1 .. 12) ]; %>