refinerycms 0.9.5.13 → 0.9.5.14

data/vendor/plugins/pages/app/controllers/admin/page_dialogs_controller.rb

@@ -1,7 +1,7 @@
 class Admin::PageDialogsController < Admin::DialogsController
 
   require 'net/http'
-  
+
   crudify :page
 
   def link_to
@@ -10,18 +10,18 @@ class Admin::PageDialogsController < Admin::DialogsController
                              :order => 'position ASC',
                              :per_page => Page.per_page(dialog=true)
 
-		@resources = Resource.paginate :page => params[:resource_page], :order => 'created_at DESC', :per_page => Resource.per_page(dialog=true)
+    @resources = Resource.paginate :page => params[:resource_page], :order => 'created_at DESC', :per_page => Resource.per_page(dialog=true)
   end
-  
+
   def test_url
     unless params[:url].blank?
       url = URI.parse(params[:url])
 
       http = Net::HTTP.new(url.host)
       request = Net::HTTP::Get.new(url.path.blank? ? "/" : url.path)
-      
+
       response = http.request request
-    
+
       render :text => case response
         when Net::HTTPSuccess, Net::HTTPRedirection
           "<img src='/images/refinery/icons/tick.png' alt='valid url' title='valid url' width='16' height='16' />"
@@ -29,11 +29,11 @@ class Admin::PageDialogsController < Admin::DialogsController
           "<img src='/images/refinery/icons/cross.png' alt='invalid url' title='invalid url' width='16' height='16' />"
         end
     end
-    
-    rescue 
+
+    rescue
       render :text => "<img src='/images/refinery/icons/cross.png' alt='invalid url' title='invalid url' width='16' height='16' />"
   end
-  
+
   def test_email
     unless params[:email].blank?
       valid = params[:email] =~ /^([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})$/i
@@ -44,5 +44,5 @@ class Admin::PageDialogsController < Admin::DialogsController
       end
     end
   end
-  
-end
+
+end

data/vendor/plugins/pages/app/controllers/admin/page_parts_controller.rb

@@ -1,9 +1,9 @@
 class Admin::PagePartsController < Admin::BaseController
-  
+
   def new
     render :partial => "/admin/pages/page_part_field", :locals => {:title => params[:title], :body => params[:body], :new_part => true, :part_index => params[:part_index]}
   end
-  
+
   def destroy
     part = PagePart.find(params[:id])
     if part.destroy
@@ -12,5 +12,5 @@ class Admin::PagePartsController < Admin::BaseController
       render :text => "'#{part.title}' not deleted."
     end
   end
-  
-end
+
+end

data/vendor/plugins/pages/app/controllers/admin/pages_controller.rb

@@ -1,7 +1,7 @@
 class Admin::PagesController < Admin::BaseController
 
   crudify :page, :conditions => "parent_id IS NULL", :order => "position ASC", :include => [:parts, :slugs, :children, :images]
-  
+
   def index
     if searching?
       @pages = Page.find_with_index params[:search]
@@ -9,12 +9,12 @@ class Admin::PagesController < Admin::BaseController
       @pages = Page.find_all_by_parent_id(nil, :order => "position ASC")
     end
   end
-  
+
   def new
     @page = Page.new
     RefinerySetting.find_or_set(:default_page_parts, ["body", "side_body"]).each do |page_part|
       @page.parts << PagePart.new(:title => page_part)
     end
   end
-  
-end
+
+end

data/vendor/plugins/pages/app/controllers/pages_controller.rb

@@ -3,7 +3,7 @@ class PagesController < ApplicationController
   def home
     @page = Page.find_by_link_url("/", :include => [:parts, :slugs])
     error_404 if @page.nil?
-    
+
     respond_to do |wants|
       wants.html
     end
@@ -18,11 +18,11 @@ class PagesController < ApplicationController
     if @page.skip_to_first_child
       first_live_child = @page.children.find_by_draft(false, :order => "position ASC")
       redirect_to first_live_child.url unless first_live_child.nil?
-    else    
+    else
       respond_to do |wants|
         wants.html
       end
     end
   end
 
-end
+end

data/vendor/plugins/pages/app/helpers/pages_helper.rb

@@ -1,2 +1,2 @@
 module PagesHelper
-end
+end

data/vendor/plugins/pages/app/models/page.rb

@@ -1,98 +1,98 @@
 class Page < ActiveRecord::Base
-	
-	validates_presence_of :title
-	
-	acts_as_tree :order => "position ASC", :include => [:children, :slugs]
-	
-	has_friendly_id :title, :use_slug => true, :strip_diacritics => true
-	
-	belongs_to :image
-	belongs_to :custom_title_image, :class_name => "Image"
-	
-	has_many :parts, :class_name => "PagePart", :order => "position ASC"
-	accepts_nested_attributes_for :parts, :allow_destroy => true
-	
-	acts_as_indexed :fields => [:title, :meta_keywords, :meta_description, :custom_title, :browser_title, :all_page_part_content]
-	
-	before_destroy :deletable?
-	
-	# deletable needs to check a couple other fields too
-	def deletable?
-		self.deletable && self.link_url.blank? and self.menu_match.blank?
-	end
-	
-	# used for the browser title to get the full path to this page
-	def path(reverse = true)
-		unless self.parent.nil?
-			parts = [self.title, self.parent.path(reverse)]
-			parts.reverse! if reverse
-			parts.join(" - ")
-		else
-			self.title
-		end
-	end
-
-	def url
-		if not (self.link_url.blank?)
-			self.link_url
-		elsif not self.to_param.blank?
-			"/pages/#{self.to_param}"
-		end
-	end
-	
-	def live?
-		not self.draft?
-	end
-	
-	def in_menu?
-		self.live? and self.show_in_menu?
-	end
-	
-	def home?
-		self.link_url == "/"
-	end
-
-	def shown_siblings
-		self.siblings.reject { |sibling| not sibling.in_menu? }
-	end
-	
-	def self.top_level(include_children = false)
-		include_associations = [:parts]
-		include_associations.push(:slugs) if self.class.methods.include? "find_one_with_friendly"
-		include_associations.push(:children) if include_children
-		find_all_by_parent_id(nil, :order => "position ASC", :include => include_associations)
-	end
-	
-	def [](part_title)
-		# don't want to override a super method when trying to call a page part.
-		# the way that we call page parts seems flawed, will probably revert to page.parts[:title] in a future release.
-		if (super_value = super).blank?
-			# self.parts is already eager loaded so we can now just grab the first element matching the title we specified.
-			part = self.parts.reject {|part| part.title != part_title.to_s}.first
-			
-			return part.body unless part.nil?
-		end
-		
-		super_value
-	end
-	
-	def title_with_meta
+
+  validates_presence_of :title
+
+  acts_as_tree :order => "position ASC", :include => [:children, :slugs]
+
+  has_friendly_id :title, :use_slug => true, :strip_diacritics => true
+
+  belongs_to :image
+  belongs_to :custom_title_image, :class_name => "Image"
+
+  has_many :parts, :class_name => "PagePart", :order => "position ASC"
+  accepts_nested_attributes_for :parts, :allow_destroy => true
+
+  acts_as_indexed :fields => [:title, :meta_keywords, :meta_description, :custom_title, :browser_title, :all_page_part_content]
+
+  before_destroy :deletable?
+
+  # deletable needs to check a couple other fields too
+  def deletable?
+    self.deletable && self.link_url.blank? and self.menu_match.blank?
+  end
+
+  # used for the browser title to get the full path to this page
+  def path(reverse = true)
+    unless self.parent.nil?
+      parts = [self.title, self.parent.path(reverse)]
+      parts.reverse! if reverse
+      parts.join(" - ")
+    else
+      self.title
+    end
+  end
+
+  def url
+    if not (self.link_url.blank?)
+      self.link_url
+    elsif not self.to_param.blank?
+      "/pages/#{self.to_param}"
+    end
+  end
+
+  def live?
+    not self.draft?
+  end
+
+  def in_menu?
+    self.live? and self.show_in_menu?
+  end
+
+  def home?
+    self.link_url == "/"
+  end
+
+  def shown_siblings
+    self.siblings.reject { |sibling| not sibling.in_menu? }
+  end
+
+  def self.top_level(include_children = false)
+    include_associations = [:parts]
+    include_associations.push(:slugs) if self.class.methods.include? "find_one_with_friendly"
+    include_associations.push(:children) if include_children
+    find_all_by_parent_id(nil, :order => "position ASC", :include => include_associations)
+  end
+
+  def [](part_title)
+    # don't want to override a super method when trying to call a page part.
+    # the way that we call page parts seems flawed, will probably revert to page.parts[:title] in a future release.
+    if (super_value = super).blank?
+      # self.parts is already eager loaded so we can now just grab the first element matching the title we specified.
+      part = self.parts.reject {|part| part.title != part_title.to_s}.first
+
+      return part.body unless part.nil?
+    end
+
+    super_value
+  end
+
+  def title_with_meta
     "#{self.title} #{"<em>(hidden)</em>" unless self.show_in_menu?} #{"<em>(draft)</em>" if self.draft?}"
-	end
-	
-	# used for search only
-	def all_page_part_content
-	  content = ""
-	  
-	  self.parts.each do |part|
-	    content << " #{part.body}"
-	  end
-	  
-	  content
-	end
-	
-	def self.per_page(dialog = false)
-	  size = (dialog ? 14 : 20)
   end
-	
-end
+
+  # used for search only
+  def all_page_part_content
+    content = ""
+
+    self.parts.each do |part|
+      content << " #{part.body}"
+    end
+
+    content
+  end
+
+  def self.per_page(dialog = false)
+    size = (dialog ? 14 : 20)
+  end
+
+end

data/vendor/plugins/pages/app/models/page_part.rb

@@ -1,17 +1,17 @@
 class PagePart < ActiveRecord::Base
 
   belongs_to :page
-  
+
   validates_presence_of :title
-  
+
   has_friendly_id :title, :use_slug => true, :strip_diacritics => true
-  
+
   def content
     self.body
   end
-  
+
   def content=(value)
     self.body = value
   end
 
-end
+end

data/vendor/plugins/pages/app/views/admin/page_dialogs/_page_link.html.erb

@@ -2,4 +2,4 @@
 <li class='clearfix<%= " child#{child}" if child %><%= " linked" if linked%>' id="<%= dom_id(page_link) -%>">
   <%= link_to page_link.title_with_meta, page_link.url, :title => 'Link to this Page', :rel => page_link.title, :class => 'page_link' %>
 </li>
-<%= render :partial => 'page_link', :collection => page_link.children, :locals => {:child => child ? (child+1) : 1} unless page_link.children.empty? %>
+<%= render :partial => 'page_link', :collection => page_link.children, :locals => {:child => child ? (child+1) : 1} unless page_link.children.empty? %>

data/vendor/plugins/pages/app/views/admin/page_dialogs/link_to.html.erb

@@ -1,253 +1,253 @@
 <%
-	# web address link
-	web_address_text = "http://"
-	unless params[:current_link].blank?
-		web_address_text = params[:current_link] if params[:current_link] =~ /^http:\/\//
-	end
-	web_address_target_blank = params[:target_blank] == "true"
-
-	# mailto link
-	unless params[:current_link].blank? 
-		if params[:current_link] =~ /^mailto:/
-			email_address_text = params[:current_link].split("mailto:")[1].split('?')[0]
-		end
-		email_default_subject_text = params[:current_link].split('?subject=')[1] || params[:subject]
-		email_default_body_text = params[:current_link].split('?body=')[1] || params[:body]
-	end
-	
-	# resource link
-	unless params[:current_link].blank?
-	  is_resource_link = params[:current_link].include?("/system/resources")
-	end
-	
-	if params[:paginating].blank?
-		page_area_selected = (!is_resource_link and web_address_text == "http://" and email_address_text.blank?)
-		web_address_area_selected = (web_address_text != "http://")
-		email_address_area_selected = !email_address_text.blank?
-		resource_area_selected = is_resource_link
-	else
-		page_area_selected = (params[:paginating] == "your_page")
-		resource_area_selected = (params[:paginating] == "resource_file")
-	end
+  # web address link
+  web_address_text = "http://"
+  unless params[:current_link].blank?
+    web_address_text = params[:current_link] if params[:current_link] =~ /^http:\/\//
+  end
+  web_address_target_blank = params[:target_blank] == "true"
+
+  # mailto link
+  unless params[:current_link].blank?
+    if params[:current_link] =~ /^mailto:/
+      email_address_text = params[:current_link].split("mailto:")[1].split('?')[0]
+    end
+    email_default_subject_text = params[:current_link].split('?subject=')[1] || params[:subject]
+    email_default_body_text = params[:current_link].split('?body=')[1] || params[:body]
+  end
+
+  # resource link
+  unless params[:current_link].blank?
+    is_resource_link = params[:current_link].include?("/system/resources")
+  end
+
+  if params[:paginating].blank?
+    page_area_selected = (!is_resource_link and web_address_text == "http://" and email_address_text.blank?)
+    web_address_area_selected = (web_address_text != "http://")
+    email_address_area_selected = !email_address_text.blank?
+    resource_area_selected = is_resource_link
+  else
+    page_area_selected = (params[:paginating] == "your_page")
+    resource_area_selected = (params[:paginating] == "resource_file")
+  end
 %>
 <div class='clearfix dialog_link_to'>
-	<div id='dialog_menu_left'>
-		<span id='your_page_radio' class='radio<%= " selected_radio" if page_area_selected %>'>
-			<input type='radio' name='link_to' value='your_page' id='link_to_your_page' <%= "checked='true'" if page_area_selected %> />
-			<label for='link_to_your_page' class='stripped'>Your page</label>
-		</span>
-		<span id='web_address_radio' class='radio<%= " selected_radio" if web_address_area_selected %>'>
-			<input type='radio' name='link_to' value='web_address' id='link_to_web_address' <%= "checked='true'" if web_address_area_selected %> />
-			<label for='link_to_web_address' class='stripped'>Web address</label>
-		</span>
-
-		<span id='email_address_radio' class='radio<%= " selected_radio" if email_address_area_selected %>'>
-			<input type='radio' name='link_to' value='email_address' id='link_to_email_address' <%= "checked='true'" if email_address_area_selected %> />
-			<label for='link_to_email_address' class='stripped'>Email address</label>
-		</span>
+  <div id='dialog_menu_left'>
+    <span id='your_page_radio' class='radio<%= " selected_radio" if page_area_selected %>'>
+      <input type='radio' name='link_to' value='your_page' id='link_to_your_page' <%= "checked='true'" if page_area_selected %> />
+      <label for='link_to_your_page' class='stripped'>Your page</label>
+    </span>
+    <span id='web_address_radio' class='radio<%= " selected_radio" if web_address_area_selected %>'>
+      <input type='radio' name='link_to' value='web_address' id='link_to_web_address' <%= "checked='true'" if web_address_area_selected %> />
+      <label for='link_to_web_address' class='stripped'>Web address</label>
+    </span>
+
+    <span id='email_address_radio' class='radio<%= " selected_radio" if email_address_area_selected %>'>
+      <input type='radio' name='link_to' value='email_address' id='link_to_email_address' <%= "checked='true'" if email_address_area_selected %> />
+      <label for='link_to_email_address' class='stripped'>Email address</label>
+    </span>
     <span id="resource_file_radio" class="radio<%= " selected_radio" if resource_area_selected %>">
       <input type="radio" name="link_to" value="resource_file" id="link_to_resource_file" <%= "checked='true'" if resource_area_selected %> />
       <label for="link_to_resource_file" class="stripped">Your resource</label>
     </span>
-	</div>
-
-	<div id='dialog_main'>
-		<div id='your_page_area' class='dialog_area' <%= "style='display: none'" unless page_area_selected %>>
-			<input type='hidden' name='selected_image' id='selected_image' />
-			<div id='your_page_content' class='clearfix'>
-				<div id='pages_list'>
-					<ul class="link_list">
-						<%= render :partial => "page_link", :collection => @pages, :locals => {:child => false} %>
-					</ul>
-				</div>
-			</div>
-			<%= will_paginate @pages, :param_name => :page, :previous_label => '&laquo; Previous', :next_label => 'Next &raquo;', 
-				:renderer => Refinery::LinkRenderer, :url => {:paginating => "your_page"} %>
-		</div>
-		<div id='web_address_area' <%= "style='display: none'" unless web_address_area_selected %> class='dialog_area'>
-			<div id='web_address_content'>
-				<label for='web_address_text'>Location</label>
-				<%= text_field :web_address, :text, :value => web_address_text, :style => "width: 70%" %>
-				<img id='web_address_test_loader' src='/images/refinery/ajax-loader.gif' alt='Testing...' style='display: none;'>
-				<span id='web_address_test_result'></span>
-				
-				<label>New Window</label>
-				<input type='checkbox' name='web_address_target_blank' id='web_address_target_blank' <%= "checked='checked'" if web_address_target_blank %> />
-				<label for='web_address_target_blank' class='stripped'>Check this box to have the link open in a new browser window.</label>
-				<p>
-					<strong>Not sure what to put in the box above?</strong> 
-				</p>
-				<ol>
-					<li>Find the page on the web you want to link to.</li>
-					<li>Copy the web address from your browser's address bar and paste it into the box above.</li>
-				</ol>
-			</div>
-		</div>
-		<div id='email_address_area' <%= "style='display: none'" unless email_address_area_selected %> class='dialog_area'>
-			<div id='email_address_content'>
-				<div class='field'>
-					<label for='email_address_text'>Email Address</label>
-					<%= text_field :email_address, :text, :value => email_address_text, :style => "width: 70%"%>
-					<img id='web_address_test_loader' src='/images/refinery/ajax-loader.gif' alt='Testing...' style='display: none;'>
-					<span id='email_address_test_result'></span>
-				</div>
-				
-				<div class='field'>
-					<label for='email_default_subject_text'>Subject Line (optional)</label>
-					<%= text_field :email_default_subject, :text, :value => email_default_subject_text, :style => "width: 70%" %>
-				</div>
-				
-				<div class='field'>
-					<label for='email_default_body_text'>Email Body (optional)</label>
-					<%= text_area :email_default_body, :text, :value => email_default_body_text, :style => "width: 70%", :rows => '' %>
-				</div>
-				
-				<p>
-					<strong>Not sure what to put in the boxes above?</strong> 
-				</p>
-				<ol style='margin-top: 3px'>
-					<li>
-					  Write or copy and paste (e.g. from your address book) the email address to link 
-					  to into the '<strong>Email Address</strong>' box above.
-					</li>
-					<li>
-					  Use the '<strong>Subject Line</strong>' box above if you want the message to 
-					  be composed with a <strong>pre-written subject line</strong>
-					</li>
-					<li>
-					  Use the <strong>Email Body</strong> box above if you want the message to be 
-					  composed with a <strong>pre-written message</strong>.
-					</li>
-				</ol>
-			</div>
-		</div>
+  </div>
+
+  <div id='dialog_main'>
+    <div id='your_page_area' class='dialog_area' <%= "style='display: none'" unless page_area_selected %>>
+      <input type='hidden' name='selected_image' id='selected_image' />
+      <div id='your_page_content' class='clearfix'>
+        <div id='pages_list'>
+          <ul class="link_list">
+            <%= render :partial => "page_link", :collection => @pages, :locals => {:child => false} %>
+          </ul>
+        </div>
+      </div>
+      <%= will_paginate @pages, :param_name => :page, :previous_label => '&laquo; Previous', :next_label => 'Next &raquo;',
+        :renderer => Refinery::LinkRenderer, :url => {:paginating => "your_page"} %>
+    </div>
+    <div id='web_address_area' <%= "style='display: none'" unless web_address_area_selected %> class='dialog_area'>
+      <div id='web_address_content'>
+        <label for='web_address_text'>Location</label>
+        <%= text_field :web_address, :text, :value => web_address_text, :style => "width: 70%" %>
+        <img id='web_address_test_loader' src='/images/refinery/ajax-loader.gif' alt='Testing...' style='display: none;'>
+        <span id='web_address_test_result'></span>
+
+        <label>New Window</label>
+        <input type='checkbox' name='web_address_target_blank' id='web_address_target_blank' <%= "checked='checked'" if web_address_target_blank %> />
+        <label for='web_address_target_blank' class='stripped'>Check this box to have the link open in a new browser window.</label>
+        <p>
+          <strong>Not sure what to put in the box above?</strong>
+        </p>
+        <ol>
+          <li>Find the page on the web you want to link to.</li>
+          <li>Copy the web address from your browser's address bar and paste it into the box above.</li>
+        </ol>
+      </div>
+    </div>
+    <div id='email_address_area' <%= "style='display: none'" unless email_address_area_selected %> class='dialog_area'>
+      <div id='email_address_content'>
+        <div class='field'>
+          <label for='email_address_text'>Email Address</label>
+          <%= text_field :email_address, :text, :value => email_address_text, :style => "width: 70%"%>
+          <img id='web_address_test_loader' src='/images/refinery/ajax-loader.gif' alt='Testing...' style='display: none;'>
+          <span id='email_address_test_result'></span>
+        </div>
+
+        <div class='field'>
+          <label for='email_default_subject_text'>Subject Line (optional)</label>
+          <%= text_field :email_default_subject, :text, :value => email_default_subject_text, :style => "width: 70%" %>
+        </div>
+
+        <div class='field'>
+          <label for='email_default_body_text'>Email Body (optional)</label>
+          <%= text_area :email_default_body, :text, :value => email_default_body_text, :style => "width: 70%", :rows => '' %>
+        </div>
+
+        <p>
+          <strong>Not sure what to put in the boxes above?</strong>
+        </p>
+        <ol style='margin-top: 3px'>
+          <li>
+            Write or copy and paste (e.g. from your address book) the email address to link
+            to into the '<strong>Email Address</strong>' box above.
+          </li>
+          <li>
+            Use the '<strong>Subject Line</strong>' box above if you want the message to
+            be composed with a <strong>pre-written subject line</strong>
+          </li>
+          <li>
+            Use the <strong>Email Body</strong> box above if you want the message to be
+            composed with a <strong>pre-written message</strong>.
+          </li>
+        </ol>
+      </div>
+    </div>
     <div id="resource_file_area" <%= "style='display:none'" unless resource_area_selected %> class="dialog_area">
       <div id='pages_list'>
         <ul class="link_list">
           <% @resources.each do |resource| -%>
             <% resource_linked = (resource.public_filename == params[:current_link]) unless params[:current_link].blank? %>
             <li<%= " class='linked'" if resource_linked %>>
-              <%= link_to resource.title, resource.public_filename, :title => 'Link to this Resource', 
+              <%= link_to resource.title, resource.public_filename, :title => 'Link to this Resource',
                           :rel => resource.title, :class => 'page_link' %>
             </li>
           <% end %>
         </ul>
-        <%= will_paginate @resources, :param_name => :resource_page, :previous_label => '&laquo;', :next_label => '&raquo;', 
-					:renderer => Refinery::LinkRenderer, :url => {:paginating => "resource_file"} %>
+        <%= will_paginate @resources, :param_name => :resource_page, :previous_label => '&laquo;', :next_label => '&raquo;',
+          :renderer => Refinery::LinkRenderer, :url => {:paginating => "resource_file"} %>
       </div>
     </div>
-	</div>
+  </div>
 </div>
 
 <% content_for :head do %>
   <script type='text/javascript'>
 
-  	FastInit.addOnLoad(function()
-  	{
-  		$$('.link_list li').each(function(li)
-  		{
-  			li.observe('click', function(ev)
-  			{
+    FastInit.addOnLoad(function()
+    {
+      $$('.link_list li').each(function(li)
+      {
+        li.observe('click', function(ev)
+        {
           ev.preventDefault();
 
-  				$$('.link_list li.linked').each(function(linked)
-  				{
-  					linked.removeClassName('linked');
-  				});
+          $$('.link_list li.linked').each(function(linked)
+          {
+            linked.removeClassName('linked');
+          });
 
-  				this.addClassName('linked');
+          this.addClassName('linked');
           var link = this.down('a.page_link');
-					var port = (window.location.port.length > 0 ? (":" + window.location.port) : "")
-					var url = link.href.gsub(window.location.protocol + "//" + window.location.hostname + port, "");
-
-  				parent.document.getElementById('wym_href').value = url;
-					parent.document.getElementById('wym_title').value = link.rel;
-					parent.document.getElementById('wym_target').value = '';
-  			});
-  		});
-		
-  		$('web_address_text').observe('change', function(e)
-  		{
-  			var prefix = 'web_address_';
-  			$(prefix + 'test_loader').show();
-
-  			$(prefix + 'test_result').hide();
-			
-  			var req = new Ajax.Request("<%= test_url_admin_pages_dialogs_url %>",
-  			{
-  				asynchronous: true
-  				, method: 'get'
-  				, parameters: {url: this.value}
-  				, onComplete: function(e)
-  				{
-  					$(prefix + 'test_result').update(e.transport.responseText).show();
-  					$(prefix + 'test_loader').hide();
-  				}
-  			});
-
-  			parent.document.getElementById('wym_href').value = $(prefix + 'text').value;
-  			parent.document.getElementById('wym_title').value = $(prefix + 'text').value;
-				parent.document.getElementById('wym_target').value = ($(prefix + 'target_blank').checked ? "_blank" : "");
-  		});
-
-			$('web_address_target_blank').observe('click', function(e)
-			{
-				parent.document.getElementById('wym_target').value = this.checked ? "_blank" : "";
-			})
-		
-  		$$('#email_address_text', '#email_default_subject_text', '#email_default_body_text').each(function(input)
-  		{
-  			input.observe('change', function(e)
-  			{
-  				var default_subject = $('email_default_subject_text').value;
-  				var default_body = $('email_default_body_text').value;
-  				var mailto = "mailto:" + $('email_address_text').value.replace('mailto:', '');
-  				$('email_address_test_result').hide();
+          var port = (window.location.port.length > 0 ? (":" + window.location.port) : "")
+          var url = link.href.gsub(window.location.protocol + "//" + window.location.hostname + port, "");
+
+          parent.document.getElementById('wym_href').value = url;
+          parent.document.getElementById('wym_title').value = link.rel;
+          parent.document.getElementById('wym_target').value = '';
+        });
+      });
+
+      $('web_address_text').observe('change', function(e)
+      {
+        var prefix = 'web_address_';
+        $(prefix + 'test_loader').show();
+
+        $(prefix + 'test_result').hide();
+
+        var req = new Ajax.Request("<%= test_url_admin_pages_dialogs_url %>",
+        {
+          asynchronous: true
+          , method: 'get'
+          , parameters: {url: this.value}
+          , onComplete: function(e)
+          {
+            $(prefix + 'test_result').update(e.transport.responseText).show();
+            $(prefix + 'test_loader').hide();
+          }
+        });
+
+        parent.document.getElementById('wym_href').value = $(prefix + 'text').value;
+        parent.document.getElementById('wym_title').value = $(prefix + 'text').value;
+        parent.document.getElementById('wym_target').value = ($(prefix + 'target_blank').checked ? "_blank" : "");
+      });
+
+      $('web_address_target_blank').observe('click', function(e)
+      {
+        parent.document.getElementById('wym_target').value = this.checked ? "_blank" : "";
+      })
+
+      $$('#email_address_text', '#email_default_subject_text', '#email_default_body_text').each(function(input)
+      {
+        input.observe('change', function(e)
+        {
+          var default_subject = $('email_default_subject_text').value;
+          var default_body = $('email_default_body_text').value;
+          var mailto = "mailto:" + $('email_address_text').value.replace('mailto:', '');
+          $('email_address_test_result').hide();
 
           var req = new Ajax.Request("<%= test_email_admin_pages_dialogs_url %>",
-  				{
-  					asynchronous: true
-  					, method: 'get'
-  					, parameters: {email: mailto}
-  					, onComplete: function(e)
-  					{
-  						$('email_address_test_result').update(e.transport.responseText).show();
-  						$('email_address_test_loader').hide();
-  					}
-  				});
-				
-  				var modifier = "?";
-  				if (default_subject.length > 0)
-  				{
-  					mailto += modifier + "subject=" + default_subject;
-  					modifier = "&";
-  				}
-  				if (default_body.length > 0)
-  				{
-  					mailto += modifier + "body=" + default_body;
-  					modifier = "&";
-  				}
-          
-  				parent.document.getElementById('wym_href').value = mailto;
-  				parent.document.getElementById('wym_title').value = $('email_address_text').value.replace('mailto:', '');
-					parent.document.getElementById('wym_target').value = '';
-  			});
-  		});
-				
-  		$('link_to_your_page').observe('click', function(e)
-  		{
-  			$$('li.linked').each(function(li)
-  			{
-  				parent.document.getElementById('wym_href').value = li.down('a.page_link').href;
-  				parent.document.getElementById('wym_title').value = li.down('span').innerHTML.gsub(/<em>\((\w)*\)<\/em>/, "").trim();
-  			});
-  		});
-  		$('link_to_web_address').observe('click', function(e)
-  		{
-  			parent.document.getElementById('wym_href').value = $('web_address_text').value;
-  			parent.document.getElementById('wym_title').value = $('web_address_text').value;
-				parent.document.getElementById('wym_target').value = ($('web_address_target_blank').checked ? "_blank" : "");
-  		});
-  	});
+          {
+            asynchronous: true
+            , method: 'get'
+            , parameters: {email: mailto}
+            , onComplete: function(e)
+            {
+              $('email_address_test_result').update(e.transport.responseText).show();
+              $('email_address_test_loader').hide();
+            }
+          });
+
+          var modifier = "?";
+          if (default_subject.length > 0)
+          {
+            mailto += modifier + "subject=" + default_subject;
+            modifier = "&";
+          }
+          if (default_body.length > 0)
+          {
+            mailto += modifier + "body=" + default_body;
+            modifier = "&";
+          }
+
+          parent.document.getElementById('wym_href').value = mailto;
+          parent.document.getElementById('wym_title').value = $('email_address_text').value.replace('mailto:', '');
+          parent.document.getElementById('wym_target').value = '';
+        });
+      });
+
+      $('link_to_your_page').observe('click', function(e)
+      {
+        $$('li.linked').each(function(li)
+        {
+          parent.document.getElementById('wym_href').value = li.down('a.page_link').href;
+          parent.document.getElementById('wym_title').value = li.down('span').innerHTML.gsub(/<em>\((\w)*\)<\/em>/, "").trim();
+        });
+      });
+      $('link_to_web_address').observe('click', function(e)
+      {
+        parent.document.getElementById('wym_href').value = $('web_address_text').value;
+        parent.document.getElementById('wym_title').value = $('web_address_text').value;
+        parent.document.getElementById('wym_target').value = ($('web_address_target_blank').checked ? "_blank" : "");
+      });
+    });
   </script>
-<% end %>
+<% end %>