Ciao,
per evitare l'interlinea devi intervenire su questi cicli:
eliminando uno dei due "\n" posti alla fine dei "print".codice:foreach $print_config (@Print_Config) { if ($Config{$print_config}) { print MAIL "$print_config: $Config{$print_config}\n\n"; } } ... foreach $sorted_field (@sorted_fields) { if ($Config{'print_blank_fields'} || $Form{$sorted_field} ne '') { print MAIL "$sorted_field: $Form{$sorted_field}\n\n"; } } ... foreach $field (@Field_Order) { if ($Config{'print_blank_fields'} || $Form{$field} ne '') { print MAIL "$field: $Form{$field}\n\n"; } }
Mettere due campi su una linea è invece molto più complesso.

Rispondi quotando