[interchange-cvs] interchange - heins modified lib/Vend/Interpolate.pm

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-09-27 05:52:43 GMT
Modified:  lib/Vend Interpolate.pm
Log:
* Add anchor=3DNAME option to page and area. Allows reliable
  addition of in-page anchors.

Revision  Changes    Path
2.114     +9 -3      interchange/lib/Vend/Interpolate.pm


rev 2.114, prev_rev 2.113
Index: Interpolate.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.113
retrieving revision 2.114
diff -u -r2.113 -r2.114
--- Interpolate.pm	23 Sep 2002 20:38:39 -0000	2.113
+++ Interpolate.pm	27 Sep 2002 05:52:43 -0000	2.114
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 #=20
-# $Id: Interpolate.pm,v 2.113 2002/09/23 20:38:39 mheins Exp $
+# $Id: Interpolate.pm,v 2.114 2002/09/27 05:52:43 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -27,7 +27,7 @@
 require Exporter;
 @ISA =3D qw(Exporter);
=20
-$VERSION =3D substr(q$Revision: 2.113 $, 10);
+$VERSION =3D substr(q$Revision: 2.114 $, 10);
=20
 @EXPORT =3D qw (
=20
@@ -3141,6 +3141,8 @@
 	resolve_static(), $url =3D $urlroutine->($page, $arg)
 		unless $url;
=20
+	$url .=3D '#' . $opt->{anchor} if $opt->{anchor};
+
     return qq{<a href=3D"$url"$extra>};
 }
=20
@@ -3169,7 +3171,11 @@
=20
 	resolve_static();
=20
-	return $urlroutine->($page, $arg);
+	my $anchor =3D '';
+	if($opt->{anchor}) {
+		$anchor =3D '#' . $opt->{anchor};
+	}
+	return $urlroutine->($page, $arg) . $anchor;
 }
=20
 }