sakai-cle-test-api 0.0.7 → 0.0.9

data/lib/sakai-cle-test-api/resources.rb

@@ -0,0 +1,138 @@
+#================
+# Resources Pages
+#================
+
+# Resources page for a given Site, in the Course Tools menu
+class Resources < AddFiles
+
+  include PageObject
+  include ToolsMenu
+
+end
+
+# New class template. For quick class creation...
+class ResourcesUploadFiles
+
+  include PageObject
+  include ToolsMenu
+
+  @@filex=0 # TODO: This is almost certainly not going to work right.
+
+  # Enters the specified folder/filename value into
+  # the file field on the page. Note that files are
+  # assumed to be in the relative path ../../data/sakai-cle-test-api
+  # The method will throw an error if the specified file
+  # is not found.
+  #
+  # This method is designed to be able to use
+  # multiple times, but it assumes
+  # that the add_another_file method is used
+  # before it, every time except before the first time.
+  def file_to_upload(file_name, file_path="")
+    frm.file_field(:id, "content_#{@@filex}").set(file_path + file_name)
+    @@filex+=1
+  end
+
+  # Clicks the Upload Files Now button, resets the
+  # @@filex class variable back to zero, and instantiates
+  # the Resources page class.
+  def upload_files_now
+    frm.button(:value=>"Upload Files Now").click
+    @@filex=0
+    Resources.new(@browser)
+  end
+
+  # Clicks the Add Another File link.
+  def add_another_file
+    frm.link(:text=>"Add Another File").click
+  end
+
+end
+
+class EditFileDetails
+
+  include PageObject
+  include ToolsMenu
+
+  # Clicks the Update button, then instantiates
+  # the Resources page class.
+  def update
+    frm.button(:value=>"Update").click
+    Resources.new(@browser)
+  end
+
+  # Enters the specified string into the title field.
+  def title=(title)
+    frm.text_field(:id=>"displayName_0").set(title)
+  end
+
+  # Enters the specified string into the description field.
+  def description=(description)
+    frm.text_field(:id=>"description_0").set(description)
+  end
+
+  # Sets the radio button for publically viewable.
+  def select_publicly_viewable
+    frm.radio(:id=>"access_mode_public_0").set
+  end
+
+  # Checks the checkbox for showing only on the specifed
+  # condition.
+  def check_show_only_if_condition
+    frm.checkbox(:id=>"cbCondition_0")
+  end
+
+  # Selects the specified Gradebook item value in the
+  # select list.
+  def gradebook_item=(item)
+    frm.select(:id=>"selectResource_0").select(item)
+  end
+
+  # Selects the specified value in the item condition
+  # field.
+  def item_condition=(condition)
+    frm.select(:id=>"selectCondition_0").select(condition)
+  end
+
+  # Sets the Grade field to the specified value.
+  def assignment_grade=(grade)
+    frm.text_field(:id=>"assignment_grade_0").set(grade)
+  end
+end
+
+class CreateFolders
+
+  include PageObject
+  include ToolsMenu
+
+  thing(:folder_name) { |b| b.frm.text_field(:id=>"content_0") }
+  action(:create_folders_now) { |b| b.frm.button(:value=>"Create Folders Now").click }
+
+end
+
+class CreateHTMLPageContent
+
+  include PageObject
+  include ToolsMenu
+  include FCKEditor
+
+  thing(:editor) { |b| b.frm.frame(:id=>"content___Frame") }
+  action(:continue) { |b| b.frm.button(id: "saveChanges").click }
+
+  def source=(text)
+    editor.td(:id, "xEditingArea").text_field(:class=>"SourceField").set text
+  end
+
+end
+
+class CreateHTMLPageProperties
+
+  include PageObject
+  include ToolsMenu
+
+  thing(:name) { |b| b.frm.text_field(id: "displayName_0") }
+  thing(:description) { |b| b.frm.text_field(id: "description_0") }
+
+  action(:finish) { |b| b.frm.button(id: "finish_button").click }
+
+end

data/lib/sakai-cle-test-api/rich_text.rb

@@ -0,0 +1,13 @@
+module FCKEditor
+
+  # This has to be defined this way because there several pages
+  # that have multiple rich text editors.
+  def source(editor)
+    editor.div(:title=>/Source/).click
+  end
+
+  def select_all(editor)
+    editor.div(:title=>"Select All").click
+  end
+
+end

data/lib/sakai-cle-test-api/sections.rb

@@ -1,9 +1,110 @@
+
+module SectionsMenu
+  include PageObject
+  # Clicks the Add Sections button/link and instantiates
+  # the AddEditSections Class.
+  def add_sections
+    frm.link(:text=>"Add Sections").click
+    AddEditSections.new(@browser)
+  end
+
+  def overview
+    frm.link(:text=>"Overview").click
+    Sections.new(@browser)
+  end
+
+  def student_memberships
+    frm.link(:text=>"Student Memberships").click
+    StudentMemberships.new(@browser)
+  end
+
+  def options
+    frm.link(:text=>"Options").click
+    SectionsOptions.new(@browser)
+  end
+
+end
+
 # Topmost page for Sections in Site Management
 class Sections
   include PageObject
   include ToolsMenu
   include SectionsMenu
-  include SectionsMethods
+  # Clicks the Edit link for the specified section.
+  # Then instantiates the AddEditSections class.
+  def edit(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/).link(:text=>/Edit/).click
+    AddEditSections.new(@browser)
+  end
+
+  def assign_tas(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/).link(:text=>/Assign TAs/).click
+    AssignTeachingAssistants.new(@browser)
+  end
+
+  def assign_students(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/).link(:text=>/Assign Students/).click
+    AssignStudents.new(@browser)
+  end
+
+  def check(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/).checkbox(:name=>/remove/).set
+  end
+
+  def section_names
+    names = []
+    frm.table(:class=>/listHier/).rows.each do |row|
+      if row.td(:class=>"leftIndent").exist?
+        names << row.td(:class=>"leftIndent").div(:index=>0).text
+      end
+    end
+    return names
+  end
+
+  def remove_sections
+    frm.button(:value=>"Remove Sections").click
+    Sections.new(@browser)
+  end
+
+  # Returns the text of the Teach Assistant cell for the specified
+  # Section.
+  def tas_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[1].text
+  end
+
+  #
+  def days_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[2].text
+  end
+
+  #
+  def time_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[3].text
+  end
+
+  #
+  def location_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[4].text
+  end
+
+  #
+  def current_size_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[5].text
+  end
+
+  #
+  def availability_for(title)
+    frm.table(:class=>/listHier/).row(:text=>/#{Regexp.escape(title)}/)[6].text
+  end
+
+  def alert_text
+    frm.div(:class=>"validation").text
+  end
+
+  def success_text
+    frm.div(:class=>"success").text
+  end
+
 end
 
 # Methods in this class currently do not support
@@ -13,13 +114,70 @@ end
 # be supported in the future.
 class AddEditSections
 
-  identifier = {:class=>"portletMainIframe"}
-
   include PageObject
   include ToolsMenu
   include SectionsMenu
-  include AddEditSectionsMethods
-  #include AddEditSectionsMethods
+  # Clicks the Add Sections button then instantiates the Sections Class,
+  # unless there's an Alert message, in which case it will reinstantiate
+  # the class.
+  def add_sections
+    frm.button(:value=>"Add Sections").click
+    if frm.div(:class=>"validation").exist?
+      AddEditSections.new(@browser)
+    else
+      Sections.new(@browser)
+    end
+  end
+
+  def alert_text
+    frm.div(:class=>"validation").text
+  end
+
+  # The Update button is only available when editing an existing Sections record.
+  def update
+    frm.button(:value=>"Update").click
+    if frm.div(:class=>"validation").exist?
+      AddEditSections.new(@browser)
+    else
+      Sections.new(@browser)
+    end
+  end
+
+  # This method takes an array object containing strings of the
+  # days of the week and then clicks the appropriate checkboxes, based
+  # on those strings.
+  def check_days(array)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:monday/).set if array.include?(/mon/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:tuesday/).set if array.include?(/tue/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:wednesday/).set if array.include?(/wed/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:thursday/).set if array.include?(/thu/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:friday/).set if array.include?(/fri/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:saturday/).set if array.include?(/sat/i)
+    frm.checkbox(:id=>/SectionsForm:sectionTable:0:meetingsTable:0:sunday/).set if array.include?(/sun/i)
+  end
+
+  in_frame(:class=>"portletMainIframe") do |frame|
+    select_list(:category, :id=>/SectionsForm:category/, :frame=>frame)
+    text_field(:name, :id=>/SectionsForm:sectionTable:0:titleInput/, :frame=>frame)
+    checkbox(:monday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:monday/, :frame=>frame)
+    checkbox(:tuesday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:tuesday/, :frame=>frame)
+    checkbox(:wednesday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:wednesday/, :frame=>frame)
+    checkbox(:thursday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:thursday/, :frame=>frame)
+    checkbox(:friday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:friday/, :frame=>frame)
+    checkbox(:saturday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:saturday/, :frame=>frame)
+    checkbox(:sunday, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:sunday/, :frame=>frame)
+    text_field(:start_time, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:startTime/, :frame=>frame)
+    text_field(:end_time, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:endTime/, :frame=>frame)
+    text_field(:location, :id=>/SectionsForm:sectionTable:0:meetingsTable:0:location/, :frame=>frame)
+    radio_button(:startAM) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:meetingsTable:0:startTimeAm/, :index=>0, :frame=>frame) }
+    radio_button(:startPM) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:meetingsTable:0:startTimeAm/, :index=>1, :frame=>frame) }
+    radio_button(:endAM) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:meetingsTable:0:endTimeAm/, :index=>0, :frame=>frame) }
+    radio_button(:endPM) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:meetingsTable:0:endTimeAm/, :index=>1, :frame=>frame) }
+    radio_button(:unlimited_students) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:limit/, :index=>0, :frame=>frame) }
+    radio_button(:limited_students) { |page| page.radio_button_element(:name=>/SectionsForm:sectionTable:0:limit/, :index=>1, :frame=>frame) }
+    text_field(:max_students, :id=>/SectionsForm:sectionTable:0:maxEnrollmentInput/, :frame=>frame)
+  end
+
 end
 
 #
@@ -27,7 +185,19 @@ class AssignTeachingAssistants
   include PageObject
   include ToolsMenu
   include SectionsMenu
-  include AssignTeachingAssistantsMethods
+  def assign_TAs
+    frm.button(:value=>"Assign TAs").click
+    Sections.new(@browser)
+  end
+
+  in_frame(:class=>"portletMainIframe") do |frame|
+    select_list(:available_tas, :id=>"memberForm:availableUsers", :frame=>frame)
+    select_list(:assigned_tas, :id=>"memberForm:selectedUsers", :frame=>frame)
+    button(:assign, :value=>">", :frame=>frame)
+    button(:unassign, :value=>"<", :frame=>frame)
+    button(:assign_all, :value=>">>", :frame=>frame)
+    button(:unassign_all, :value=>"<<", :frame=>frame)
+  end
 end
 
 #
@@ -35,7 +205,19 @@ class AssignStudents
   include PageObject
   include ToolsMenu
   include SectionsMenu
-  include AssignStudentsMethods
+  def assign_students
+    frm.button(:value=>"Assign students").click
+    Sections.new(@browser)
+  end
+
+  in_frame(:class=>"portletMainIframe") do |frame|
+    select_list(:available_students, :id=>"memberForm:availableUsers", :frame=>frame)
+    select_list(:assigned_students, :id=>"memberForm:selectedUsers", :frame=>frame)
+    button(:assign, :value=>">", :frame=>frame)
+    button(:unassign, :value=>"<", :frame=>frame)
+    button(:assign_all, :value=>">>", :frame=>frame)
+    button(:unassign_all, :value=>"<<", :frame=>frame)
+  end
 end
 
 # The Options page for Sections.
@@ -43,5 +225,13 @@ class SectionsOptions
   include PageObject
   include ToolsMenu
   include SectionsMenu
-  include AssignStudentsMethods
+  def update
+    frm().button(:value=>"Update").click
+    Sections.new(@browser)
+  end
+
+  in_frame(:class=>"portletMainIframe") do |frame|
+    checkbox(:students_can_sign_up, :id=>"optionsForm:selfRegister", :frame=>frame)
+    checkbox(:students_can_switch, :id=>"optionsForm:selfSwitch", :frame=>frame)
+  end
 end

data/lib/sakai-cle-test-api/site_page_elements.rb

@@ -724,27 +724,7 @@ class Information
 end
 
 
-#================
-# Drop Box pages
-#================
 
-# 
-class DropBox < AddFiles
-  
-  include ToolsMenu
-  
-  def initialize(browser)
-    @browser = browser
-    
-    @@classes = {
-      :this => "DropBox",
-      :parent => "DropBox",
-      :second => "",
-      :third => ""
-    }
-  end
-  
-end
 
 
 
@@ -1079,426 +1059,6 @@ end
 
 
 
-#================
-# Lesson Pages
-#================
-
-# Contains items common to most Lessons pages.
-module LessonsMenu
-  
-  # Clicks on the Preferences link on the Lessons page,
-  # then instantiates the LessonPreferences class.
-  def preferences
-    frm.link(:text=>"Preferences").click
-    LessonPreferences.new(@browser)
-  end
-  
-  def view
-    frm.link(:text=>"View").click
-    if frm.div(:class=>"meletePortletToolBarMessage").text=="Viewing student side..."
-      ViewModuleList.new(@browser)
-    else
-      #FIXME
-    end
-  end
-  
-  def manage
-    frm.link(:text=>"Manage").click
-    LessonManage.new(@browser)
-  end
-  
-  def author
-    #FIXME
-  end
-  
-end
-
-# The Lessons page in a site ("icon-sakai-melete")
-#
-# Note that this class is inclusive of both the
-# Instructor/Admin and the Student views of this page
-# many methods will error out if used when in the
-# Student view.
-class Lessons
-  
-  include PageObject
-  include ToolsMenu
-  include LessonsMenu
-  
-  # Clicks the Add Module link, then
-  # instantiates the AddModule class.
-  #
-  # Assumes the Add Module link is present
-  # and will error out if it is not.
-  def add_module
-    frm.link(:text=>"Add Module").click
-    AddEditModule.new(@browser)
-  end
-  
-  # Clicks on the link that matches the supplied
-  # name value, then instantiates the
-  # AddEditLesson, or ViewLesson class, depending
-  # on which page loads.
-  #
-  # Will error out if there is no
-  # matching link in the list.
-  def open_lesson(name)
-    frm.link(:text=>name).click
-    if frm.div(:class=>"meletePortletToolBarMessage").exist? && frm.div(:class=>"meletePortletToolBarMessage").text=="Editing module..."
-      AddEditModule.new(@browser)
-    else
-      ViewModule.new(@browser)
-    end
-  end
-  
-  # Returns an array of the Module titles displayed on the page.
-  def lessons_list
-    list = []
-    frm.table(:id=>/lis.+module.+form:table/).links.each do |link|
-      if link.id=~/lis.+module.+form:table:.+:(edit|view)Mod/
-        list << link.text
-      end
-    end
-    return list
-  end
-  
-  # Returns and array containing the list of section titles for the
-  # specified module.
-  def sections_list(module_name)
-    list = []
-    if frm.table(:id=>/lis.+module.+form:table/).row(:text=>/#{Regexp.escape(module_name)}/).table(:id=>/tablesec/).exist?
-      frm.table(:id=>/lis.+module.+form:table/).row(:text=>/#{Regexp.escape(module_name)}/).table(:id=>/tablesec/).links.each do |link|
-        if link.id=~/Sec/
-          list << link.text
-        end
-      end
-    end
-    return list
-  end
-
-end
-
-# The student user's view of a Lesson Module or Section.
-class ViewModule
-  
-  include PageObject
-  include ToolsMenu
-
-  def sections_list
-    list = []
-    frm.table(:id=>"viewmoduleStudentform:tablesec").links.each { |link| list << link.text }
-    return list
-  end
-
-  def next
-    frm.link(:text=>"Next").click
-    ViewModule.new(@browser)
-  end
-  
-  # Returns the text of the Module title row
-  def module_title
-    frm.span(:id=>/modtitle/).text
-  end
-  
-  # Returns the text of the Section title row
-  def section_title
-    frm.span(:id=>/form:title/).text
-  end
-  
-  def content_include?(content)
-    frm.form(:id=>"viewsectionStudentform").text.include?(content)
-  end
-
-end
-
-# This is the Instructor's preview of the Student's view
-# of the list of Lesson Modules.
-class ViewModuleList
-  
-  include PageObject
-  include ToolsMenu
-  
-  def open_lesson(name)
-    frm.link(:text=>name).click
-    LessonStudentSide.new(@browser)
-  end
-  
-  def open_section(name)
-    frm.link(:text=>name).click
-    SectionStudentSide.new(@browser)
-  end
-  
-end
-
-# The instructor's preview of the student view of the lesson.
-class LessonStudentSide
-  
-  include PageObject
-  include ToolsMenu
-  include LessonsMenu
-  
-end
-
-# The instructor's preview of the student's view of the section.
-class SectionStudentSide
-  
-  include PageObject
-  include ToolsMenu
-  include LessonsMenu
-  
-end
-
-# The Managing Options page for Lessons
-class LessonManage
-  
-  include PageObject
-  include ToolsMenu
-  include LessonsMenu
-  
-  def manage_content
-    frm.link(:text=>"Manage Content").click
-    LessonManageContent.new(@browser)
-  end
-  
-  def sort
-    frm.link(:text=>"Sort").click
-    LessonManageSort.new(@browser)
-  end
-
-  # Clicks the Import/Export button and
-  # instantiates the LessonImportExport class.
-  def import_export
-    frm.link(:text=>"Import/Export").click
-    LessonImportExport.new(@browser)
-  end
-
-end
-
-# The Sorting Modules and Sections page in Lessons
-class LessonManageSort
-  
-  include PageObject
-  include ToolsMenu
-
-  def view
-    frm.link(:text=>"View").click
-    if frm.div(:class=>"meletePortletToolBarMessage").text=="Viewing student side..."
-      ViewModuleList.new(@browser)
-    else
-      #FIXME
-    end
-  end
-
-  in_frame(:index=>1) do |frame|
-    link(:sort_modules, :id=>"SortSectionForm:sortmod", :frame=>frame)
-    link(:sort_sections, :id=>"SortModuleForm:sortsec", :frame=>frame)
-    
-  end
-end
-
-# The Import/Export page in Manage Lessons for a Site
-class LessonImportExport
-  
-  include PageObject
-  include ToolsMenu
-  include LessonsMenu
-
-  # Uploads the file specified - meaning that it enters
-  # the target file information, then clicks the import
-  # button.
-  # 
-  # The file path is an optional parameter.
-  def upload_IMS(file_name, file_path="")
-    frm.file_field(:name, "impfile").set(file_path + file_name)
-    frm.link(:id=>"importexportform:importModule").click
-    frm.table(:id=>"AutoNumber1").div(:text=>"Processing...").wait_while_present
-  end
-  
-  # Returns the text of the alert box.
-  def alert_text
-    frm.span(:class=>"BlueClass").text
-  end
-
-end
-
-# The User preference options page for Lessons.
-#
-# Note that this class is inclusive of Student
-# and Instructor views of the page. Thus,
-# not all methods in the class will work
-# at all times.
-class LessonPreferences
-  
-  include PageObject
-  include ToolsMenu
-  
-  # Clicks the View button
-  # then instantiates the Lessons class.
-  def view
-    frm.link(:text=>"View").click
-    Lessons.new(@browser)
-  end
-  
-  in_frame(:index=>1) do |frame|
-    radio_button(:expanded) { |page| page.radio_button_element(:name=>"UserPreferenceForm:_id5", :index=>0, :frame=>frame) }
-    radio_button(:collapsed) { |page| page.radio_button_element(:name=>"UserPreferenceForm:_id5", :index=>1, :frame=>frame) }
-    link(:set, :id=>"UserPreferenceForm:SetButton", :frame=>frame)
-  end
-end
-
-# This Class encompasses methods for both the Add and the Edit pages for Lesson Modules.
-class AddEditModule
-  
-  include PageObject
-  include ToolsMenu
-  
-  # Clicks the Add button for the Lesson Module
-  # then instantiates the ConfirmModule class.
-  def add
-    frm.link(:id=>/ModuleForm:submitsave/).click
-    ConfirmModule.new(@browser)
-  end
-
-  def add_content_sections
-    frm.link(:id=>/ModuleForm:sectionButton/).click
-    AddEditSection.new(@browser)
-  end
-
-  in_frame(:index=>1) do |frame|
-    text_field(:title, :id=>/ModuleForm:title/, :frame=>frame)
-    text_area(:description, :id=>/ModuleForm:description/, :frame=>frame)
-    text_area(:keywords, :id=>/ModuleForm:keywords/, :frame=>frame)
-    text_field(:start_date, :id=>/ModuleForm:startDate/, :frame=>frame)
-    text_field(:end_date, :id=>/ModuleForm:endDate/, :frame=>frame)
-  end
-end
-
-# The confirmation page when you are saving a Lesson Module.
-class ConfirmModule
-  
-  include PageObject
-  include ToolsMenu
-  
-  # Clicks the Add Content Sections button and
-  # instantiates the AddEditSection class.
-  def add_content_sections
-    frm.link(:id=>/ModuleConfirmForm:sectionButton/).click
-    AddEditSection.new(@browser)
-  end
-  
-  # Clicks the Return to Modules button, then
-  # instantiates the AddEditModule class.
-  def return_to_modules
-    frm.link(:id=>"AddModuleConfirmForm:returnModImg").click
-    AddEditModule.new(@browser)
-  end
-
-end
-
-# Page for adding a section to a Lesson.
-class AddEditSection
-  
-  include PageObject
-  include ToolsMenu
-  
-  # Clicks the Add button on the page
-  # then instantiates the ConfirmSectionAdd class.
-  def add
-    frm.link(:id=>/SectionForm:submitsave/).click
-    ConfirmSectionAdd.new(@browser)
-  end
-
-  # Pointer to the Edit Text box of the FCKEditor
-  # on the page.
-  def content_editor
-    frm.frame(:id, "AddSectionForm:fckEditorView:otherMeletecontentEditor_inputRichText___Frame").td(:id, "xEditingArea").frame(:index=>0)
-  end
-
-  def add_content=(text)
-    content_editor.send_keys(text)
-  end
-
-  def clear_content
-    frm.frame(:id, "AddSectionForm:fckEditorView:otherMeletecontentEditor_inputRichText___Frame").div(:title=>"Select All").fire_event("onclick")
-    content_editor.send_keys :backspace
-  end
-
-  def select_url
-    frm.link(:id=>"AddSectionForm:ContentLinkView:serverViewButton").click
-    SelectingContent.new(@browser)
-  end
-  
-  # This method clicks the Select button that appears on the page
-  # then calls the LessonAddAttachment class.
-  #
-  # It assumes that the Content Type selection box has
-  # already been updated to "Upload or link to a file in Resources".
-  def select_or_upload_file
-    frm.link(:id=>"AddSectionForm:ResourceHelperLinkView:serverViewButton").click
-    LessonAddAttachment.new(@browser)
-  end
-  
-  in_frame(:index=>1) do |frame|
-    text_field(:title, :id=>"AddSectionForm:title", :frame=>frame)
-    select_list(:content_type, :id=>"AddSectionForm:contentType", :frame=>frame)
-    checkbox(:auditory_content, :id=>"AddSectionForm:contentaudio", :frame=>frame)
-  end
-end
-
-# Confirmation page for Adding (or Editing)
-# a Section to a Module in Lessons.
-class ConfirmSectionAdd
-  
-  include PageObject
-  include ToolsMenu
-  
-  # Clicks the Add Another Section button
-  # then instantiates the AddSection class.
-  def add_another_section
-    frm.link(:id=>/SectionConfirmForm:saveAddAnotherbutton/).click
-    AddEditSection.new(@browser)
-  end
-  
-  # Clicks the Finish button
-  # then instantiates the Lessons class.
-  def finish
-    frm.link(:id=>/Form:FinishButton/).click
-    Lessons.new(@browser)
-  end
-
-end
-
-# 
-class SelectingContent
-  
-  include PageObject
-  include ToolsMenu
-  
-  def continue
-    frm.link(:id=>"ServerViewForm:addButton").click
-    AddEditSection.new(@browser)
-  end
-
-  in_frame(:index=>1) do |frame|
-    text_field(:new_url, :id=>"ServerViewForm:link", :frame=>frame)
-    text_field(:url_title, :id=>"ServerViewForm:link_title", :frame=>frame)
-  end
-end
-
-# 
-class LessonAddAttachment < AddFiles
-
-  include ToolsMenu
-  
-  def initialize(browser)
-    @browser = browser
-    @@classes = {
-      :this => "LessonAddAttachment",
-      :parent => "AddEditSection"
-    }
-  end
-
-end
 
 #================
 # Matrix Pages for a Portfolio Site
@@ -1684,10 +1244,13 @@ class EditCell
   include PageObject
   include ToolsMenu
 
+  thing(:select_evaluators_link) { |b| b.frm.link(:text=>"Select Evaluators") }
+
   # Clicks the "Select Evaluators" link
   # and instantiates the SelectEvaluators Class.
   def select_evaluators
-    frm.link(:text=>"Select Evaluators").click
+    select_evaluators_link.wait_until_present
+    select_evaluators_link.click
     SelectEvaluators.new(@browser)
   end