OpenURL グローバル フックは、Web ブラウザ ウィンドウを指定の URL で開きます。この機能は最初に、ユーザーがメッセージをカスタマイズできる確認ダイアログを開きます。ダイアログでユーザーが [OK] をクリックするとブラウザが開きます。ユーザーが [キャンセル] をクリックするとダイアログが閉じられ、レコード フォームに戻ります。
グローバル フック コードのダウンロード手順については、http://www.ibm.com/support/docview.wss?&rs=939&uid=swg21432968 のテクニカル ノート 1432968 を参照してください。
この機能は、ClearQuest Eclipse および 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?"; OpenURL($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 url = "http://www.ibm.com" message = "Do you want to open a browser to this URL?" Defect_Open_Url=OpenURL(url,message) End Function