Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision bce93dd4

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

  • ID bce93dd4b0fbdcee9a7b8d53bae7c7a2e3b319bc
  • Vorgänger 139ae60d
  • Nachfolger f28c26b9

CGI.pm nicht mehr als html Generator verwenden

Die restlichen Vorkommen sind jetzt noch

- header
- redirect
- cookie

und sind alle der Form: $::request->cgi->...

Unterschiede anzeigen:

bin/mozilla/sepa.pl
14 14 
use SL::ReportGenerator;
15 15 
use SL::SEPA;
16 16 
use SL::SEPA::XML;
17 
use SL::Presenter::Tag qw(checkbox_tag);
17 18 

  		




  18
  19
  
    
require "bin/mozilla/common.pl";


  		




  19
  20
  
    
require "bin/mozilla/reportgenerator.pl";


  		




  ......




  227
  228
  
    

  		




  228
  229
  
    
  my $form   = $main::form;


  		




  229
  230
  
    
  my $locale = $main::locale;


  		




  230
  
  
    
  my $cgi    = $::request->{cgi};


  		




  231
  231
  
    
  my $vc     = $form->{vc} eq 'customer' ? 'customer' : 'vendor';


  		




  232
  232
  
    

  		




  233
  233
  
    
  $form->{title}     = $vc eq 'customer' ? $::locale->text('List of bank collections') : $locale->text('List of bank transfers');


  		




  ......




  259
  259
  
    
  my $href           = build_std_url('action=bank_transfer_list', @hidden_vars);


  		




  260
  260
  
    

  		




  261
  261
  
    
  my %column_defs = (


  		




  262
  
  
    
    'selected'    => { 'text' => $cgi->checkbox(-name => 'select_all', -id => 'select_all', -label => ''), },


  		




  
  262
  
    
    'selected'    => { 'text' => checkbox_tag('select_all', id => 'select_all'), },


  		




  263
  263
  
    
    'id'          => { 'text' => $locale->text('Number'), },


  		




  264
  264
  
    
    'export_date' => { 'text' => $locale->text('Export date'), },


  		




  265
  265
  
    
    'employee'    => { 'text' => $locale->text('Employee'), },


  		




  ......




  324
  324
  
    
    $row->{$_}->{data} = $::form->format_amount(\%::myconfig, $row->{$_}->{data}, 2) for qw(sum_amounts);


  		




  325
  325
  
    

  		




  326
  326
  
    
    if (!$export->{closed}) {


  		




  327
  
  
    
      $row->{selected}->{raw_data} = $cgi->checkbox(-name => "ids[]", -value => $export->{id}, -label => '');


  		




  
  327
  
    
      $row->{selected}->{raw_data} = checkbox_tag("ids[]", value => $export->{id});


  		




  328
  328
  
    
    }


  		




  329
  329
  
    

  		




  330
  330
  
    
    $report->add_data($row);


  		




  ......




  510
  510
  
    
  my $form     =  $main::form;


  		




  511
  511
  
    
  my $myconfig = \%main::myconfig;


  		




  512
  512
  
    
  my $locale   =  $main::locale;


  		




  513
  
  
    
  my $cgi      =  $::request->{cgi};


  		




  514
  513
  
    
  my $vc       = $form->{vc} eq 'customer' ? 'customer' : 'vendor';


  		




  515
  514
  
    
  my $defaults = SL::DB::Default->get;


  		




  516
  515
  
    

  		




  ......




  599
  598
  
    

  		




  600
  599
  
    
  my $xml = $sepa_xml->to_xml();


  		




  601
  600
  
    

  		




  602
  
  
    
  print $cgi->header('-type'                => 'application/octet-stream',


  		




  
  601
  
    
  print $::request->cgi->header('-type'                => 'application/octet-stream',


  		




  603
  602
  
    
                     '-content-disposition' => 'attachment; filename="SEPA_' . $message_id . ($vc eq 'customer' ? '.cdd' : '.cct') . '"',


  		




  604
  603
  
    
                     '-content-length'      => length $xml);


  		




  605
  604
  
    
  print $xml;


  		












Auch abrufbar als:  Unified diff