Diff

Differences From Artifact [25b5870365]:

To Artifact [745b700e51]:


   438    438   }
   439    439   
   440    440   proc getPassword {passwordName} {
   441    441   	puts [_getPassword $passwordName]
   442    442   }
   443    443   
   444    444   proc updatePassword {passwordName password} {
          445  +	if {$password eq ""} {
          446  +		set password [_prompt "Please enter the new password: "]
          447  +	}
          448  +
   445    449   	db eval {SELECT publicKey FROM passwords WHERE name = $passwordName;} row {
   446    450   		lappend publicKeys $row(publicKey)
   447    451   	}
   448    452   
   449    453   	_addPassword $passwordName $password $publicKeys
   450    454   }
   451    455