Changeset cc468c0 in tol

Timestamp:

Oct 19, 2010, 9:40:19 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

522fbed

Parents:

08d3a10

Message:

More details about possible updates and upgrades on RemoteUpdatePackSyncInfo

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2600 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/TolPackage/client.tol (modified) (3 diffs)

tol/stdlib/general/TolPackage/client.tol

@@ -438 +438 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Text _MID = "TolPackage::Client::[RemoteUpdatePackSyncInfo]\n";
+  Text _MID = "TolPackage::Client::[RemoteUpdatePackSyncInfo] ";
   If(TolConfigManager::Config::Upgrading::TolPackage::LocalOnly, 0, {
   Set repositories = 
@@ -480 +480 @@
   Set _.packForUpdate := Select(_.packSyncInfo, Real(TolPackage::@PackageSynchro pkg)
   {
-    And(pkg->co_last_version_local != "",
+    Real need = And(pkg->co_last_version_local != "",
         pkg->co_last_version_local == pkg->co_last_version_remote,  
-        pkg->dh_release_date_local <  pkg->dh_release_date_remote)   
+        pkg->dh_release_date_local <  pkg->dh_release_date_remote);
+    If(And(showWarnings,need),
+    {
+      WriteLn("  Local package "+pkg->co_last_version_local+
+              " created at "<<pkg->dh_release_date_local+
+              " could be updated to newer remote patch since "+pkg->dh_release_date_remote)
+    });
+    need
   });
   If(And(showWarnings,Card(_.packForUpdate)),
   {
-    WriteLn(_MID+"There are "<<Card(_.packForUpdate)+" packages that you can update "
-            "from remote repositories to new releases of the same version.\n"
+    WriteLn(_MID+"There are "<<Card(_.packForUpdate)+" packages that you could update "
+            "from remote repositories to new patches of the same version.\n"
             "You can view them at:\n "
             "  Set TolPackage::Client::_.packForUpdate\n"
-            "You can update all them running this TOL sentence: \n"
+            "You could update all them running this TOL sentence: \n"
             "  Set TolPackage::Client::RemoteUpdateAll(0)\n",
             "W")
@@ -496 +503 @@
   Set _.packForUpgrade := Select(_.packSyncInfo, Real(TolPackage::@PackageSynchro pkg)
   {
-    And(pkg->co_last_version_local != "",
-        pkg->co_last_version_local < pkg->co_last_version_remote)   
+    Real need = And(pkg->co_last_version_local != "",
+        pkg->co_last_version_local < pkg->co_last_version_remote);
+    If(And(showWarnings,need),
+    {
+      WriteLn("  Local package "+pkg->co_last_version_local+
+              " could be upgraded to "<<pkg->co_last_version_remote)
+    });
+    need
   });
   If(And(showWarnings,Card(_.packForUpgrade)),
   {
-    WriteLn(_MID+"There are "<<Card(_.packForUpgrade)+" packages that you can upgrade "
+    WriteLn(_MID+"There are "<<Card(_.packForUpgrade)+" packages that you could upgrade "
             "from remote repositories to new versions.\n"
             "You can view them at:\n "