From e61198a359d8e50f792d227caa3e9085c6cbdf90 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 20 Aug 2007 03:32:57 +0000
Subject: POD for AM.pm and disabling audit trail deletion "feature".

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1460 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/am.pl | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'bin')

diff --git a/bin/am.pl b/bin/am.pl
index 1eaec1f0..4a8e297f 100644
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -2524,11 +2524,11 @@ sub audit_control {
       . qq| <input name=audittrail class=radio type=radio value="0" $checked{audittrailN}> |
       . $locale->text('No')
       . qq|</td>
-	</tr>
+	</tr><!-- SC: Disabling audit trail deletion
 	<tr>
 	  <th align="right">| . $locale->text('Remove Audit trail up to') . qq|</th>
 	  <td><input name=removeaudittrail size=11 title="$myconfig{dateformat}"></td>
-	</tr>
+	</tr> -->
       </table>
     </td>
   </tr>
@@ -2578,12 +2578,13 @@ sub doclose {
         $msg .= $locale->text('Audit trail disabled');
     }
 
-    $msg .= "<p>";
-    if ( $form->{removeaudittrail} ) {
-        $msg .=
-            $locale->text('Audit trail removed up to') . " "
-          . $locale->date( \%myconfig, $form->{removeaudittrail}, 1 );
-    }
+##SC: Disabling audit trail deletion
+##    $msg .= "<p>";
+##    if ( $form->{removeaudittrail} ) {
+##        $msg .=
+##            $locale->text('Audit trail removed up to') . " "
+##          . $locale->date( \%myconfig, $form->{removeaudittrail}, 1 );
+##    }
 
     $form->redirect($msg);
 
-- 
cgit v1.2.3