2 $monLibrary= dirname(__FILE__) .
"/../library";
3 require_once(
"$monLibrary/cu_top.i");
4 require_once(
"$monLibrary/ck_hticket.i");
6 if (!CheckPerm($link, $Hu, basename($_SERVER[
'SCRIPT_NAME']), $_SERVER[
'REMOTE_ADDR'])) {
9 header(
"Location: /hcuadm/hcu_noperm.prg");
13 $dms_ok=array(
'w'=>
'digits',
'user_name'=>
'string',
'wc'=>
'string',
'set_trunc'=>
'string',
'unset_trunc'=>
'string');
17 if (isset($w) ==
false || $w > 2) $w =
"1";
24 cu_header(
"Truncate History");
25 $sql =
"SELECT histtrunc FROM cuadmin WHERE user_name = '$user_name'";
26 $sql_rs = db_query($sql, $dbh);
27 $sql_row = db_fetch_array($sql_rs, 0);
28 $tr_hist = $sql_row[
'histtrunc'];
31 <form action=
"tr_hist.prg" method=
"post">
32 <input type=
"hidden" value=
"<?php echo $user_name; ?>" name=
"user_name">
33 <input type=
"hidden" value=
"<?php echo $wc; ?>" name=
"wc">
34 <input type=
"hidden" value=
"2" name=
"w">
35 <table border=0 align=center cellpadding=3 cellspacing=0 width=500
class=
"dmsbg"><tr><td>
36 <table border=0 cellpadding=1 cellspacing=0 width=
"100%" bgcolor=white>
38 <td
class=
'bar' align=center>
43 <td align=center
class=
'dtl'>
44 <font size=
"4" color=
"red">
46 This will
delete the history records of
this Credit Union. <br>Be sure
this is what you want to
do 52 Currently truncate history is
set to <span style=
"font-weight: bold; color: red;" class=
"err2"><?php echo ($tr_hist == 1 ?
"YES" :
"NO"); ?></span>
57 Truncate history the next time
this credit
union is uploaded?
62 <input type=
"submit" value=
"Yes" name=
"set_trunc">
63 <input type=
"submit" value=
"No" name=
"unset_trunc">
72 if ((isset($set_trunc) || isset($unset_trunc)) && isset($user_name)) {
73 if (isset($set_trunc))
77 $sql =
"UPDATE cuadmin SET histtrunc = '$val' WHERE user_name = '$user_name'";
78 if (!$sql_rs = db_query($sql, $dbh))
87 cu_header(
"Truncate History");
89 cu_message(
"Unexpected errors!<br>Try again.");
93 header(
"Location: $infourl/hcuadm/cuview.prg?user_name=$user_name&wc=$wc");