changed retrieve-videos to use a page number parameter

playlist_server.rkt

@@ -5,6 +5,7 @@
 (require web-server/dispatch)
 (require "links.rkt")
 (require "command_parser.rkt")
+(require "cacher.rkt")
 (require xml)
 
 (define (make-server player-thread parse-command)
@@ -32,11 +33,19 @@
    [("add") add-name]
    [else user-list]))
 
+;(check-cache 
+;       username 
+;       'user 
+;       (λ () (retrieve-videos username)) 
+;       identity)
+  
 ;; Returns all of the videos for a user
 (define (user-list req)
   (response/xexpr
    (string->xexpr
-    (retrieve-videos (path/param-path (car (url-path (request-uri req))))))))
+    (let [(username (path/param-path (car (url-path (request-uri req)))))
+          (page-n (hash-ref (list->hash (url-query (request-uri req))) 'p))]
+      (retrieve-videos username (string->number page-n))))))
 
 ;; Adds a new resource to the lazyplay queue
 (define (add-name req)