HTML::Template->output() : fatal error in loop output : HTML::Template : Attempt to set nonexistent parameter 'schedule_columns' - this parameter name
 doesn't match any declarations in the template file : (die_on_bad_params => 1) at D:/Programme/Perl814/lib/HTML/Template.pm line 3304
 at martin3.pl line 121

##</code><code>##

	<TMPL_LOOP NAME=DATA_STRUCTURE>
			<TMPL_IF NAME=BGCOLOR_CUSTOMER>
			<tr>
			<TMPL_ELSE>
			<tr bgcolor="white">
			</TMPL_IF>
				<th><TMPL_VAR NAME=CUSTOMER></th>
				<th><TMPL_VAR NAME=DOMAIN></th>
				<td>
				<TMPL_IF NAME=EXPORT_VALUE>
					<table style="Width:100%">
						<TMPL_LOOP NAME=SCHEDULE_ROWS>
							<tr>					
							<TMPL_LOOP NAME=SCHEDULE_COLUMNS>
								<td><b><TMPL_VAR NAME=SCHEDULE></b></td>
							</TMPL_LOOP>
							</tr>
						</TMPL_LOOP>	
					</table>
				</TMPL_IF>
				</td>
				<td>
				<TMPL_IF NAME=IMPORT_VALUE>
					<table style="Width:100%">
						<TMPL_LOOP NAME=SCHEDULE_ROWS>
							<tr>	
							<TMPL_LOOP NAME=SCHEDULE_COLUMNS>
								<td><b><TMPL_VAR NAME=SCHEDULE></b></td>
							</TMPL_LOOP>
							</tr>
						</TMPL_LOOP>	
					</table>
				</td>
				</TMPL_IF>
			</tr>
		</TMPL_LOOP>

##</code><code>##

for my $domain (keys %{$bi->{$customer}}) 
	{
		my %data_structure;
		my @schedule_rows_loop;
		my @schedule_columns_loop;
		$data_structure{CUSTOMER}=$customer;
		$data_structure{DOMAIN}=$domain;
		for my $host (keys %{$bi->{$customer}->{$domain}}) 
		{ 
			my $schedule = $bi->{$customer}->{$domain}->{$host}->{BACKUPCFG}->{EXPORT_SCHEDULE_1}->{VALUE};
			if (defined $schedule)									## Da nicht alle Kunden / Domainen zurzeit eine EXPORT_SCHEDULE haben
			{	
			
				my $import_value=$bi->{$customer}->{$domain}->{$host}->{BACKUPCFG}->{IMPORT_ACTIVE_1}->{VALUE};
				my $export_value=$bi->{$customer}->{$domain}->{$host}->{BACKUPCFG}->{EXPORT_ACTIVE_1}->{VALUE};
				my $scheduled_export_days =convert_seconds_days(($bi->{$customer}->{$domain}->{$host}->{BACKUPCFG}->{EXPORT_BACKUP_LIFETIME_SEC_1}->{VALUE}));
				$data_structure{IMPORT_VALUE}=$import_value;
				$data_structure{EXPORT_VALUE}=$export_value;
				my @schedule=split(/,/, $schedule);
				for my $dif_schedule(@schedule) 
				{
					my %schedule_rows_data;
					$schedule_rows_data{SCHEDULE}=$dif_schedule;
					push (@schedule_rows_loop, \%schedule_rows_data);
				}
				
				for(my $i=0;$i<=$scheduled_export_days;$i++)
				{
					my %schedule_columns_data;
					$schedule_columns_data{SCHEDULE_COLUMNS_COUNT}=1;
					push (@schedule_columns_loop, \%schedule_columns_data);
				}
			}	
		}
		$data_structure{BGCOLOR_CUSTOMER}=$tr_bgcolor;
		$data_structure{SCHEDULE_ROWS} = \@schedule_rows_loop;
		$data_structure{SCHEDULE_COLUMNS} =\@schedule_columns_loop;
		push (@data_structure_loop, \%data_structure);
		print Dumper(\@data_structure_loop)."\n";
	}
}
$template->param(DATA_STRUCTURE => \@data_structure_loop);