From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 24 Mar 2008 10:32:08 +0000 (+0000)
Subject: Fixed processing of link rel="forum-user-list"
X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fstilllife.git;a=commitdiff_plain;h=a0b27b27a11b6033e6bbbd6d2d50379ac1e44e63

Fixed processing of link rel="forum-user-list"
---

diff --git a/forum/forum b/forum/forum
index c9bb2c6..ba95dcd 100755
--- a/forum/forum
+++ b/forum/forum
@@ -377,6 +377,18 @@ sub fix_forum_links {
 		} else {
 			$attr ="src";
 		}
+		
+		# Обрабатываем наши специальные link rel=""
+		if ($element->tag eq "link") {
+			if ($element->attr("rel") eq "forum-user-list") {
+				$element->attr("href" => $cgi->url(-absolute=>1,
+					-path_info=>0,-query_string=>0).$forum->{userurl});
+				next ELEMENT;	
+			} elsif ($element->attr("rel") eq "forum-script")  {
+				$element->attr("href" => $script_with_path);
+				next ELEMENT;
+			}	
+		}
 		my $link = $element->attr($attr);
 		# Абсолютная ссылка - оставляем как есть. 
 		next ELEMENT if (! defined $link || $link=~/^\w+:/);