Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ba0fb69c

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

  • ID ba0fb69ce21dd281a09d91418785fa87203f9e6c
  • Vorgänger 9414d575
  • Nachfolger a1ee1265

sellprice information test commit

Unterschiede anzeigen:

SL/Controller/Base.pm
7 7 
use Carp;
8 8 
use IO::File;
9 9 
use List::Util qw(first);
10 
use SL::Request qw(flatten);
11 
use SL::MoreCommon qw(uri_encode);
10 12 

  		




  11
  13
  
    
#


  		




  12
  14
  
    
# public/helper functions


  		




  ......




  21
  23
  
    
  my $controller  = delete($params{controller}) || $self->_controller_name;


  		




  22
  24
  
    
  my $action      = delete($params{action})     || 'dispatch';


  		




  23
  25
  
    
  $params{action} = "${controller}/${action}";


  		




  24
  
  
    
  my $query       = join('&', map { $::form->escape($_) . '=' . $::form->escape($params{$_}) } keys %params);


  		




  
  26
  
    
  my $query       = join '&', map { uri_encode($_->[0]) . '=' . uri_encode($_->[1]) } @{ flatten(\%params) };


  		




  25
  27
  
    

  		




  26
  28
  
    
  return "controller.pl?${query}";


  		




  27
  29
  
    
}


  		












Auch abrufbar als:  Unified diff