===================================================================
RCS file: /cvs/wpscripts/zlist/zlist,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- wpscripts/zlist/zlist	2011/07/19 20:23:44	1.5
+++ wpscripts/zlist/zlist	2011/07/25 14:28:51	1.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: zlist,v 1.5 2011/07/19 20:23:44 yason Exp $
+# $Id: zlist,v 1.6 2011/07/25 14:28:51 yason Exp $
 use DBI;
 use Term::ANSIColor qw(:constants);
 use Time::HiRes qw(gettimeofday tv_interval);
@@ -80,7 +80,7 @@
 
 
 	# fetch probas
-	db_fetch(2);
+	db_fetch(1);
 	
 #	print "****** probas ($#numcard) ******\n";
 	print BOLD WHITE ON_BLUE "Очередь цветопроб". RESET . " ($#numcard штук) :\n";
@@ -140,10 +140,9 @@
 	$searchpath = substr($path[$i], 13);
 	
 	# hardcoded
-	# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 20 symbols)
-	$path[$i] = substr($path[$i], 21) if ($type_file == 0);
-#	$path[$i] = substr($path[$i], 34) if ($type_file == 1);
-#	$path[$i] = substr($path[$i], 34) if ($type_file == 2);
+	# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols)
+	$path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki
+	$path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba
 
     	    # make local file path
 	    $searchpath =~ tr/\\/\//;