Patch title: Release 87 bulk changes
Abstract:
File: /pliant/protocol/http/style/common.style
Key:
    Removed line
    Added line
   
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


method page goto_backward n
  arg_rw HtmlPage page ; arg Int n
  page:http_request answer_is_dynamic := true
  page html "<script language=[dq]JavaScript[dq]>[lf]"
  var Int x := undefined ; var Int y := undefined
  part search
    if n=0
      if ("&"+page:http_request:form+"&" eparse any "&_plian
        leave search
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


method page goto_backward n
  arg_rw HtmlPage page ; arg Int n
  page:http_request answer_is_dynamic := true
  page html "<script language=[dq]JavaScript[dq]>[lf]"
  var Int x := undefined ; var Int y := undefined
  part search
    if n=0
      if ("&"+page:http_request:form+"&" eparse any "&_plian
        leave search
      eif (page:http_request:url_options parse "button+" (va
      eif (page:http_request:encoded_options parse "button+" (var Int x) "+" (var Int y) "+" any)
        leave search
    eif n=1
      var Pointer:Arrow c :> page:http_request:query_log fir
      while c<>null
        if ((c map Str) parse acword:"referer" ":" any "?but
          leave search
        c :> page:http_request:query_log next c
  if x=defined and y=defined
    var Str spos := (character 65+x\17576)+(character 65+x\6
    page html "    window.name = '_xy_"+spos+"_'+window.name
  if page:http_request:browser_model="netscape"
    page html "  history.go(-"+(string n+1)+")[lf]"
  eif false # page:http_request:browser_model="ie" and page:
    page html "  window.name = '_reload_'+window.name[lf]"
    page html "  history.go(-"+(string n+1)+")[lf]"
  else # Mozilla 0.9.8, IE 6, Opera 6 and Konqueror
    page html "  window.name = '_back_"+(character 65+n)+"__
  page html "</script>[lf]"
  page html "<p>Now computing ...</p><p><font size=[dq]-1[dq


        leave search
    eif n=1
      var Pointer:Arrow c :> page:http_request:query_log fir
      while c<>null
        if ((c map Str) parse acword:"referer" ":" any "?but
          leave search
        c :> page:http_request:query_log next c
  if x=defined and y=defined
    var Str spos := (character 65+x\17576)+(character 65+x\6
    page html "    window.name = '_xy_"+spos+"_'+window.name
  if page:http_request:browser_model="netscape"
    page html "  history.go(-"+(string n+1)+")[lf]"
  eif false # page:http_request:browser_model="ie" and page:
    page html "  window.name = '_reload_'+window.name[lf]"
    page html "  history.go(-"+(string n+1)+")[lf]"
  else # Mozilla 0.9.8, IE 6, Opera 6 and Konqueror
    page html "  window.name = '_back_"+(character 65+n)+"__
  page html "</script>[lf]"
  page html "<p>Now computing ...</p><p><font size=[dq]-1[dq