Fix to use visible domains only

iliajie · iliajie · commit 1ee910a77506 · 2023-08-29T23:37:42.000+03:00
diff --git a/move_form.cgi b/move_form.cgi
@@ -37,7 +37,7 @@ else {
 	# New parent
 	@pdoms = sort { lc($a->{'dom'}) cmp lc($b->{'dom'}) }
 		      grep { !$_->{'parent'} && &can_config_domain($_) }
-		           &list_domains();
+		           &list_visible_domains();
 	if ($d->{'parent'}) {
 		@pdoms = grep { $_->{'id'} ne $d->{'parent'} } @pdoms;
 		}

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ else {`
`37`	`37`	`# New parent`
`38`	`38`	`@pdoms = sort { lc($a->{'dom'}) cmp lc($b->{'dom'}) }`
`39`	`39`	`grep { !$_->{'parent'} && &can_config_domain($_) }`
`40`		`- &list_domains();`
	`40`	`+ &list_visible_domains();`
`41`	`41`	`if ($d->{'parent'}) {`
`42`	`42`	`@pdoms = grep { $_->{'id'} ne $d->{'parent'} } @pdoms;`
`43`	`43`	`}`