Roxen.git/ server/ modules/ tags/ killframe.pike

1997-08-27

1997-08-27 12:37:13 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 1e843547299d5bf5dcb472be522f9cfbf6026aeb (19 lines) (+9/-10) ^{[ Show | Annotate ]}
  Branch: 5.2

Minor fix.

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

8:    * made by Peter Bortas <peter@infovav.se> Januari -97    */    - constant cvs_version = "$Id: killframe.pike,v 1.6 1997/08/12 17:47:31 peter Exp $"; + constant cvs_version = "$Id: killframe.pike,v 1.7 1997/08/27 12:37:13 grubba Exp $";   #include <module.h>   inherit "module";   
35:   {    // Links to index.html are ugly.    string my_url = id->conf->query("MyWorldLocation") + id->raw_url[1..]; -  +     int l=strlen(my_url);       if( my_url[l-10..] == "index.html" )    my_url = my_url[..l-11];       if (id->supports->javascript) -  string head = "<script language=javascript>\n" +  return("<script language=javascript>\n"    "<!--\n"    " if(top.location.href != \""+ my_url +"\")\n"    " top.location.href = \""+ my_url +"\";\n"    "//-->" -  "</script>\n"; -  -  return head; +  "</script>\n"); +  return "";   }      mapping query_tag_callers()   {    return ([ "killframe" : tag_killframe ]);   }