Using the calendar interface to create the calendars

Gianfrancoalongi · Apr 28, 2013 · 41a198f · 41a198f
1 parent 92d49c5
commit 41a198f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/server.dyalog b/server.dyalog
@@ -55,13 +55,13 @@ calendars ← ⍬
 ∇
 
 ∇ Z ← add_new_bookable data
-     calendars,← ⊂((⊃data) ((0 0 0) (0 0 0) (0 0 0)))
+     calendars,← ⊂#.Calendar.new_calendar (⊃data) 3 3
      Z ← 'added a new calendar for ',⊃data
 ∇
 
 ∇ set_up_calendars
-     calendars ← ⊂('person1' ((0 0 0) (0 0 0) (0 0 0)))
-     calendars,← ⊂('room1'   ((0 0 0) (0 0 0) (0 0 0)))
+     calendars ← ⊂#.Calendar.new_calendar 'person1' 3 3
+     calendars,← ⊂#.Calendar.new_calendar 'room1' 3 3
 ∇
 
 :EndNameSpace