Changeset 3148 for trunk/gsdl/perllib/mgppbuildproc.pm
- Timestamp:
- 2002-06-17T10:28:16+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuildproc.pm
r2771 r3148 272 272 273 273 foreach my $assoc_file (@{$doc_obj->get_assoc_files()}) { 274 # if assoc file contains directory structure of275 # its own use it, otherwise use HASH... directory276 if ($assoc_file->[1] =~ /[\/\\]/) {277 $afile = &util::filename_cat($self->{'assocdir'}, 274 # if assoc file starts with a slash, we put it relative to the assoc 275 # dir, otherwise it is relative to the HASH... directory 276 if ($assoc_file->[1] =~ m@^[/\\]@) { 277 $afile = &util::filename_cat($self->{'assocdir'},$assoc_file->[1]); 278 278 } else { 279 279 $afile = &util::filename_cat($self->{'assocdir'}, $archivedir, $assoc_file->[1]);
Note:
See TracChangeset
for help on using the changeset viewer.