Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b3bde077

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID b3bde077a6df1550915b1433b2cabb4cf74ab681
  • Vorgänger 29b7a641
  • Nachfolger 2ef92b3a

Lieferanten/Kunden Namen richtig escapen

Fix für Bug 1195.

Unterschiede anzeigen:

bin/mozilla/oe.pl
317 317
  $TMPL_VAR{department_labels}     = sub { "$_[0]->{description}--$_[0]->{id}" };
318 318

  
319 319
  # vendor/customer
320
  $TMPL_VAR{vc_keys} = sub { "$_[0]->{name}--$_[0]->{id}" };
320
  $TMPL_VAR{vc_keys} = sub { E($_[0]->{name}) . "--$_[0]->{id}" };
321 321
  $TMPL_VAR{vclimit} = $myconfig{vclimit};
322 322
  $TMPL_VAR{vc_select} = "customer_or_vendor_selection_window('$form->{vc}', '', @{[ $form->{vc} eq 'vendor' ? 1 : 0 ]}, 0)";
323 323
  push @custom_hiddens, "$form->{vc}_id";
......
530 530
        # hier werden parts (Artikeleigenschaften) aus item_list (retrieve_item aus IS.pm)
531 531
        # (item wahrscheinlich synonym für parts) entsprechend in die form geschrieben ...
532 532

  
533
        # Wäre dieses Mapping nicht besser in retrieve_items aufgehoben? 
533
        # Wäre dieses Mapping nicht besser in retrieve_items aufgehoben?
534 534
        #(Eine Funktion bekommt Daten -> ARBEIT -> Rückgabe DATEN)
535 535
        #  Das quot sieht doch auch nach Überarbeitung aus ... (hmm retrieve_items gibt es in IS und IR)
536 536
        map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }    qw(partnumber description unit);
537 537
        map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
538
        
538

  
539 539
        # ... deswegen muss die prüfung, ob es sich um einen nicht rabattierfähigen artikel handelt später erfolgen (Bug 1136)
540 540
        $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"};
541 541
        $form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne "";
......
638 638
  # constants and subs for template
639 639
  $form->{jsscript}        = 1;
640 640
  $form->{employee_labels} = sub { $_[0]->{"name"} || $_[0]->{"login"} };
641
  $form->{vc_keys}         = sub { "$_[0]->{name}--$_[0]->{id}" };
641
  $form->{vc_keys}         = sub { E($_[0]->{name}) . "--$_[0]->{id}" };
642 642
  $form->{salesman_labels} = $form->{employee_labels};
643 643

  
644 644
  $form->header();

Auch abrufbar als: Unified diff