[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