#!/usr/bin/perl

package conv;

sub to_local($)
{
    my $path = shift;
    my $searchpath;

    # truncate spaces
    while( index($path, ' ', 0) != -1 )
    {
	chop($path);
    }

    $searchpath = substr($path, 23);

    # make local file path
    $searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath;

    return($searchpath);
}

	
return(1);