| Line 32... |
Line 32... |
| 32 |
End Function
|
32 |
End Function
|
| 33 |
'-----------------------------------------------------------------------------------------------------------------------------------
|
33 |
'-----------------------------------------------------------------------------------------------------------------------------------
|
| 34 |
%>
|
34 |
%>
|
| 35 |
<%
|
35 |
<%
|
| 36 |
'----------------- Page Requirements ---------------------------
|
36 |
'----------------- Page Requirements ---------------------------
|
| 37 |
If CBool(QStrPar("action")) AND (objAccessControl.UserLogedIn) Then
|
37 |
If CBool(QStrPar("action")) Then
|
| 38 |
Call OpenInParentWindow ("_new_version.asp?OLDpv_id="& parOLDpv_id &"&rtag_id="& parRtag_id &"&pv_id="& parPv_id )
|
- |
|
| 39 |
Call CloseWindow
|
38 |
' action is no longer used
|
| 40 |
Else
|
- |
|
| 41 |
' ------- Page Parameter Requirements ----------
|
- |
|
| 42 |
If (parPkg_id = "") OR (parRfile = "") Then
|
- |
|
| 43 |
Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!<br>"& Request.ServerVariables("QUERY_STRING") )
|
39 |
Call RaiseMsg ( enum_WMSG_ERROR, "Did not expect to get here!<br>"& Request.ServerVariables("QUERY_STRING") )
|
| 44 |
End If
|
- |
|
| 45 |
|
- |
|
| 46 |
End If
|
40 |
End If
|
| 47 |
|
41 |
|
| 48 |
'----------------------------------------------------------------
|
42 |
'----------------------------------------------------------------
|
| 49 |
' Get some details of the base page
|
43 |
' Get some details of the base page
|
| 50 |
' In particular, can it be replaced/edited. The calculation needs to be based on
|
44 |
' In particular, can it be replaced/edited. The calculation needs to be based on
|