--- loncom/interface/lontemplate.pm 2008/12/10 15:58:36 1.8 +++ loncom/interface/lontemplate.pm 2008/12/16 10:41:02 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.8 2008/12/10 15:58:36 ehlerst Exp $ +# $Id: lontemplate.pm,v 1.9 2008/12/16 10:41:02 ehlerst Exp $ # # Copyright Michigan State University Board of Trustees # @@ -88,8 +88,12 @@ sub print_content_template{ } sub start_ContentBox{ - my ($r) = @_; - $r->print('
'); + my ($r,$allowed) = @_; + if($allowed){ + $r->print('
'); + }else{ + $r->print('
'); + } } sub end_ContentBox{ @@ -107,8 +111,12 @@ sub send_message{ sub print_template { - my ($r,$topic,$content) = @_; - $r->print('
'); + my ($r,$topic,$content, $allowed) = @_; + if($allowed){ + $r->print('
'); + }else{ + $r->print('
'); + } $r->print('

'.$topic.'

'); $r->print('
'.$content.'
'); $r->print('
'); @@ -117,7 +125,7 @@ sub print_template sub print_editbox_template { my ($r,$content,$field) = @_; - $r->print('
');