From 7f2547ce1bd013310aaa60a4996d6c8412a5e16a Mon Sep 17 00:00:00 2001 From: tetragon Date: Fri, 14 Sep 2007 00:32:13 +0000 Subject: Getting rid of the last print HTML from bin/ca.pl git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1592 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/ca.pl | 370 ++++++++++++++++++++++---------------------------------------- 1 file changed, 133 insertions(+), 237 deletions(-) (limited to 'bin') diff --git a/bin/ca.pl b/bin/ca.pl index 09cc8dbe..68ffdc5f 100644 --- a/bin/ca.pl +++ b/bin/ca.pl @@ -190,114 +190,69 @@ sub list { # get departments $form->all_departments( \%myconfig ); + my $selectdepartment; if ( @{ $form->{all_department} } ) { - $form->{selectdepartment} = "