anchor.diff:  
   parse_query(Path) ->
       case string:tokens(Path, [$?]) of
  -	[DirStr, [PosC, $=, DirC]] ->
  +	[DirStr, [PosC, $=, DirC] = Q] ->
   	    Pos = case PosC of
   		      $D -> 2; % date
   		      $S -> 3; % size
  
positive.code: 	    sizestr(FI)]),
      ?Debug("Entry:~p", [Entry]),
      {true, {Name, FI#file_info.mtime, FI#file_info.size, Entry}};
  file_entry(_Err, _, _Name) ->
      ?Debug("no entry for ~p: ~p", [_Name, _Err]),
      false.
  
  
negative.code: list_tail() ->
      "</table>".
  
  file_entry({ok, FI}, _DirName, Name, Qry) ->
      ?Debug("file_entry(~p) ", [Name]),
      Ext = filename:extension(Name),
      {Gif, Alt} = list_gif(FI#file_info.type, Ext),
  