Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/rMisc.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/rMisc.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Chart/rMisc.pas

@@ -36 +36 @@
 function ServerHasPatch(const x: string): Boolean;
 function ServerVersion(const Option, VerClient: string): string;
+function PackageVersion(const Namespace: string): string;
 
 procedure SaveUserBounds(AControl: TControl);
@@ -111 +112 @@
   with RPCBrokerV do
   begin
+    ClearParameters := True;
     RemoteProcedure := 'XWB GET VARIABLE VALUE';
     Param[0].Value := x;
@@ -127 +129 @@
 begin
   Result := sCallV('ORWU VERSRV', [Option, VerClient]);
+end;
+
+function PackageVersion(const Namespace: string): string;
+begin
+  Result := sCallV('ORWU VERSION', [Namespace]);
 end;