version 1.17, 2007/01/12 21:30:58
|
version 1.18, 2007/01/19 06:09:08
|
Line 1127 sub process_portfolio_metadata {
|
Line 1127 sub process_portfolio_metadata {
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|
## Utilities originally in searchcat.pl. Moved to be more widely available. |
|
|
|
sub getfile { |
sub getfile { |
my $file = shift(); |
my $file = shift(); |
if (! -e $file ) { |
if (! -e $file ) { |