X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-view.el;h=d6267146cd0e2666bcaf6219f5c512ca2b085b01;hp=ca965f2517ac12de0edc15c7c33fdbcdfaed47fc;hb=c7eacb59b6c11c458ee5b0d5af024090c09134b6;hpb=23b35bd9c5ba764b229991e08e38be73edff4bed

diff --git a/cwiki-view.el b/cwiki-view.el
index ca965f2..d626714 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -329,14 +329,21 @@ li { margin: 0 0 0 2em; }
 	     (setq ret (concord-object-get object '=hng-card))
 	     (setq ret (symbol-name ret))
 	     (string-match "\\([0-9]+\\)-\\([0-9]+\\)" ret))
-	(princ
-	 (format
-	  "<img alt=\"HNG-card:%s\"
+	(setq ret
+	     (format
+	      "<img alt=\"HNG-card:%s\"
 src=\"http://hng.chise.org/images/HNG/%03d/card/%04d.jpg\"
 style=\"height: 480px;\" />"
-	  ret
-	  (string-to-int (match-string 1 ret))
-	  (string-to-int (match-string 2 ret))))
+	      ret
+	      (string-to-int (match-string 1 ret))
+	      (string-to-int (match-string 2 ret))))
+	(princ
+	 (if (setq image-cobj
+		   (car (concord-object-get object '->image-resource)))
+	     (format "<a href=\"../image-resource/%s\">%s</a>"
+		     (www-uri-encode-object image-cobj)
+		     ret)
+	   ret))
 	)
        (t
 	(setq ret (www-format-encode-string