HTMLAREA_PATH —
Interchange 5.9.0:
Source: code/Widget/htmlarea.widget
Line 174 (context shows lines 164-178)
$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});