version 1.115, 2009/03/21 22:09:51
|
version 1.120, 2009/04/02 15:09:10
|
Line 196 sub handler {
|
Line 196 sub handler {
|
} |
} |
|
|
#------------Get rights |
#------------Get rights |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); |
my $allowed=0; |
my $allowed=0; |
my $privleged=$allowed=(($env{'user.name'} eq $cnum) && |
my $privleged=$allowed=(($env{'user.name'} eq $cnum) && |
($env{'user.domain'} eq $cdom)); |
($env{'user.domain'} eq $cdom)); |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
|
|
|
|
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 222 sub handler {
|
Line 222 sub handler {
|
} |
} |
|
|
#Print Privacy Note |
#Print Privacy Note |
if ($allowed) { |
if ($allowed) { |
$r->print('<p class="LC_info">' |
$r->print('<p class="LC_info">' |
.'<b>'.&mt('Privacy Note').':</b> ' |
.'<b>'.&mt('Privacy Note:').'</b> ' |
.&mt('The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publicly.') |
.&mt('The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publicly.') |
.'</p>' |
.'</p>' |
); |
); |
} |
} |
|
|
#Print Help Text |
#Print Help Text |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if($allowed){ |
if($allowed){ |
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); |
$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); |
|
} |
} |
} |
} |
|
|
|
#----------------Print Functions |
#----------------Print Functions |
if( $target ne 'tex'){ |
if ($target ne 'tex'){ |
&Apache::lontemplate::print_start_page_functions($r); |
$r->print(&Apache::lontemplate::start_functionslist()); |
if($allowed){ |
if($allowed){ |
my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}}); |
my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}}); |
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>'.&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')); |
$r->print(&Apache::lontemplate::item_functionslist( |
|
'<a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>' |
|
.&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'))); |
}elsif($privleged){ |
}elsif($privleged){ |
my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}}); |
my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}}); |
&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.$query_string.'">'. &mt('Edit').'</a>'); |
$r->print(&Apache::lontemplate::item_functionslist( |
|
'<a href="'.$r->uri.$query_string.'">'. &mt('Edit').'</a>')); |
} |
} |
&Apache::lontemplate::print_functions_content($r,&Apache::lontemplate::send_message($r,$cnum,$cdom)); |
$r->print(&Apache::lontemplate::item_functionslist( |
|
&Apache::lontemplate::send_message($r,$cnum,$cdom))); |
|
|
if ($env{'request.course.id'} && &Apache::lonnet::allowed('srm',$env{'request.course.id'}) && &in_course($cdom,$cnum)) { |
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'}.'/'. |
if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) || &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'. |
$env{'request.course.sec'})) { |
$env{'request.course.sec'})) { |
&Apache::lontemplate::print_functions_content($r,&Apache::loncommon::track_student_link('View recent activity by this student', |
$r->print(&Apache::lontemplate::item_functionslist( |
$cnum,$cdom).(' 'x2)); |
&Apache::loncommon::track_student_link('View recent activity by this student',$cnum,$cdom))); |
} |
} |
&Apache::lontemplate::print_functions_content($r,&Apache::loncommon::noteswrapper(&mt('Add Records'),$cnum,$cdom)); |
if (&Apache::lonnet::allowed('vgr', $env{'request.course.id'}) || |
|
&Apache::lonnet::allowed('vgr', $env{'request.course.id'}.'/'. |
|
$env{'request.course.sec'})) { |
|
$r->print(&Apache::lontemplate::item_functionslist( |
|
&Apache::loncommon::slot_reservations_link('Slot reservation history',$cnum,$cdom))); |
|
} |
|
$r->print(&Apache::lontemplate::item_functionslist( |
|
&Apache::loncommon::noteswrapper(&mt('Add Records'),$cnum,$cdom))); |
} |
} |
&Apache::lontemplate::print_end_page_functions($r); |
$r->print(&Apache::lontemplate::end_functionslist()); |
} |
} |
#------Print Headtitle |
#------Print Headtitle |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<h2 class="LC_hcell">'.&Apache::loncommon::plainname($cnum,$cdom).'</h2>'); |
$r->print('<h2 class="LC_hcell">'.&Apache::loncommon::plainname($cnum,$cdom).'</h2>'); |
$r->print('<blockquote>'); |
$r->print('<blockquote>'); |
if ($courseenv{'nickname'}) { |
if ($courseenv{'nickname'}) { |
$r->print('<h2>"'.$courseenv{'nickname'}.'"</h2>'); |
$r->print('<h2>"'.$courseenv{'nickname'}.'"</h2>'); |
} |
} |
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>'); |
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>'); |
} |
} |
else{ |
else { |
$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\'); |
$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\'); |
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
} |
} |
# does this user have privileges to post, etc? |
# does this user have privileges to post, etc? |
|
|
|
|
Line 394 my $image;
|
Line 405 my $image;
|
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'}) |
&& &in_course($cdom,$cnum)) { |
&& &in_course($cdom,$cnum)) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
|
$r->print('<a name="coursecomment" />'; |
&Apache::lontemplate::print_start_template($r,&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course'),'LC_ContentBoxSpecial'); |
&Apache::lontemplate::print_start_template($r,&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course'),'LC_ContentBoxSpecial'); |
$r->print('<span class="LC_info">'); |
$r->print('<span class="LC_info">'); |
$r->print(&mt('Shared by course faculty and staff').&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message")); |
$r->print(&mt('Shared by course faculty and staff').&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message")); |