--- db/prgsrc/dbchgk.pm	2001/10/31 03:07:18	1.2
+++ db/prgsrc/dbchgk.pm	2001/11/20 21:33:36	1.7
@@ -1,4 +1,23 @@
 #!/usr/bin/perl
+
+=head1 NAME
+
+dbchgk.pm - модуль для работы с базой
+
+=head1 SYNOPSIS
+
+  use chgkfiles.pm  
+
+=head1 DESCRIPTION
+
+  Работа с базой
+
+
+=head1 AUTHOR
+
+Роман Семизаров
+=cut
+
 package dbchgk;
 use DBI;
 use Exporter;
@@ -271,20 +290,26 @@ sub forbidden
 sub checktable # если $param='delete' удаляет существующую таблицу,
                # если $param='ask' спрашивает, не удалить ли
                # если $param не определено -- просто удаляет.
+               # если $param='deletedata' -- удаляет из таблицы данные
 {
 	my ($TabName,$param) = @_;
 	my ($ans);
 	if (scalar(grep(/^$TabName$/i, &tablelist))) {
 	        return 1 unless $param;
-		if ($param eq 'delete') {$ans='y';}
+		if ($param =~ /delete/) {$ans='y';}
                    else {
                            print "Table $TabName exists. Do you want to delete it? ";
                            $ans = <STDIN>
                         }
 		if ($ans =~ /[yY]/) {
+		    if ($param eq 'delete') {
 			$qbase->do("DROP TABLE $TabName");
 			print "deleted table $TabName\n";
-			return 0;
+		    } else {
+			$qbase->do("DELETE FROM $TabName");
+			print "Deleted everything from $TabName\n";
+		    }
+		    return 0;
 		} else {
 			return 1
 		}