Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c7edb248

Von Sven Schöling vor mehr als 14 Jahren hinzugefügt

  • ID c7edb24800396748f2bf1e40ff05f90a18d31b02
  • Vorgänger 881cc205
  • Nachfolger ea4a7211

Nur ein globales Locale-Objekt anlegen

Außerdem alle lokalen Locale-Objekte entfernt. Ist so noch nicht funktionabel.

Conflicts:

SL/Template/Plugin/T8.pm
        scripts/console
        scripts/rose_auto_create_model.pl
        scripts/sync_with_sugarcrm.pl

Unterschiede anzeigen:

bin/mozilla/menuXML.pl
45 45 

  		




  46
  46
  
    
use strict;


  		




  47
  47
  
    

  		




  48
  
  
    
my $locale;


  		




  49
  
  
    

  		




  50
  48
  
    
1;


  		




  51
  49
  
    

  		




  52
  50
  
    
# end of main


  		




  ......




  55
  53
  
    
  my $form     = $main::form;


  		




  56
  54
  
    
  my %myconfig = %main::myconfig;


  		




  57
  55
  
    

  		




  58
  
  
    
  $locale     = Locale->new($myconfig{countrycode}, "menu");


  		




  59
  56
  
    
  my $charset = $main::dbcharset || 'ISO-8859-1';


  		




  60
  57
  
    
  my $callback            = $form->unescape($form->{callback});


  		




  61
  58
  
    
  $callback               = URI->new($callback)->rel($callback) if $callback;


  		




  ......




  66
  63
  
    
    . qq|<?xml version="1.0" encoding="${charset}"?>


  		




  67
  64
  
    
<?xml-stylesheet href="xslt/xulmenu.xsl" type="text/xsl"?>


  		




  68
  65
  
    
<!DOCTYPE doc [


  		




  69
  
  
    
<!ENTITY szlig "| . $locale->{iconv_iso8859}->convert('?') . qq|">


  		




  70
  
  
    
<!ENTITY auml "| . $locale->{iconv_iso8859}->convert('?') . qq|">


  		




  71
  
  
    
<!ENTITY ouml "| . $locale->{iconv_iso8859}->convert('?') . qq|">


  		




  72
  
  
    
<!ENTITY uuml "| . $locale->{iconv_iso8859}->convert('?') . qq|">


  		




  
  66
  
    
<!ENTITY szlig "| . $::locale->{iconv_iso8859}->convert('?') . qq|">


  		




  
  67
  
    
<!ENTITY auml "| . $::locale->{iconv_iso8859}->convert('?') . qq|">


  		




  
  68
  
    
<!ENTITY ouml "| . $::locale->{iconv_iso8859}->convert('?') . qq|">


  		




  
  69
  
    
<!ENTITY uuml "| . $::locale->{iconv_iso8859}->convert('?') . qq|">


  		




  73
  70
  
    
]>


  		




  74
  71
  
    

  		




  75
  72
  
    
<doc>


  		




  ......




  129
  126
  
    
    next if (($item eq "") || ($item =~ /--/));


  		




  130
  127
  
    

  		




  131
  128
  
    
    my $menu_item = $menu->{"${parent}${item}"};


  		




  132
  
  
    
    my $menu_title = $locale->text($item);


  		




  
  129
  
    
    my $menu_title = $::locale->text($item);


  		




  133
  130
  
    
    my $menu_text = $menu_title;


  		




  134
  131
  
    

  		




  135
  132
  
    
    my $target = "main_window";


  		












Auch abrufbar als:  Unified diff