');
- }
-
if($field eq 'aaa_contactinfo') {
- if($allowed){
$r->print('
');
-
+sub send_message {
+ my ($r,$cnum,$cdom) = @_;
+ my $linktext = &mt('Send message to [_1]',
+ &Apache::loncommon::plainname($cnum,$cdom));
+ my $image = qq{

};
+ return &Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper($linktext,$cnum,$cdom);
}
-sub end_ContentBox{
- my ($r) = @_;
+sub print_template {
+ my ($r,$topic,$content, $allowed,$boxclass) = @_;
+ $r->print('
');
+ $r->print('
'.$topic.'
');
+ $r->print($content);
$r->print('');
}
-sub send_message{
- my ($r,$cnum,$cdom) = @_;
- my $s;
- my $image = qq{

};
- $s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
- return $s;
+sub print_start_template {
+ my ($r,$topic,$boxclass) = @_;
+ $r->print('
');
+ $r->print('
'.$topic.'
');
}
-sub print_template
-{
- my ($r,$topic,$content, $allowed,$boxclass) = @_;
- $r->print('
');
- $r->print('
'.$topic.'
');
- $r->print('
' .$content . '
');
+sub print_end_template {
+ my ($r) = @_;
$r->print('
');
}
-sub print_editbox_template
-{
+sub print_editbox_template {
my ($r,$content,$field) = @_;
$r->print('
');
}
-sub print_start_page_functions
-{
- my($r)=@_;
- $r->print('
');
+
+sub print_saveall_template {
+ my ($r) = @_;
+ $r->print('
');
+}
+
+sub print_template_fields {
+ my ($r, $data_ref, $fields_ref, $target, $allowed, $default_rich_text, $custom_handlers_ref, $group) = @_;
+ my @html_ids = ();
+ my %data = %{$data_ref};
+ my %fields = %{$fields_ref};
+ my %custom_handlers = %{$custom_handlers_ref};
+
+ foreach my $field (sort(keys(%fields))) {
+ my $message = $data{$field} if (($data{$field}=~/\w/) || ($allowed));
+ if ((%custom_handlers) && ($custom_handlers{$field})) {
+ $custom_handlers{$field}->($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed);
+ } else {
+ if (($data{$field}=~/\w/) || ($allowed)) {
+ if (!&Apache::lonfeedback::contains_block_html($message)) {
+ &Apache::lonfeedback::newline_to_br(\$message);
+ } else {
+ $message = &Apache::lonfeedback::tidy_html($message);
+ }
+ $message=&Apache::lonhtmlcommon::raw_href_to_link($message);
+ if ($allowed) {
+ $message=&Apache::lonspeller::markeduptext($message);
+ }
+ $message=&Apache::lontexconvert::msgtexconverted($message);
+ if ($target ne 'tex') {
+ #output of syllabusfields will be generated here.
+ &Apache::lontemplate::print_start_template($r,$fields{$field},'LC_Box');
+ $r->print($message);
+ if ($allowed) {
+ $r->print("
");
+ &Apache::lontemplate::print_textarea_template($r, $data{$field},
+ $field, $default_rich_text);
+ &Apache::lontemplate::print_saveall_template($r);
+ $r->print("
");
+ }
+ &Apache::lontemplate::print_end_template($r);
+ } else {
+ my $safeinit;
+ if ($fields{$field}=~/\w/) {
+ $r->print(&Apache::lonxml::xmlparse($r,'tex','
'.$fields{$field}.'
'));
+ } else {
+ $r->print(&Apache::lonxml::xmlparse($r,'tex','
'));
+ }
+ $r->print(&Apache::lonxml::xmlparse($r,'tex',$message));
+ }
+ push(@html_ids,$field);
+ }
+ }
+ }
+
+ return @html_ids;
}
+
1;