 
 (defn create-session [districtName schoolName]
   (into () [
-    (element :CalendarDate {:id (format "%s_day" districtName) }
+    (element :CalendarDate {:id (format "%s-%s-day" districtName schoolName) }
       (element :Date {} "2011-09-22")
       (element :CalendarEvent {} "Instructional day")
     )
 
-    (element :GradingPeriod {:id (format "%s-GP1" districtName)}
+    (element :GradingPeriod {:id (format "%s-%s-GP1" districtName schoolName)}
       (element :GradingPeriodIdentity {}
         (element :GradingPeriod {} "End of Year")
         (element :SchoolYear {} "2011-2012")

      )
      (element :SessionReference {}
        (element :SessionIdentity {}
          (element :SessionName {} (format "%s-Fall-2011" schoolName))
        )
      )
      (element :CourseReference {}

    )

    (element :Section {}
      (element :UniqueSectionCode {} (format "%s-%s-Math-7-2011-Sec2" districtName schoolName))
      (element :SequenceOfCourse {} "1")
      (element :CourseOfferingReference {}
        (element :CourseOfferingIdentity {}
          (element :LocalCourseCode {} (format "%s-%s-Math-7" districtName schoolName))
          (element :CourseCode {:IdentificationSystem "CSSC course code"}
            (element :ID {} (format "Math-7-%s" districtName))
          )
          (element :Term {} "Fall Semester")
          (element :SchoolYear {} "2011-2012")
