adjust edit page to show the correct details filled in

mck- · Apr 30, 2012 · 9238771 · 9238771
1 parent 50640cc
commit 9238771
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/views/edit.lisp b/src/views/edit.lisp
@@ -10,7 +10,7 @@
 	   (:label "Rating")
 	   (selector-form "movie-rating" '(G PG PG-13 R NC-17) (intern (movie-rating movie)))
 	   (:label "Released on")
-	   (selector-form "year" (num-list 2012 1930))
-	   (selector-form "month" (num-list 1 12))
-	   (selector-form "day" (num-list 1 31))	  
+	   (selector-form "year" (num-list 2012 1930) (get-year (movie-release-date movie)))
+	   (selector-form "month" (num-list 1 12) (get-month (movie-release-date movie)))
+	   (selector-form "day" (num-list 1 31) (get-day (movie-release-date movie)))
 	   (:input :name "commit" :type "submit" :value "Update Movie Info")))))