loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lontemplate.pm between versions 1.15 and 1.21

version 1.15, 2009/02/13 17:29:39	version 1.21, 2009/03/01 13:23:12
Line 58 sub print_aboutme_content_template{	Line 58 sub print_aboutme_content_template{
my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_;	my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_;
my %syllabusfields = %{$syllabusfields_ref};	my %syllabusfields = %{$syllabusfields_ref};
my %syllabus = %{$syllabus_ref};	my %syllabus = %{$syllabus_ref};
#&start_ContentBox($r,$allowed);
foreach my $field (sort(keys(%syllabusfields))) {	foreach my $field (sort(keys(%syllabusfields))) {
if (($syllabus{$field}) \|\| ($allowed)) {	if (($syllabus{$field}) \|\| ($allowed)) {
my $message=$syllabus{$field};	my $message=$syllabus{$field};
Line 76 sub print_aboutme_content_template{	Line 76 sub print_aboutme_content_template{

if($field eq 'aaa_contactinfo') {	if($field eq 'aaa_contactinfo') {
if($allowed){	if($allowed){
$r->print('<div style="clear:left;" > </div>');	$r->print('<div class="LC_Clear_AboutMe_Image" > </div>');
}	}
&print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecialContactInfo');	&print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecialContactInfo');
$r->print('<div style="clear:left;" > </div>');	$r->print('<div class="LC_Clear_AboutMe_Image" > </div>');
}	}
else{	else{
&print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial');	&print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial');
Line 97 sub print_aboutme_content_template{	Line 97 sub print_aboutme_content_template{
}	}
}	}
}	}
#&end_ContentBox($r);
}	}

sub start_ContentBox{	sub start_ContentBox{
Line 113 sub end_ContentBox{	Line 113 sub end_ContentBox{

sub send_message{	sub send_message{
my ($r,$cnum,$cdom) = @_;	my ($r,$cnum,$cdom) = @_;
my $image = qq{<img name="Send message" src="/res/adm/pages/com.png" border="none" />};	my $s;
$r->print('<div>');	my $image = qq{<img name="Send message" src="/res/adm/pages/com.png" border="none" />};
$r->print(&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom));	$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
$r->print('</div>');	return $s;
}	}

sub print_template	sub print_template
Line 124 sub print_template	Line 124 sub print_template
my ($r,$topic,$content, $allowed,$boxclass) = @_;	my ($r,$topic,$content, $allowed,$boxclass) = @_;
$r->print('<div class="'.$boxclass.'">');	$r->print('<div class="'.$boxclass.'">');
$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');	$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');
$r->print('<blockquote>'.$content.'</blockquote>');	$r->print('<p>' .$content . '</p>');
	$r->print('</div>');
	}
	sub print_start_template
	{
	my ($r,$topic,$boxclass) = @_;
	$r->print('<div class="'.$boxclass.'">');
	$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');
	}
	sub print_end_template
	{
	my ($r) = @_;
$r->print('</div>');	$r->print('</div>');
}	}

sub print_editbox_template	sub print_editbox_template
{	{
my ($r,$content,$field) = @_;	my ($r,$content,$field) = @_;
Line 136 sub print_editbox_template	Line 146 sub print_editbox_template
'</textarea><br /><input type="submit" name="storesyl" value="'.	'</textarea><br /><input type="submit" name="storesyl" value="'.
&mt('Save All').'" />');	&mt('Save All').'" />');
}	}
	sub print_start_page_functions
	{
	my($r)=@_;
	$r->print('<fieldset><legend>'. &mt('Functions') . '</legend>');
	}
	sub print_functions_content
	{
	my($r,$content) = @_;
	$r->print('<span class=\"LC_nobreak\">• '.$content.' </span>');

	}
	sub print_end_page_functions
	{
	my($r)=@_;
	$r->print('</fieldset>');
	}
1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.15
changed lines
	Added in v.1.21