===================================================================
RCS file: /cvs/wpscripts/zlist/zlist,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- wpscripts/zlist/zlist	2011/07/19 16:49:24	1.3
+++ wpscripts/zlist/zlist	2011/07/19 17:02:54	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: zlist,v 1.3 2011/07/19 16:49:24 yason Exp $
+# $Id: zlist,v 1.4 2011/07/19 17:02:54 yason Exp $
 use DBI;
 use Term::ANSIColor qw(:constants);
 use Time::HiRes qw(gettimeofday tv_interval);
@@ -140,13 +140,14 @@
 	$searchpath = substr($path[$i], 13);
 	
 	# hardcoded
-#	$path[$i] = substr($path[$i], 30) if ($type_file == 0);
+	# 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);
 
     	    # make local file path
 	    $searchpath =~ tr/\\/\//; 
-	    #$searchpath = '/mnt/maket/' . $searchpath;
+	    $searchpath = '/mnt/maket/' . $searchpath;