Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
isv:perlur:epel
tinyca2
tinyca2-cleanup.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File tinyca2-cleanup.patch of Package tinyca2
diff -up tinyca2-0.7.6-20070611/lib/GUI.pm.cleanup tinyca2-0.7.6-20070611/lib/GUI.pm --- tinyca2-0.7.6-20070611/lib/GUI.pm.cleanup 2007-03-22 09:52:22.000000000 +0200 +++ tinyca2-0.7.6-20070611/lib/GUI.pm 2011-03-18 10:05:56.000000000 +0200 @@ -1263,7 +1263,7 @@ sub show_req_dialog { # table for request data my $cc=0; my $ous = 1; - if(defined($opts->{'OU'})) { + if(defined($opts->{'OU'}) and defined @{$opts->{'OU'}}) { $ous = @{$opts->{'OU'}} - 1; } $reqtable = Gtk2::Table->new(1, 13 + $ous, 0); @@ -1311,7 +1311,7 @@ sub show_req_dialog { _("Organization Name (eg. company):"), \$opts->{'O'}, $reqtable, 10, 1); - if(defined($opts->{'OU'})) { + if(defined($opts->{'OU'}) and defined @{$opts->{'OU'}}) { foreach my $ou (@{$opts->{'OU'}}) { $entry = GUI::HELPERS::entry_to_table( _("Organizational Unit Name (eg. section):"), @@ -2545,7 +2545,7 @@ sub about { return; } - $aboutdialog->set_name("TinyCA2"); + $aboutdialog->set_program_name("TinyCA2"); $aboutdialog->set_version($main->{'version'}); $aboutdialog->set_copyright("2002-2006 Stephan Martin"); $aboutdialog->set_license("GNU Public License (GPL)"); @@ -2558,6 +2558,8 @@ sub about { _("French: Thibault Le Meur <Thibault.Lemeur\@supelec.fr>")); $aboutdialog->show_all(); + $aboutdialog->run; + $aboutdialog->destroy; return; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor