===================================================================
RCS file: /cvs/wpscripts/ztransfer/fetch.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- wpscripts/ztransfer/fetch.pm	2011/06/03 09:28:47	1.1
+++ wpscripts/ztransfer/fetch.pm	2011/07/20 07:50:57	1.2
@@ -1,14 +1,12 @@
 #!/usr/bin/perl
-# $Id: fetch.pm,v 1.1 2011/06/03 09:28:47 yason Exp $
+# $Id: fetch.pm,v 1.2 2011/07/20 07:50:57 yason Exp $
 package fetch;
 use db;
 use log;  # bad! only for log::filelist()
 use warnings;
 my $EXPAND_SYMLINKS = 1;
 my $QUERY_Z = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=0";
-my $QUERY_J = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=1";
-my $QUERY_P = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=2";
-my $QUERY_T = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=3";
+my $QUERY_P = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=1";
 
 my $sth;
 
@@ -39,9 +37,9 @@
 	if($dbids[$i])	# element exists (THIS CODE SHOULD BE FIXED)
 	{
 	    #convert samba-paths to local unix paths
-	    $dbpaths[$i] = substr($dbpaths[$i], 23);	# remove \\fileserver\wideprint\
+	    $dbpaths[$i] = substr($dbpaths[$i], 13);	# remove \\fileserver\
 	    $dbpaths[$i] =~ tr/\\/\//;			# convert each \ to /
-	    $dbpaths[$i] = '/WIDEPRINT/' . $dbpaths[$i];
+	    $dbpaths[$i] = '/mnt/rmt_maket/' . $dbpaths[$i];
 	    $dbpaths[$i] = substr($dbpaths[$i], 0, ( index($dbpaths[$i], ' ', 0) ) );
 		#
 		# We must not save non-existent local file in array!