snapshot list: include current position

[qemu-server.git] / PVE / API2 / Qemu.pm

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index e76d9aa068b942ac13f13f25d4b4b18aaec0af83..a928c4cd7a4b62601d31cd6b3da1c22af0673a21 100644 (file)
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -1918,7 +1918,16 @@ __PACKAGE__->register_method({
        my $res = [];
 
        foreach my $name (keys %$snaphash) {
-           push @$res, { name => $name };
+           my $d = $snaphash->{$name};
+           my $item = { name => $name, description => $d->{description} };
+           $item->{parent} = $d->{parent} if $d->{parent};
+           push @$res, $item;
+       }
+
+       if ($conf->{parent}) {
+           push @$res, { name => '__current', parent => $conf->{parent} };
+       } else {
+           push @$res, { name => '__current' };
        }
 
        return $res;