[interchange-cvs] interchange - pajamian modified code/UI_Tag/version.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue Oct 31 06:17:30 EST 2006


User:      pajamian
Date:      2006-10-31 11:17:30 GMT
Modified:  code/UI_Tag version.coretag
Log:
Use a path relative to the catroot instead of an absolute path to the catalog error.log file when displaying in UI Administration/Info tab.

Revision  Changes    Path
1.13      +7 -4      interchange/code/UI_Tag/version.coretag


rev 1.13, prev_rev 1.12
Index: version.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/version.coretag,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- version.coretag	8 Nov 2005 18:14:40 -0000	1.12
+++ version.coretag	31 Oct 2006 11:17:28 -0000	1.13
@@ -1,13 +1,13 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: version.coretag,v 1.12 2005/11/08 18:14:40 jon Exp $
+# $Id: version.coretag,v 1.13 2006/10/31 11:17:28 pajamian Exp $
 
 UserTag version Order      extended
 UserTag version attrAlias  module_test modtest
 UserTag version attrAlias  moduletest modtest
 UserTag version attrAlias  require modtest
 UserTag version addAttr
-UserTag version Version    $Revision: 1.12 $
+UserTag version Version    $Revision: 1.13 $
 UserTag version Routine    <<EOR
 sub {
 	return $::VERSION unless shift;
@@ -22,8 +22,11 @@
 	}
 
 	if($opt->{local_error}) {
-		my $fn = $Vend::Cfg->{ErrorFile};
-		push @out, $Tag->page("$::Variable->{UI_BASE}/do_view", $fn) . "$fn</a>";
+		my $dfn = my $fn = $Vend::Cfg->{ErrorFile};
+		my $pre = $Global::Catalog{$Vend::Cat}->{dir} . '/';
+		$fn =~ s:^\Q$pre\E::;
+		my $href = $Tag->area("$::Variable->{UI_BASE}/do_view", $fn);
+		push(@out, qq{<a href="$href">$dfn</a>});
 		$done_something = 1;
 	}
 








More information about the interchange-cvs mailing list