Changeset 16924
- Timestamp:
- 2008-08-20T18:35:52+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/doc.pm
r16792 r16924 932 932 } 933 933 934 # get the actual name of the assocfile from SourceFile which is the url referring to it 935 sub assocfile_from_sourcefile { 936 my $self = shift (@_); 937 938 # get the SourceFile meta, which is a *URL* to a file on the filesystem 939 my $top_section = $self->get_top_section(); 940 my $source_file = $self->get_metadata_element($top_section, "SourceFile"); 941 942 # get the actual filename as it exists on the filesystem which this url refers to 943 $source_file = &unicode::url_to_filename($sourcefile); 944 my ($assocfilename) = $source_file =~ /([^\\\/]+)$/; 945 return $assocfilename; 946 } 947 934 948 935 949 # methods for dealing with associated files
Note:
See TracChangeset
for help on using the changeset viewer.