Changeset 16924 for gsdl/trunk/perllib

Timestamp:

2008-08-20T18:35:52+12:00 (16 years ago)

Author:

ak19

Message:

Added subroutine assocfile_from_sourcefile which works out the name of the associated file from the SourceFile metadata (which is the url ref to the associated file as it is name d on the filesystem).

File:

• gsdl/trunk/perllib/doc.pm (modified) (1 diff)

gsdl/trunk/perllib/doc.pm

@@ -932 +932 @@
 }
 
+# get the actual name of the assocfile from SourceFile which is the url referring to it 
+sub assocfile_from_sourcefile {
+    my $self = shift (@_);
+    
+    # get the SourceFile meta, which is a *URL* to a file on the filesystem
+    my $top_section = $self->get_top_section();
+    my $source_file = $self->get_metadata_element($top_section, "SourceFile");
+
+    # get the actual filename as it exists on the filesystem which this url refers to
+    $source_file = &unicode::url_to_filename($sourcefile); 
+    my ($assocfilename) = $source_file =~ /([^\\\/]+)$/;
+    return $assocfilename;
+}
+
 
 # methods for dealing with associated files