Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b66801e2

Von Tamino Steinert vor 11 Monaten hinzugefügt

  • ID b66801e2ac8aab53073b1b4e96e43a1d7a67f15f
  • Vorgänger a304b407
  • Nachfolger fefc824c

S:Presenter:Record: Alias Funktion "show" in verwendeten Objekten

Verknüpfte Belege nutzt folgende Objekte:
    DeliveryOrder, Dunning, EmailJournal, GL, Invoice, Letter, Order,
    Reclamation, RequirementSpec, ShopOrder

Unterschiede anzeigen:

SL/Presenter/EmailJournal.pm
9 9 
use SL::DB::EmailJournalAttachment;
10 10 

  		




  11
  11
  
    
use Exporter qw(import);


  		




  12
  
  
    
our @EXPORT_OK = qw(email_journal entry_status attachment_preview);


  		




  
  12
  
    
our @EXPORT_OK = qw(show email_journal entry_status attachment_preview);


  		




  13
  13
  
    

  		




  14
  14
  
    
use Carp;


  		




  15
  15
  
    

  		




  
  16
  
    
sub show {goto &email_journal};


  		




  
  17
  
    

  		




  16
  18
  
    
sub email_journal {


  		




  17
  19
  
    
  my ($email_journal_entry, %params) = @_;


  		




  18
  20
  
    

  		




  ......




  91
  93
  
    

  		




  92
  94
  
    
  my $journal_entry = SL::DB::Manager::EmailJournal->get_first();


  		




  93
  95
  
    
  my $html   = SL::Presenter::EmailJournal::email_journal($journal_entry, display => 'inline');


  		




  
  96
  
    
  # or


  		




  
  97
  
    
  my $html   = $journal_entry->presenter->show();


  		




  94
  98
  
    

  		




  95
  99
  
    
  # pp $html


  		




  96
  100
  
    
  # <a href="controller.pl?action=EmailJournal/show&amp;id=1">IDEV Daten fuer webdav/idev/2017-KW-26.csv erzeugt</a>


  		




  ......




  99
  103
  
    

  		




  100
  104
  
    
=over 4


  		




  101
  105
  
    

  		




  
  106
  
    
=item C<show $object %params>


  		




  
  107
  
    

  		




  
  108
  
    
Alias for C<email_journal $object %params>.


  		




  
  109
  
    

  		




  102
  110
  
    
=item C<email_journal $object, %params>


  		




  103
  111
  
    

  		




  104
  112
  
    
Returns a rendered version (actually an instance of


  		












Auch abrufbar als:  Unified diff