Changes

From SME Server
Jump to navigationJump to search
Line 7: Line 7:     
           my $key  = $record->key;
 
           my $key  = $record->key;
 
+
 
           my %properties = $record->props;
 
           my %properties = $record->props;
 
+
 
           my $value = $record->prop($prop_key);
 
           my $value = $record->prop($prop_key);
 
                       $record->set_prop($prop_key, $prop_val);
 
                       $record->set_prop($prop_key, $prop_val);
 
+
 
           my $value = $record->delete_prop($prop_key);
 
           my $value = $record->delete_prop($prop_key);
 
+
 
           $record->merge_props(%more_properties);
 
           $record->merge_props(%more_properties);
 
           $record->reset_props(%new_properties);
 
           $record->reset_props(%new_properties);
 
+
 
           $record->delete;
 
           $record->delete;
 
+
 
           print $record->show;
 
           print $record->show;
  

Navigation menu