Refresh left frame

webmin/CHANGELOG

@@ -75,3 +75,5 @@ The nice level (CPU priority) of all cron and other background jobs run by Webmi
 Use the gzip -d command to extract Webmin modules, if gunzip is missing (such as on Windows).
 Users with too many failed logins can be locked until the administrator unlocks them.
 The default scheduled update time is now randomly selected.
+---- Changes since 1.410 ----
+Refresh the left-side frame when installing, removing or re-categorizing modules.

webmin/clone_mod.cgi

@@ -68,5 +68,5 @@ if ($in{'cat'} ne '*') {
 					  'dst' => $dst,
 					  'dstdesc' => $in{'desc'} });
 &flush_webmin_caches();
-&redirect("");
+&redirect("index.cgi?refresh=1");
 

webmin/delete_mod.cgi

@@ -70,5 +70,10 @@ for($i=0; $i<@mdesc; $i++) {
 	print $mdesc[$i],"<p>\n";
 	}
 print "</ul><p>\n";
+
+if (defined(&theme_post_change_modules)) {
+	&theme_post_change_modules();
+	}
+
 &ui_print_footer("", $text{'index_return'});
 

webmin/index.cgi

@@ -7,6 +7,7 @@ $ver = &get_webmin_version();
 &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
 	undef, undef, undef, &text('index_version', $ver));
 %access = &get_module_acl();
+&ReadParse();
 
 @wlinks = ( "edit_access.cgi", "edit_bind.cgi", "edit_log.cgi",
 	    "edit_proxy.cgi", "edit_ui.cgi", "edit_mods.cgi",
@@ -94,5 +95,10 @@ if (!$config{'submitted'}) {
 
 print &ui_buttons_end();
 
+if ($in{'refresh'} && defined(&theme_post_change_modules)) {
+	# Refresh left menu
+	&theme_post_change_modules();
+	}
+
 &ui_print_footer("/", $text{'index'});
 

webmin/install_mod.cgi

@@ -118,6 +118,11 @@ for($i=0; $i<@mdescs; $i++) {
 		}
 	}
 print "</ul><p>\n";
+
+if (defined(&theme_post_change_modules)) {
+	&theme_post_change_modules();
+	}
+
 &ui_print_footer("", $text{'index_return'});
 
 sub inst_error

webmin/save_assignment.cgi

@@ -15,4 +15,4 @@ foreach $module (keys %in){
 &webmin_log("assignment", undef, undef, \%in);
 &flush_webmin_caches();
 
-&redirect("");
+&redirect("index.cgi?refresh=1");

webmin/save_categories.cgi

@@ -32,4 +32,4 @@ $file .= ".".$in{'lang'} if ($in{'lang'});
 &unlock_file($file);
 &webmin_log("categories", undef, $in{'lang'}, \%in);
 &flush_webmin_caches();
-&redirect("");
+&redirect("index.cgi?refresh=1");