-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!;
-
-