perl/modules/W3C/LinkChecker/bin checklink,4.140,4.141

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv8070

Modified Files:
	checklink 
Log Message:
Don't hardcode path to info icons, use Doc_URI to resolve it.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.140
retrieving revision 4.141
diff -u -d -r4.140 -r4.141
--- checklink	10 Feb 2009 18:27:17 -0000	4.140
+++ checklink	10 Feb 2009 18:34:38 -0000	4.141
@@ -2416,8 +2416,10 @@
   } else {
     $icon_type = 'error';
   }
-  return('<span class="err_type"><img src="http://validator.w3.org/images/info_icons/'.$icon_type.'.png" alt="'.$icon_type.'" /></span>');
-
+  return sprintf('<span class="err_type"><img src="%s" alt="%s" /></span>',
+                 URI->new_abs("../images/info_icons/$icon_type.png",
+                              $Cfg{Doc_URI}),
+                 $icon_type);
 }
 
 sub bgcolor ($)

Received on Tuesday, 10 February 2009 18:34:49 UTC