anchor.diff:  lowercase(C) -> C.
   
   pict_suffix(File) ->
  -    lists:member(lowercase(filename:extension(element(2, File))),
  +    lists:member(lowercase(filename:extension(File)),
   		 [".gif", ".jpeg", ".jpe", ".jpg"]).
   
   get_img(Index, Direction, Files) ->
  
positive.code: 	{ok, Bin} ->
  	    {wik002, Pwd,_Email,_Time,_Who,TxtStr,Files,_Patches} =
  		bin_to_wik002(Bin),
  	    Pics = [element(2,P) || P <- lists:keysort(2,Files),
  				    pict_suffix(P)],
  	    DeepStr = 
  	    ["<table><tr><td colspan=5>",
  	     build_slide_list(Page, 0, length(Files)),
  	     "</td></tr>",
  	     build_thumb_table(Pics,
  			       str2urlencoded(Page),
  			       str2urlencoded(FileDir)),
  	     "</table>"],
  	    F1 = add_blanks_nicely(Page),
  	    TopHeader = 
  		["<h1><a href='showPage.yaws?node=",
  
negative.code:     lists:reverse(["</tr>"|Acc]);
  build_thumb_rows(Pics, Node, FileDir, X, X, Acc) ->
      build_thumb_rows(Pics, Node, FileDir, 0, X, ["</tr>\n<tr>"|Acc]);
  build_thumb_rows([{P,Num}|Pics], Node, FileDir, N, X, Acc) ->
      build_thumb_rows(Pics, Node, FileDir, N+1, X,
  		     [lists:append(["<td align=\"center\">"
  				    "<a href=\"slideShow.yaws?node=", Node,
  				    "&next=",integer_to_list(Num),"\">"
  				    "<img src='getThumb.yaws?node=", Node,
  				    "&pict=", str2urlencoded(P),
  				    "'></a></td>\n"])|Acc]).
  