Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 575f3ac7

Von Moritz Bunkus vor fast 8 Jahren hinzugefügt

  • ID 575f3ac727df48ba0ae5624e4de0ff0a7fd9f37f
  • Vorgänger 27589d5e
  • Nachfolger 6bcabf17

PrintOptions-Helfer: sub opthash Paket-lokal anstelle von sub-lokal

Wir nutzen Named-Sub-in-Named-Sub nie, daher auch hier
nicht. Ursprünglich war die Funktion in bin/mozilla/io.pl, da ergab es
noch Sinn, um den Funktionsnamensraum nicht zu überladen. Aber nach dem
Verschieben in ein eigenes Paket ist das nicht mehr nötig.

Unterschiede anzeigen:

SL/Helper/PrintOptions.pm
4 4 

  		




  5
  5
  
    
use List::MoreUtils qw(any);


  		




  6
  6
  
    

  		




  
  7
  
    
sub opthash { +{ value => shift, selected => shift, oname => shift } }


  		




  7
  8
  
    

  		




  8
  9
  
    
# generate the printing options displayed at the bottom of oe and is forms.


  		




  9
  10
  
    
# this function will attempt to guess what type of form is displayed, and will generate according options


  		




  ......




  25
  26
  
    
  my $prefix = $options->{dialog_name_prefix} || '';


  		




  26
  27
  
    

  		




  27
  28
  
    
  # names 3 parameters and returns a hashref, for use in templates


  		




  28
  
  
    
  sub opthash { +{ value => shift, selected => shift, oname => shift } }


  		




  29
  29
  
    
  my (@FORMNAME, @LANGUAGE_ID, @FORMAT, @SENDMODE, @MEDIA, @PRINTER_ID, @SELECTS) = ();


  		




  30
  30
  
    

  		




  31
  31
  
    
  # note: "||"-selection is only correct for values where "0" is _not_ a correct entry


  		












Auch abrufbar als:  Unified diff