X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b5f4fd07ddbca748154800e2b72a2420d64898c5..4347f0dfd8aa1e4c54a08f26e2d8eb5d489d41b2:/bin/mozilla/gl.pl diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl index 189d1c481..ce1d1a9dd 100644 --- a/bin/mozilla/gl.pl +++ b/bin/mozilla/gl.pl @@ -211,231 +211,27 @@ sub edit { sub search { - $main::lxdebug->enter_sub(); - - $main::auth->assert('general_ledger'); - - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; - my $cgi = $main::cgi; + $::lxdebug->enter_sub; + $::auth->assert('general_ledger'); - $form->{title} = $locale->text('Journal'); - - $form->all_departments(\%myconfig); - - # departments - if (@{ $form->{all_departments} || [] }) { - $form->{selectdepartment} = "