perl-ldap-checkins

[Clif H. <ch...@us...>]

Update of /cvsroot/perl-ldap/ldap/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv29597/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Corrected an error in the mod rdn section.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- tklkup	20 Jan 2003 00:33:42 -0000	1.33
+++ tklkup	21 Jan 2003 01:45:51 -0000	1.34
@@ -50,7 +50,6 @@
 my %Global = ();
 my %NC     = ();
 
-my $programVersion = "$Id\$";
 
 $Global{'jpeg'}   = 1;
 eval { use Tk::JPEG; }; 
@@ -177,15 +176,6 @@
 
 $Global{'mainWindow'} = MainWindow->new;
 $Global{'mainWindow'}->geometry("520x320+$Global{'horz'}+$Global{'vert'}");
-$Global{'mainWindow'}->configure(-menu => $Global{'menubar'} = $Global{'mainWindow'}->Menu);
-
-$Global{'menubar'}->cascade(-label => "~Directory OPS",
-                  -menuitems => ops_items);
-$Global{'menubar'}->command(-label => "Set ~Bind Credentials", 
-                  -command => \&BIND );
-$Global{'menubar'}->command(-label => "Set DSA ~Port", 
-                  -command => \&PORT );
-
 $splash = $Global{'mainWindow'}->Splashscreen(-milliseconds => 0) 
         if ( $Global{splash} );
 $splframe = $splash->LabFrame(-label => "DIRECTORY SEARCH SPLASH SCREEN",
@@ -456,6 +446,19 @@
 push(@attribute,"Filter");  # put roll your on filter at the end
 
 #
+# Create the Menubar
+# 
+
+$Global{'mainWindow'}->configure(-menu => $Global{'menubar'} = $Global{'mainWindow'}->Menu);
+
+$Global{'menubar'}->cascade(-label => "~Directory OPS",
+                  -menuitems => ops_items);
+$Global{'menubar'}->command(-label => "Set ~Bind Credentials", 
+                  -command => \&BIND );
+$Global{'menubar'}->command(-label => "Set DSA ~Port", 
+                  -command => \&PORT );
+
+#
 # Create process Exit button
 #
 
@@ -1703,7 +1706,6 @@
   $Global{'sfile'} = 0;
   $Global{'fdata'} = "";
   $Global{'xml'} = 0;
-  #$ldap->unbind if ( defined($ldap));
   return;
 
 }
@@ -2929,7 +2931,6 @@
 sub ldapActionDelete
 {
 my $error;
-my $ldap;
 my $mesg;
 my @DNs;
 my $do_it;
@@ -3029,7 +3030,6 @@
  }
 
 }
-#$ldap->unbind;
 
 } # End of ldapActionDelete subroutine
 
@@ -3040,7 +3040,6 @@
 sub ldapActionRename
 {
 my $error;
-my $ldap;
 my $mesg;
 $error = 0;
 my $do_it;
@@ -3098,7 +3097,7 @@
 while ($do_it == 1 )
 {
 
-$mesg = $ldap->moddn($Global{'RenameDN'}, 
+$mesg = $Global{ldap}->moddn($Global{'RenameDN'}, 
                      newrdn => $Global{'newrdn'}, 
                      deleteoldrdn => $Global{'deleteoldrdn'}, 
                      newsuperior => $Global{'newsuperior'} );