No comments

diff --git a/src/WOKTclLib/wokQUE.tcl b/src/WOKTclLib/wokQUE.tcl
index 4cf86c5a676d53bce4ec5d4560a9262307099cbc..b06b2ce3c7dd7a0349ffa3bc9d8df485b3274c4e 100755 (executable)
--- a/src/WOKTclLib/wokQUE.tcl
+++ b/src/WOKTclLib/wokQUE.tcl
@@ -21,6 +21,10 @@ proc wokWaffQueue { {loc {}} } {
        return 
     }
     
+    if { [wokStore:Report:SetQName $curwb] == {} } {
+       return
+    }
+
     toplevel $w
     wm title $w "Integration Queue of $curwb"
     wm geometry $w 742x970+515+2
@@ -95,6 +99,7 @@ proc wokWaffQueue { {loc {}} } {
     tixForm $w.journal -top $w.file -left $w.reports -right -2
     tixForm $w.top -top $w.reports  -left 2 -right  %99 -bottom $w.lab 
     tixForm $w.lab -left 2 -right %99  -bottom %99
+
     
     set IWOK_WINDOWS($w,menu)        $w.file.m
     set IWOK_WINDOWS($w,label)       $w.lab

diff --git a/src/WOKTclLib/wokRPR.tcl b/src/WOKTclLib/wokRPR.tcl
index 6f9c4318c4929918603c193e366a827c411b1947..d10c04e4708b3632cff5597370d38fd204d42fac 100755 (executable)
--- a/src/WOKTclLib/wokRPR.tcl
+++ b/src/WOKTclLib/wokRPR.tcl
@@ -14,7 +14,9 @@ proc wokUpdateRepository { {loc {}} } {
     }
     set fact [wokinfo -f $verrue]
     set shop [wokinfo -s $verrue]
-    set type [wokIntegre:BASE:InitFunc]
+    set curwb [wokinfo -w $verrue]
+
+   
 
     set w [wokTPL rpr${verrue}]
     if [winfo exists $w ] {
@@ -23,11 +25,16 @@ proc wokUpdateRepository { {loc {}} } {
        return 
     }
 
+    if { [wokStore:Report:SetQName $curwb] == {} } {
+       return
+    }
+    
+    set type [wokIntegre:BASE:InitFunc]
+
     toplevel    $w
-    wm title    $w "Repository of $shop ."
+    wm title    $w "Repository of $curwb ."
     wm geometry $w 1124x658+135+92
     wokButton setw [list Rpr_close $w]
-    ;#bind $w <Destroy> { if [winfo exists %W] {wokRPRExit %W}}
 
     tixBusy $w on
     update