version 1.5, 2011/07/19 20:23:44 |
version 1.6, 2011/07/25 14:28:51 |
|
|
|
|
|
|
# fetch probas |
# fetch probas |
db_fetch(2); |
db_fetch(1); |
|
|
# print "****** probas ($#numcard) ******\n"; |
# print "****** probas ($#numcard) ******\n"; |
print BOLD WHITE ON_BLUE "Очередь цветопроб". RESET . " ($#numcard штук) :\n"; |
print BOLD WHITE ON_BLUE "Очередь цветопроб". RESET . " ($#numcard штук) :\n"; |
|
|
$searchpath = substr($path[$i], 13); |
$searchpath = substr($path[$i], 13); |
|
|
# hardcoded |
# hardcoded |
# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 20 symbols) |
# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols) |
$path[$i] = substr($path[$i], 21) if ($type_file == 0); |
$path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki |
# $path[$i] = substr($path[$i], 34) if ($type_file == 1); |
$path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba |
# $path[$i] = substr($path[$i], 34) if ($type_file == 2); |
|
|
|
# make local file path |
# make local file path |
$searchpath =~ tr/\\/\//; |
$searchpath =~ tr/\\/\//; |