my $anzspr = $metainfo->getValues('anz_sprachen'); if ($anzspr eq '') { my @spr = $metainfo->getValues('copy'); $anzspr = scalar(@spr); } # if (($mode ne 'EDIT') && ($mode ne 'PREVIEW')) { my $ablage=""; my $sprach="es"; my $ob_de="1"; my $ob_en="1"; my $ob_es="1"; my $ob_it=""; my $ob_fr=""; my $ob_pt=""; my $ob_ca=""; if (($ob_de eq '1') && ($sprach ne 'de')) { $savep = substr($ablage,0,length($ablage)-3).".de"; print ""; if ($anzspr <= 2) { print "Deutsch "; } else { print "DE "; } print "\n"; } if (($ob_en eq '1') && ($sprach ne 'en')) { $savep = substr($ablage,0,length($ablage)-3).".en"; print ""; if ($anzspr <= 2) { print "English "; } else { print "EN "; } print "\n"; } if (($ob_es eq '1') && ($sprach ne 'es')) { $savep = substr($ablage,0,length($ablage)-3).".es"; print ""; if ($anzspr <= 2) { print "Español "; } else { print "ES "; } print "\n"; } if (($ob_it eq '1') && ($sprach ne 'it')) { $savep = substr($ablage,0,length($ablage)-3).".it"; print ""; if ($anzspr <= 2) { print "Italiano "; } else { print "IT "; } print "\n"; } if (($ob_fr eq '1') && ($sprach ne 'fr')) { $savep = substr($ablage,0,length($ablage)-3).".fr"; print ""; if ($anzspr <= 2) { print "Français "; } else { print "FR "; } print "\n"; } if (($ob_pt eq '1') && ($sprach ne 'pt')) { $savep = substr($ablage,0,length($ablage)-3).".pt"; print ""; if ($anzspr <= 2) { print "Português "; } else { print "PT "; } print "\n"; } if (($ob_ca eq '1') && ($sprach ne 'ca')) { $savep = substr($ablage,0,length($ablage)-3).".ca"; print ""; if ($anzspr <= 2) { print "Catalán "; } else { print "CA "; } print "\n"; }

Equipo

Esta página solo existe en Alemán e Inglés.