GSU_CQXE_OpenURL グローバル フックは、Web ブラウザ ウィンドウを指定の URL で開きます。この機能は最初に、ユーザーがメッセージをカスタマイズできる確認ダイアログを開きます。ダイアログでユーザーが [OK] をクリックするとブラウザが開きます。ユーザーが [キャンセル] をクリックするとダイアログが閉じられ、レコード フォームに戻ります。
この機能は、ClearQuest® クライアントと ClearQuest Web クライアントで使用可能です。ユーザーが古いクライアントまたは ClearQuest for Windows クライアントから URL を開こうとすると、API は情報メッセージを返します。 ユーザーにこのメッセージを表示するには、die 関数を呼び出します。
パッケージの適用について 詳しくは、「パッケージの適用」を参照してください。
次の例は、URL を開くためにグローバル フックで使用できるレコード スクリプトです。この例では、[OpenIBM] ボタンをクリックするとダイアログが開き、ユーザーは、指定の URL でブラウザを開くかどうか聞かれます。ユーザーが [OK] をクリックすると、ブラウザ ウィンドウは www.ibm.com で開きます。ユーザーが [キャンセル] をクリックすると、ダイアログが閉じられます。
sub Defect_Open_Url {
my($result);
my($param) = @_;
# record type name is Defect
$url="http://www.ibm.com";
$msg="Do you want to open a browser to this URL?";
my $session = $entity->GetSession();
GSU_CQXE_OpenURL($session,$url,$msg);
return $result;
}
Function Defect_Open_Url(param)
' param As Variant
' record type name is Defect
REM add your hook code here
Dim url
Dim message
set session = GetSession
url = "http://www.ibm.com"
message = "Do you want to open a browser to this URL?"
Defect_Open_Url=GSU_CQXE_OpenURL(session,url,message)
End Function