+ # Print out the list of options for the output module.
+
+ $main::kiriwrite_presmodule->addlinebreak();
+ $main::kiriwrite_presmodule->addlinebreak();
+ $main::kiriwrite_presmodule->addtext($main::kiriwrite_lang{compile}{outputmodulesettings}, { Style => "smallpageheader" });
+ $main::kiriwrite_presmodule->addlinebreak();
+
+ foreach $option_name (keys %outputmodule_options){
+
+ $main::kiriwrite_presmodule->addlinebreak();
+
+ # Check if the option is a checkbox option.
+
+ if ($outputmodule_options{$option_name}{type} eq "checkbox"){
+
+ $main::kiriwrite_presmodule->addcheckbox("outputmodule_" . $option_name, { OptionDescription => $outputmodule_options{$option_name}{string} });
+
+ }
+
+ # Check if the option is a string option.
+
+ if ($outputmodule_options{$option_name}{type} eq "textbox"){
+
+ if (!$outputmodule_options{$option_name}{password}){
+ $outputmodule_options{$option_name}{password} = 0;
+ }
+
+ $main::kiriwrite_presmodule->addtext($outputmodule_options{$option_name}{string} . " ");
+ $main::kiriwrite_presmodule->addinputbox("outputmodule_" . $option_name, { Size => $outputmodule_options{$option_name}{size}, MaxLength => $outputmodule_options->{$option_name}{maxlength}, Value => $outputmodule_options{$option_name}{value}, Password => $outputmodule_options{$option_name}{password} });
+
+ }
+
+ # Check if the option is a combobox option.
+
+ if ($outputmodule_options{$option_name}{type} eq "combobox"){
+
+ $combobox_count = 0;
+
+ @outputmodule_comboboxnames = split(/\|/, $outputmodule_options{$option_name}{optionnames});
+ @outputmodule_comboboxvalues = split(/\|/, $outputmodule_options{$option_name}{optionvalues});
+
+ $main::kiriwrite_presmodule->addtext($outputmodule_options{$option_name}{string} . " ");
+ $main::kiriwrite_presmodule->addselectbox("outputmodule_" . $option_name);
+
+ foreach $outputmodule_comboboxname (@outputmodule_comboboxnames){
+
+ $main::kiriwrite_presmodule->addoption($outputmodule_comboboxname, { Value => $outputmodule_comboboxvalues[$combobox_count] });
+ $combobox_count++;
+
+ }
+
+ $main::kiriwrite_presmodule->endselectbox;
+
+ }
+
+ # Check if the option is a radio option.
+
+ if ($outputmodule_options{$option_name}{type} eq "radio"){
+
+ # Check if the selected value is blank and if it is then
+ # set it to 0.
+
+ if (!$outputmodule_options{$option_name}{selected}){
+ $outputmodule_selected = 0;
+ } else {
+ $outputmodule_selected = 1;
+ }
+
+ $main::kiriwrite_presmodule->addradiobox("outputmodule_" . $outputmodule_options{$option_name}{name}, { Description => $outputmodule_options{$option_name}{string}, Value => $outputmodule_options{$option_name}{value}, Selected => $outputmodule_selected });
+
+ }
+
+ }
+