Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 95795aa0

Von Thomas Heck vor fast 11 Jahren hinzugefügt

  • ID 95795aa002c50ae10bf8306ff43305fe6bdd63bb
  • Vorgänger 8fbb71e4
  • Nachfolger affafa23

"Kunden/Lieferanten Erfassen"-Button führt zum Controller

Unterschiede anzeigen:

bin/mozilla/ct.pl
54 54 
use SL::DB::Default;
55 55 
use SL::Helper::Flash;
56 56 
use SL::ReportGenerator;
57 
use SL::MoreCommon qw(uri_encode);
57 58 

  		




  58
  59
  
    
require "bin/mozilla/common.pl";


  		




  59
  60
  
    
require "bin/mozilla/reportgenerator.pl";


  		




  ......




  66
  67
  
    
sub add {


  		




  67
  68
  
    
  $main::lxdebug->enter_sub();


  		




  68
  69
  
    

  		




  69
  
  
    
  $main::auth->assert('customer_vendor_edit');


  		




  70
  
  
    

  		




  71
  
  
    
  my $form     = $main::form;


  		




  72
  
  
    
  my %myconfig = %main::myconfig;


  		




  73
  
  
    

  		




  74
  
  
    
  $form->{title}    = "Add";


  		




  75
  
  
    
  $form->{callback} = "$form->{script}?action=add&db=$form->{db}" unless $form->{callback};


  		




  
  70
  
    
  my $url = 'controller.pl?action=CustomerVendor/add&db='. ($::form->{db} eq 'vendor' ? 'vendor' : 'customer');


  		




  76
  71
  
    

  		




  77
  
  
    
  CT->populate_drop_down_boxes(\%myconfig, \%$form);


  		




  
  72
  
    
  if ( $::form->{callback} ) {


  		




  
  73
  
    
    $url .= '&callback='. uri_encode($::form->{callback});


  		




  
  74
  
    
  }


  		




  78
  75
  
    

  		




  79
  
  
    
  &form_header;


  		




  80
  
  
    
  &form_footer;


  		




  
  76
  
    
  print $::form->redirect_header($url);


  		




  81
  77
  
    

  		




  82
  78
  
    
  $main::lxdebug->leave_sub();


  		




  83
  79
  
    
}


  		












Auch abrufbar als:  Unified diff