Lines Matching refs:l
109 for $l(@langs) {
110 if ($l ne "en-US") {
111 &do_lang($l);
218 for $l(@lines) {
219 if ($l =~ /topic/) {
220 ($id = $l) =~ s/^.*id="([^"]*)".*$/$1/gis;
232 $l = "<topic id=\"$module/$id\">$cnt</topic>\n";
235 $l = "<!-- removed $module/$id -->\n";
241 $l = "<topic id=\"$module/$id\">$loc_title{$lng}->{$id}</topic>\n";
248 if ($l =~/<node/) {
249 ($id = $l) =~ s/^.*id="(\d+)".*$/$1/gis;
252 $l =~ s/title="(.*)"/title="$node{$id}"/;
254 $l =~ s/title="(.*)"/title="NOTFOUND:$id"/;
258 $l =~ s/title="(.*)"/title="$node{$lng}->{$id}"/;
263 if ($l =~/<help_section/) {
264 ($id = $l) =~ s/^.*id="(\d+)".*$/$1/gis;
267 $l =~ s/title="(.*)"/title="$helpsection{$id}"/;
270 $l =~ s/title="(.*)"/title="NOTFOUND:$id"/;
274 $l =~ s/title="(.*)"/title="$helpsection{$lng}->{$id}"/;
317 my @l = <TV>;
319 return @l;