\n";
$welcome = &find("welcome", $jsm);
print " $text{'messages_wsubject'} | \n";
printf " | \n",
&find_value("subject", $welcome);
print " $text{'messages_wbody'} | \n";
print " | \n";
print "
| \n";
$register = &find("register", $jsm);
print " $text{'messages_rinstr'} | \n";
printf " | \n",
&find_value("instructions", $register);
print " $text{'messages_rnotify'} | \n";
printf " %s\n",
$register->[1]->[0]->{'notify'} eq 'yes' ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$register->[1]->[0]->{'notify'} eq 'yes' ? '' : 'checked', $text{'no'};
print "$text{'messages_rfields'} | \n";
foreach $f (@register_fields) {
local $rf = &find($f, $register);
printf " %s\n",
"rfield_$f", $rf ? "checked" : "", $f;
}
print " | \n";
print "
| \n";
$vcard = &find("vcard", $jsm);
@vc = @{$vcard->[1]}; shift(@vc);
print " $text{'messages_vcard'} | \n";
print " | \n";
$vcard2jud = &find("vcard2jud", $jsm);
print " $text{'messages_vcard2jud'} | \n";
printf " %s\n",
$vcard2jud ? "checked" : "", $text{'yes'};
printf " %s | \n",
$vcard2jud ? "" : "checked", $text{'no'};
print " |