version 1.100, 2009/02/19 18:55:53
|
version 1.101, 2009/02/20 17:45:40
|
Line 221 sub handler {
|
Line 221 sub handler {
|
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<blockquote>'); |
$r->print('<blockquote>'); |
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>');#OLD SendMessage POS |
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>'); |
} else { |
} else { |
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
} |
} |
Line 297 my $image;
|
Line 297 my $image;
|
} |
} |
|
|
} |
} |
|
#---Print Functions |
if( $target ne 'tex'){ |
if( $target ne 'tex'){ |
&Apache::lontemplate::print_start_page_functions($r); |
&Apache::lontemplate::print_start_page_functions($r); |
if($allowed){ |
if($allowed){ |
Line 307 my $image;
|
Line 308 my $image;
|
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.$query_string.'">'. &mt('Edit').'</a>'); |
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.$query_string.'">'. &mt('Edit').'</a>'); |
} |
} |
&Apache::lontemplate::print_functions_content($r,&Apache::lontemplate::send_message($r,$cnum,$cdom)); |
&Apache::lontemplate::print_functions_content($r,&Apache::lontemplate::send_message($r,$cnum,$cdom)); |
&Apache::lontemplate::print_end_page_functions($r); |
|
|
if ($env{'request.course.id'} && &Apache::lonnet::allowed('srm',$env{'request.course.id'}) && &in_course($cdom,$cnum)) { |
|
if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) || &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'. |
|
$env{'request.course.sec'})) { |
|
&Apache::lontemplate::print_functions_content($r,&Apache::loncommon::track_student_link('View recent activity by this student', |
|
$cnum,$cdom).(' 'x2)); |
|
} |
|
&Apache::lontemplate::print_functions_content($r,&Apache::loncommon::noteswrapper(&mt('Add Records'),$cnum,$cdom)); |
|
} |
|
&Apache::lontemplate::print_end_page_functions($r); |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print( |
$r->print( |
Line 327 my $image;
|
Line 337 my $image;
|
|
|
if($target ne 'tex') #print Image |
if($target ne 'tex') #print Image |
{ |
{ |
&Apache::lontemplate::start_ContentBox($r); |
&Apache::lontemplate::start_ContentBox($r); |
#&Apache::lontemplate::send_message($r,$cnum,$cdom); |
|
&Apache::lontemplate::end_ContentBox($r); |
&Apache::lontemplate::end_ContentBox($r); |
$r->print($image); |
$r->print($image); |
|
|
Line 339 my $image;
|
Line 348 my $image;
|
#End Print Content |
#End Print Content |
|
|
if($target ne 'tex')#Begin Print RSS and portfiles |
if($target ne 'tex')#Begin Print RSS and portfiles |
{ |
{ |
|
|
&print_portfiles_link($r,$is_course); |
&print_portfiles_link($r,$is_course); |
if(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){ |
if(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){ |
&Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom),1,'LC_ContentBoxSpecial'); |
&Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom),1,'LC_ContentBoxSpecial'); |
} |
} |
|
|
}#End Print RSS and portfiles |
} #End Print RSS and portfiles |
|
|
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
|
if ($allowed) { |
if ($allowed) { |
if ($env{'form.popup'}) { |
if ($env{'form.popup'}) { |
$r->print('<input type="hidden" name="popup" value="'. |
$r->print('<input type="hidden" name="popup" value="'. |
Line 362 my $image;
|
Line 369 my $image;
|
# &Apache::lontemplate::send_message($r,$cnum,$cdom); |
# &Apache::lontemplate::send_message($r,$cnum,$cdom); |
$r->print('<p>'.&mt('No personal information provided').'.</p>'); |
$r->print('<p>'.&mt('No personal information provided').'.</p>'); |
} |
} |
|
if($target ne 'tex'){ |
|
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
|
} |
|
|
if ($env{'request.course.id'} |
if ($env{'request.course.id'} |
&& &Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
&& &Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
Line 374 my $image;
|
Line 384 my $image;
|
&mt('Shared by course faculty and staff'). |
&mt('Shared by course faculty and staff'). |
&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"). |
&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"). |
'<br />'); |
'<br />'); |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
$r->print('<hr />'); |
|
if (&Apache::lonnet::allowed('vsa', |
|
$env{'request.course.id'}) || |
|
&Apache::lonnet::allowed('vsa', |
|
$env{'request.course.id'}.'/'. |
|
$env{'request.course.sec'})) { |
|
$r->print(&Apache::loncommon::track_student_link |
|
('View recent activity by this student', |
|
$cnum,$cdom).(' 'x2)); |
|
} |
|
$r->print(&Apache::loncommon::noteswrapper(&mt('Add Records'),$cnum,$cdom)); |
|
} else { |
} else { |
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |
&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); |