Commit 2c4dd9dc authored by Kirk Webb's avatar Kirk Webb

Populate "fixed" column in virt_blockstores table.

Also fix typo in BlockstoreType.pm
parent 25f1d1e7
......@@ -274,7 +274,7 @@ sub SetAttribute($$$;$)
my $safe_attrvalue = DBQuoteSpecial($attrvalue);
my $type = $self->type();
DBQueryWarn("replace into node_type_attributes set ".
DBQueryWarn("replace into blockstore_type_attributes set ".
" type='$type', attrkey='$attrkey', ".
" attrtype='$attrtype', attrvalue=$safe_attrvalue")
or return -1;
......
......@@ -129,6 +129,7 @@ Blockstore instproc get_node {} {
uplevel "#0" "set $hname [$sim node]"
$hname set subnodehost 1
$hname set subnodechild $self
set node $hname
# Return parent node object.
return $hname
......@@ -153,8 +154,8 @@ Blockstore instproc updatedb {DB} {
#}
# Emit top-level storage object stuff.
set vb_fields [list "vname" "type" "role" "size"]
set vb_values [list $self $type $role $size]
set vb_fields [list "vname" "type" "role" "size" "fixed"]
set vb_values [list $self $type $role $size $node]
$sim spitxml_data "virt_blockstores" $vb_fields $vb_values
# Emit attributes.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment