Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4f82ce00

Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt

  • ID 4f82ce002979fbe9a59d5e69a53e3697b7df20c1
  • Vorgänger 602a4d98
  • Nachfolger 58ff4d6a

form_footer in ic.pl in Template ausgelagert.

Unterschiede anzeigen:

SL/MoreCommon.pm
3 3 
require Exporter;
4 4 
@ISA = qw(Exporter);
5 5 

  		




  6
  
  
    
@EXPORT = qw(save_form restore_form compare_numbers);


  		




  
  6
  
    
@EXPORT = qw(save_form restore_form compare_numbers any);


  		




  7
  7
  
    

  		




  8
  8
  
    
use YAML;


  		




  9
  9
  
    

  		




  ......




  76
  76
  
    
  return $a <=> $b;


  		




  77
  77
  
    
}


  		




  78
  78
  
    

  		




  
  79
  
    
sub any (&@) {


  		




  
  80
  
    
  my $f = shift;


  		




  
  81
  
    
  return if ! @_;


  		




  
  82
  
    
  for (@_) {


  		




  
  83
  
    
    return 1 if $f->();


  		




  
  84
  
    
  }


  		




  
  85
  
    
  return 0;


  		




  
  86
  
    
}


  		




  79
  87
  
    

  		




  80
  88
  
    
1;


  		












Auch abrufbar als:  Unified diff