Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision aae0a190

Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt

  • ID aae0a190cc593b97fad6a1a2ad782940d8e31ad2
  • Vorgänger 727b4399
  • Nachfolger ce67e845

Maske 'Artikel nicht in DB; neu anlegen?' auch funktionierenden 'Zurück'-Button anzeigen

Unterschiede anzeigen:

bin/mozilla/ic.pl
32 32
#======================================================================
33 33

  
34 34
use POSIX qw(strftime);
35
use List::Util qw(max);
35
use List::Util qw(first max);
36 36
use List::MoreUtils qw(any);
37 37

  
38 38
use SL::AM;
......
117 117

  
118 118
  $form->get_lists('partsgroup'    => 'ALL_PARTSGROUPS');
119 119
  print $form->parse_html_template('ic/search', { %is_xyz,
120
                                                  dateformat => $myconfig{dateformat}, 
120
                                                  dateformat => $myconfig{dateformat},
121 121
                                                  limit => $myconfig{vclimit}, });
122 122

  
123 123
  $lxdebug->leave_sub();
......
2042 2042
  $main::lxdebug->leave_sub();
2043 2043
}
2044 2044

  
2045
sub back_to_record {
2046
  _check_io_auth();
2047

  
2048
  $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2049
  $::form->{rowcount}--;
2050
  $::form->{action}   = 'display_form';
2051
  $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2052
  $::form->redirect;
2053
}
2054

  
2045 2055
sub continue { call_sub($form->{"nextsub"}); }
2056

  
2057
sub dispatcher {
2058
  my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2059
  $::form->error($::locale->text('No action defined.')) unless $action;
2060

  
2061
  $::form->{dispatched_action} = $action;
2062
  call_sub($action);
2063
}

Auch abrufbar als: Unified diff