Branch: Tag:

1998-04-15

1998-04-15 12:00:45 by Peter Bortas <zino@lysator.liu.se>

Fixed errornous removal if query.

Rev: server/modules/tags/killframe.pike:1.18

10:    * Thanks for suggestions and bugreports:    * Barry Treahy <treahy@allianceelec.com>    * Chris Burgess <chris@ibex.co.nz> +  * +  * BUGS: +  * Removes document-internal links. (gazink.html#foo)    */    - constant cvs_version = "$Id: killframe.pike,v 1.17 1998/04/03 19:20:53 peter Exp $"; + constant cvs_version = "$Id: killframe.pike,v 1.18 1998/04/15 12:00:45 peter Exp $";   constant thread_safe=1;      #include <module.h>
68:    else    my_url += id->not_query[1..];    +  if(id->query) +  my_url += "?"+ id->query; +  else +  {    int l=strlen(my_url)-1;       foreach( indexfiles, string index )    if( my_url[l-strlen(index)..] == "/" +index )    my_url = my_url[..l-strlen(index)]; -  +  }       javascript = ( " if(top.location != \""+ my_url +"\")\n"    " top.location = \""+ my_url +"\";\n" );