Changeset 8684
- Timestamp:
- 2004-11-26T10:51:35+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/OAIPlug.pm
r8166 r8684 125 125 ## my $source_file = &util::filename_cat($base_dir, $file); 126 126 127 my $url_base_dir = $filename;128 $url_base_dir =~ s/^(.*)\/(.*?)$/$1/; 127 my $url_base_dir = &util::filename_head($filename); 128 129 129 ## print STDERR "*** url base dir = $url_base_dir/$url_array->[0]\n"; 130 130 print $outhandle "OAIPlug: passing metadata on to $url_array->[0]\n"
Note:
See TracChangeset
for help on using the changeset viewer.