+print qq!Default service <SELECT NAME="def_svcpart" onChange="fchanged(this)">!,
+ qq!<OPTION VALUE="0">None!;
+foreach my $part_svc ( @part_svc ) {
+ print qq!<OPTION VALUE="!, $part_svc->svcpart, '"',
+ (($hashref->{def_svcpart} == $part_svc->svcpart) ? " SELECTED>" : ">"),
+ $part_svc->svc, qq!</OPTION>!;
+}
+print qq!</SELECT><BR>\n!;
+
+