1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90
91. 91
92. 92
93. 93
94. 94
95. 95

...
$q = new CGI;

# дБООЩЕ УПФТХДОЙЛБ
$id 	= Trim ($q -> param ('id'));
$email1 = Trim ($q -> param ('email1'));
$email2 = Trim ($q -> param ('email2'));
$email3 = Trim ($q -> param ('email3'));
$tel1 	= Trim ($q -> param ('tel1'));
$tel2 	= Trim ($q -> param ('tel2'));
$fio 	= Trim ($q -> param ('fio'));
$prim 	= Trim ($q -> param ('prim'));
$login 	= Trim ($q -> param ('login'));
...
############################################################
############################################################
# жПТНБ ТЕДБЛФЙТПЧБОЙС УПФТХДОЙЛБ
sub Form_Edit_Employee {
&Top_M ("$name_prog :: тЕД. ID='$id'&&$bookcgi");

if ($act eq "edt") { &Exec_Edit_Employee (); }

my $sql = "SELECT fio, login, email, tel1, tel2, email2, email3, icq, prim FROM managers WHERE id='$id'";
my $res = $conn -> exec ($sql);

my $fio       = $res -> getvalue (0, 0);
my $login     = $res -> getvalue (0, 1);
my $email1    = $res -> getvalue (0, 2);
my $tel1      = $res -> getvalue (0, 3);
my $tel2      = $res -> getvalue (0, 4);
my $email2    = $res -> getvalue (0, 5);
my $email3    = $res -> getvalue (0, 6);
my $icq       = $res -> getvalue (0, 7);
my $prim      = $res -> getvalue (0, 8);

print "<form action='$bookcgi' method=post>
<input type=hidden name='id' value='$id'>
<input type=hidden name=go_back value='$go_back'>
<input type=hidden name=act value='edt'>
<table cellpadding=2 colpadding=2 width=100\%>
<tr bgcolor='$tabcolor7' align=center><td colspan=2>
<b><font color='white'>жПТНБ ТЕДБЛФЙТПЧБОЙС</font></b></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>ж.й.п.:</td><td>
<input name='fio' type=text size='60' value='$fio'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>мПЗЙО:</td><td>
<input name='login' type=text size='60' value='$login'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 1:</td><td>
<input name='email1' type=text size='60' value='$email1'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 2:</td><td>
<input name='email2' type=text size='60' value='$email2'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>E-Mail 3:</td><td>
<input name='email3' type=text size='60' value='$email3'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>фЕМЕЖПО 1;</td><td>
<input name='tel1' type=text size='60' value='$tel1'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>фЕМЕЖПО 2:</td><td>
<input name='tel2' type=text size='60' value='$tel2'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>ICQ:</td><td>
<input name='icq' type=text size='60' value='$icq'></td></tr>
<tr bgcolor='$tabcolor4'><td align='right'>рТЙНЕЮБОЙЕ:</td><td>
<textarea name=prim cols=80 rows=6>$prim</textarea></td></tr>
<tr bgcolor='$tabcolor6'><td align='center' colspan=2>
<input type=submit value='йЪНЕОЙФШ'></td></tr>
</table></form>

[ <a href='JavaScript:history.go(-$go_back)'>$lang_histback</a> ]
[ <a href='$bookcgi'>$lang_startpage</a> ]\n";

&Bottom_M ();
exit;
}

############################################################
############################################################
# тЕЪХМШФБФ ТЕДБЛФЙТПЧБОЙС УПФТХДОЙЛБ
sub Exec_Edit_Employee {
if ($fio eq "") {
print "<font color=red><b>хЛБЦЙФЕ ж.й.п.!</b></font>";
return;
}
[...]
my $sql = "UPDATE managers SET fio='$fio', login='$login', email='$email1',
tel1='$tel1', tel2='$tel2', email2='$email2', email3='$email3', icq='$icq',
prim='$prim', dt_modify='now()', idm_modify='$idm' WHERE id='$id'";
my $res = $conn -> exec ($sql);

my $oid = $res -> cmdTuples;

if ($oid eq 0) {
print "<font color=red><b>пЫЙВЛБ РТЙ ТЕДБЛФЙТПЧБОЙЙ УПФТХДОЙЛБ У ID='$id'.</b></font>";
} else {
print "<font color=green><b>дБООЩЕ ЙЪНЕОЕОЩ ХУРЕЫОП.</b></font>";
}

$go_back++;
}