![]() ![]() | ![]() |
Change desgin in abuotme,sylabus,simplepage
1: # The LearningOnline Network 2: # "Template" Functions to generate html output 3: # 4: # $Id: lontemplate.pm,v 1.20 2009/02/25 13:25:52 neumanie Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: 30: package Apache::lontemplate; 31: 32: 33: use strict; 34: use Apache::Constants qw(:common); 35: use Apache::loncommon; 36: use Apache::lonnet; 37: use Apache::lonxml; 38: use Apache::lonspeller; 39: use Apache::lontexconvert; 40: use Apache::lonfeedback; 41: use Apache::lonrss(); 42: use Apache::lonlocal; 43: use Apache::lonmsgdisplay(); 44: use HTML::Entities(); 45: 46: 47: sub start_columnSection{ 48: my ($r) = @_; 49: $r->print('<div class="LC_columnSection">'); 50: } 51: 52: sub end_columnSection{ 53: my ($r) = @_; 54: $r->print('</div>'); 55: } 56: 57: sub print_aboutme_content_template{ 58: my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_; 59: my %syllabusfields = %{$syllabusfields_ref}; 60: my %syllabus = %{$syllabus_ref}; 61: 62: foreach my $field (sort(keys(%syllabusfields))) { 63: if (($syllabus{$field}) || ($allowed)) { 64: my $message=$syllabus{$field}; 65: &Apache::lonfeedback::newline_to_br(\$message); 66: $message 67: =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; 68: if ($allowed) { 69: $message=&Apache::lonspeller::markeduptext($message); 70: } 71: $message=&Apache::lontexconvert::msgtexconverted($message); 72: if ($target ne 'tex') { 73: if($allowed){ 74: $r->print('<p>'); 75: } 76: 77: if($field eq 'aaa_contactinfo') { 78: if($allowed){ 79: $r->print('<div class="LC_Clear_AboutMe_Image" > </div>'); 80: } 81: &print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecialContactInfo'); 82: $r->print('<div class="LC_Clear_AboutMe_Image" > </div>'); 83: } 84: else{ 85: &print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial'); 86: } 87: 88: } else { 89: $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. 90: &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); 91: } 92: if ($allowed) { 93: &print_editbox_template($r,$syllabus{$field},$field); 94: if($target ne 'tex'){ 95: $r->print('</p>'); 96: } 97: } 98: } 99: } 100: 101: } 102: 103: sub start_ContentBox{ 104: my ($r,$allowed) = @_; 105: $r->print('<div class="LC_ContentBox">'); 106: 107: } 108: 109: sub end_ContentBox{ 110: my ($r) = @_; 111: $r->print('</div>'); 112: } 113: 114: sub send_message{ 115: my ($r,$cnum,$cdom) = @_; 116: my $s; 117: my $image = qq{<img name="Send message" src="/res/adm/pages/com.png" border="none" />}; 118: $s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom); 119: return $s; 120: } 121: 122: sub print_template 123: { 124: my ($r,$topic,$content, $allowed,$boxclass) = @_; 125: $r->print('<div class="'.$boxclass.'">'); 126: $r->print('<h4 class="LC_hcell">'.$topic.'</h4>'); 127: $r->print('<p>' .$content . '</p>'); 128: $r->print('</div>'); 129: } 130: sub print_start_template 131: { 132: my ($r,$topic,$boxclass) = @_; 133: $r->print('<div class="'.$boxclass.'">'); 134: $r->print('<h4 class="LC_hcell">'.$topic.'</h4>'); 135: } 136: sub print_end_template 137: { 138: my ($r) = @_; 139: $r->print('</div>'); 140: } 141: sub print_editbox_template 142: { 143: my ($r,$content,$field) = @_; 144: $r->print('<textarea cols="81" rows="6" name="'.$field.'">'. 145: &HTML::Entities::encode($content,'"&<>'). 146: '</textarea><br /><input type="submit" name="storesyl" value="'. 147: &mt('Save All').'" />'); 148: } 149: sub print_start_page_functions 150: { 151: my($r)=@_; 152: $r->print('<fieldset><legend>'. &mt('Functions') . '</legend>'); 153: } 154: sub print_functions_content 155: { 156: my($r,$content) = @_; 157: $r->print($content.' '); 158: 159: } 160: sub print_end_page_functions 161: { 162: my($r)=@_; 163: $r->print('</fieldset>'); 164: } 165: 1;