no_comment

1 files changed, 0 insertions, 84 deletions

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5cec2da8a..0b9989377 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -125,87 +125,3 @@ sub addToBeDone(&$) {
 
     push @{$::o->{steps}{$step}{toBeDone}}, $f;
 }
-
-sub upgrFindInstall {
-#    int rc;
-#
-#    if (!$::o->{table}.parts) { 
-#	 rc = findAllPartitions(NULL, &$::o->{table});
-#	 if (rc) return rc;
-#    }
-#
-#    umountFilesystems(&$::o->{fstab});
-#    
-#    #  rootpath upgrade support 
-#    if (strcmp($::o->{rootPath} ,"/mnt"))
-#	 return INST_OKAY;
-#    
-#    #  this also turns on swap for us 
-#    rc = readMountTable($::o->{table}, &$::o->{fstab});
-#    if (rc) return rc;
-#
-#    if (!testing) {
-#	 mountFilesystems(&$::o->{fstab});
-#
-#	 if ($::o->{method}->prepareMedia) {
-#	     rc = $::o->{method}->prepareMedia($::o->{method}, &$::o->{fstab});
-#	     if (rc) {
-#		 umountFilesystems(&$::o->{fstab});
-#		 return rc;
-#	     }
-#	 }
-#    }
-#
-#    return 0;
-}
-
-sub upgrChoosePackages {
-#    static int firstTime = 1;
-#    char * rpmconvertbin;
-#    int rc;
-#    char * path;
-#    char * argv[] = { NULL, NULL };
-#    char buf[128];
-#
-#    if (testing)
-#	 path = "/";
-#    else
-#	 path = $::o->{rootPath};
-#
-#    if (firstTime) {
-#	 snprintf(buf, sizeof(buf), "%s%s", $::o->{rootPath},
-#		  "/var/lib/rpm/packages.rpm");
-#	 if (access(buf, R_OK)) {
-#	 snprintf(buf, sizeof(buf), "%s%s", $::o->{rootPath},
-#		  "/var/lib/rpm/packages");
-#	     if (access(buf, R_OK)) {
-#		 errorWindow("No RPM database exists!");
-#		 return INST_ERROR;
-#	     }
-#
-#	     if ($::o->{method}->getFile($::o->{method}, "rpmconvert", 
-#		     &rpmconvertbin)) {
-#		 return INST_ERROR;
-#	     }
-#
-#	     symlink("/mnt/var", "/var");
-#	     winStatus(35, 3, _("Upgrade"), _("Converting RPM database..."));
-#	     chmod(rpmconvertbin, 0755);
-#	     argv[0] = rpmconvertbin;
-#	     rc = runProgram(RUN_LOG, rpmconvertbin, argv);
-#	     if ($::o->{method}->rmFiles)
-#		 unlink(rpmconvertbin);
-#
-#	     newtPopWindow();
-#	     if (rc) return INST_ERROR;
-#	 }
-#	 winStatus(35, 3, "Upgrade", _("Finding packages to upgrade..."));
-#	 rc = ugFindUpgradePackages(&$::o->{packages}, path);
-#	 newtPopWindow();
-#	 if (rc) return rc;
-#	 firstTime = 0;
-#	 psVerifyDependencies(&$::o->{packages}, 1);
-#    }
-#
-#    return psSelectPackages(&$::o->{packages}, &$::o->{compss}, NULL, 0, 1);
-}