open used carts window with corret title

git-svn-id: https://svn.helsinki.at/rhimport/trunk@69 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 9 insertions, 4 deletions

diff --git a/rhimport b/rhimport
index 20a814f..b3f0c20 100755
--- a/rhimport
+++ b/rhimport
@@ -337,10 +337,15 @@ sub show_used_carts_gui()
     $l_status->set_label("Carts: $low_cart - $high_cart");
   }
 
-#  my $usedcartswin = $guixml->get_widget('usedcartswin');
-#  $usedcartswin or die "can't find Widget";
-#  $usedcartswin->resize(640,480);
-#  $usedcartswin->show;
+  my $usedcartswin = Gtk2::Window->new();
+  $usedcartswin or die "can't open new window";
+  $usedcartswin->resize(640,480);
+  if($low_cart eq $high_cart) {
+    $usedcartswin->set_title("Cart: $low_cart");
+  } else {
+    $usedcartswin->set_title("Carts: $low_cart - $high_cart");
+  }
+  $usedcartswin->show;
 }
 
 sub clear_status_gui()