Changeset 6812

Timestamp:

2004-02-17T09:56:18+13:00 (20 years ago)

Author:

mdewsnip

Message:

Additions for the GsdlCollageApplet: a classifier that displays a collage of the images in a collection. By Katrina Edgar (kde2).

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -386 +386 @@
     $link =~ s/\n/ /g;
     my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);
-    return $front . $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section) . $back;
+
+    my $img_file =  $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section);
+    my $anchor_name = $img_file;
+    $anchor_name =~ s/^.*\///;
+    $anchor_name = "<a name=\"$anchor_name\">";
+
+    return $anchor_name . $front . $img_file . $back;
 }