Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision afe54bed

Von Moritz Bunkus vor fast 17 Jahren hinzugefügt

  • ID afe54bed5b9aabdeada2ebcc1c95fc2b8bf1022e
  • Vorgänger 89015f89
  • Nachfolger fdb97241

Beim Verschicken von Belegen per Email den Betreff analog zum Namen des Anhangs vorbelegen, sofern der Betreff nicht vom Aufrufer vorgegeben wird.

Unterschiede anzeigen:

SL/Form.pm
1246 1246 
  return $formname_translations{$formname}
1247 1247 
}
1248 1248 

  		




  1249
  
  
    
sub generate_attachment_filename {


  		




  
  1249
  
    
sub get_number_prefix_for_type {


  		




  1250
  1250
  
    
  my ($self) = @_;


  		




  1251
  1251
  
    

  		




  1252
  
  
    
  my $attachment_filename = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());


  		




  1253
  1252
  
    
  my $prefix =


  		




  1254
  1253
  
    
      (first { $self->{type} eq $_ } qw(invoice credit_note)) ? 'inv'


  		




  1255
  1254
  
    
    : ($self->{type} =~ /_quotation$/)                        ? 'quo'


  		




  1256
  1255
  
    
    : ($self->{type} =~ /_delivery_order$/)                   ? 'do'


  		




  1257
  1256
  
    
    :                                                           'ord';


  		




  1258
  1257
  
    

  		




  
  1258
  
    
  return $prefix;


  		




  
  1259
  
    
}


  		




  
  1260
  
    

  		




  
  1261
  
    
sub get_extension_for_format {


  		




  
  1262
  
    
  my ($self)    = @_;


  		




  
  1263
  
    

  		




  
  1264
  
    
  my $extension = $self->{format} =~ /pdf/i          ? ".pdf"


  		




  
  1265
  
    
                : $self->{format} =~ /postscript/i   ? ".ps"


  		




  
  1266
  
    
                : $self->{format} =~ /opendocument/i ? ".odt"


  		




  
  1267
  
    
                : $self->{format} =~ /html/i         ? ".html"


  		




  
  1268
  
    
                :                                      "";


  		




  
  1269
  
    

  		




  
  1270
  
    
  return $extension;


  		




  
  1271
  
    
}


  		




  
  1272
  
    

  		




  
  1273
  
    
sub generate_attachment_filename {


  		




  
  1274
  
    
  my ($self) = @_;


  		




  
  1275
  
    

  		




  
  1276
  
    
  my $attachment_filename = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());


  		




  
  1277
  
    
  my $prefix              = $self->get_number_prefix_for_type();


  		




  
  1278
  
    

  		




  1259
  1279
  
    
  if ($attachment_filename && $self->{"${prefix}number"}) {


  		




  1260
  
  
    
    $attachment_filename .= "_" . $self->{"${prefix}number"}


  		




  1261
  
  
    
                            . (  $self->{format} =~ /pdf/i          ? ".pdf"


  		




  1262
  
  
    
                               : $self->{format} =~ /postscript/i   ? ".ps"


  		




  1263
  
  
    
                               : $self->{format} =~ /opendocument/i ? ".odt"


  		




  1264
  
  
    
                               : $self->{format} =~ /html/i         ? ".html"


  		




  1265
  
  
    
                               :                                      "");


  		




  1266
  
  
    
    $attachment_filename =  $main::locale->quote_special_chars('filenames', $attachment_filename);


  		




  1267
  
  
    
    $attachment_filename =~ s|[\s/\\]+|_|g;


  		




  
  1280
  
    
    $attachment_filename .=  "_" . $self->{"${prefix}number"} . $self->get_extension_for_format();


  		




  
  1281
  
    
    $attachment_filename  =  $main::locale->quote_special_chars('filenames', $attachment_filename);


  		




  
  1282
  
    
    $attachment_filename  =~ s|[\s/\\]+|_|g;


  		




  1268
  1283
  
    
  } else {


  		




  1269
  1284
  
    
    $attachment_filename = "";


  		




  1270
  1285
  
    
  }


  		




  ......




  1272
  1287
  
    
  return $attachment_filename;


  		




  1273
  1288
  
    
}


  		




  1274
  1289
  
    

  		




  
  1290
  
    
sub generate_email_subject {


  		




  
  1291
  
    
  my ($self) = @_;


  		




  
  1292
  
    

  		




  
  1293
  
    
  my $subject = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());


  		




  
  1294
  
    
  my $prefix  = $self->get_number_prefix_for_type();


  		




  
  1295
  
    

  		




  
  1296
  
    
  if ($subject && $self->{"${prefix}number"}) {


  		




  
  1297
  
    
    $subject .= " " . $self->{"${prefix}number"}


  		




  
  1298
  
    
  }


  		




  
  1299
  
    

  		




  
  1300
  
    
  return $subject;


  		




  
  1301
  
    
}


  		




  
  1302
  
    

  		




  1275
  1303
  
    
sub cleanup {


  		




  1276
  1304
  
    
  $main::lxdebug->enter_sub();


  		




  1277
  1305
  
    

  		












  

    
      bin/mozilla/io.pl
    
  





  967
  967
  
    
  $form->{media}    = "email";


  		




  968
  968
  
    

  		




  969
  969
  
    
  my $attachment_filename = $form->generate_attachment_filename();


  		




  
  970
  
    
  my $subject             = $form->{subject} || $form->generate_email_subject();


  		




  970
  971
  
    

  		




  971
  972
  
    
  $form->{"fokus"} = $form->{"email"} ? "Form.subject" : "Form.email";


  		




  972
  973
  
    
  $form->header;


  		




  ......




  979
  980
  
    
  print $form->parse_html_template('generic/edit_email',


  		




  980
  981
  
    
                                   { title           => $title,


  		




  981
  982
  
    
                                     a_filename      => $attachment_filename,


  		




  
  983
  
    
                                     subject         => $subject,


  		




  982
  984
  
    
                                     _print_options_ => print_options('inline' => 1),


  		




  983
  985
  
    
                                     HIDDEN          => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ],


  		




  984
  986
  
    
                                     SHOW_BCC        => $myconfig{role} eq 'admin' });


  		












Auch abrufbar als:  Unified diff