===================================================================
RCS file: /cvs/wpscripts/zlist/zlist,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- wpscripts/zlist/zlist	2012/02/02 07:41:05	1.9
+++ wpscripts/zlist/zlist	2012/04/01 06:53:02	1.10
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: zlist,v 1.9 2012/02/02 07:41:05 yason Exp $
+# $Id: zlist,v 1.10 2012/04/01 06:53:02 yason Exp $
 use DBI;
 use Term::ANSIColor qw(:constants);
 use Time::HiRes qw(gettimeofday tv_interval);
@@ -106,10 +106,10 @@
 	}
 print "\n";
 
-# fetch zayavki_
+# fetch zayavki_jpg
 db_fetch(3);
 
-print BOLD WHITE ON_BLUE "zayavki_ queue". RESET . " ($#numcard pcs.) :\n";
+print BOLD WHITE ON_BLUE "zayavki_jpg queue". RESET . " ($#numcard pcs.) :\n";
 	$i = 0;
 	while( ($numcard[$i]) )
 	{
@@ -119,10 +119,10 @@
 	}
 print "\n";
 
-# fetch proba_
+# fetch proba_jpg
 db_fetch(4);
 
-print BOLD WHITE ON_BLUE "proba_ queue". RESET . " ($#numcard pcs.) :\n";
+print BOLD WHITE ON_BLUE "proba_jpg queue". RESET . " ($#numcard pcs.) :\n";
 	$i = 0;
 	while( ($numcard[$i]) )
 	{
@@ -183,8 +183,8 @@
 	$path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki
 	$path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba
 	$path[$i] = substr($path[$i], 16) if ($type_file == 2); #TT
-	$path[$i] = substr($path[$i], 22) if ($type_file == 3); #zayavki_
-	$path[$i] = substr($path[$i], 19) if ($type_file == 4); #proba_
+	$path[$i] = substr($path[$i], 25) if ($type_file == 3); #zayavki_jpg
+	$path[$i] = substr($path[$i], 23) if ($type_file == 4); #proba_jpg
 
     	    # make local file path
 	    $searchpath =~ tr/\\/\//;