my %opt = @_;
my %search_hash = ();
-for ( qw(agentnum magic classnum) ) {
+for ( qw(agentnum magic) ) {
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
}
+$search_hash{'classnum'} = [ $cgi->param('classnum') ];
+
my @column_option = grep { /^\d+/ } $cgi->param('part1_column_option')
if $cgi->param('part1_column_option');
my $return = $count;
if ($cgi->param('_type') eq 'xml') {
- $rowchar++ if $column == 1;
+ $rowchar++ if $column == 0;
$xml_element = $xml_prefix. chr($rowchar). ($column+1);
$return = '' if $count == 0 and $cgi->param('_type') eq 'xml';
} else {