$pname =~ s/\W/_/g;

unless(defined $opt->{close_window}) {
  $opt->{close_window} = 1;
}

if(! $::Scratch->{htmlarea_added}) {
  $Tag->tmp({ name => 'htmlarea_added', body => 1 });
  $::Scratch->{meta_header} ||= '';
  my $path = $::Variable->{HTMLAREA_PATH} || $flavours{$flavour}->{path};
  my $lang = $::Variable->{HTMLAREA_LANG} || $::Scratch->{mv_locale} || 'en';
  $lang = substr($lang, 0, 2);
  $path =~ s:/*$:/:;
  $::Scratch->{meta_header} .= $Tag->uc_attr_list({hash => {path => $path, \
 lang => $lang}}, $flavours{$flavour}->{header});