--- loncom/interface/lonaboutme.pm 2009/05/19 10:03:37 1.134
+++ loncom/interface/lonaboutme.pm 2009/06/11 16:48:33 1.138
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Personal Information Page
#
-# $Id: lonaboutme.pm,v 1.134 2009/05/19 10:03:37 amueller Exp $
+# $Id: lonaboutme.pm,v 1.138 2009/06/11 16:48:33 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -203,7 +203,6 @@ sub handler {
($env{'user.domain'} eq $cdom));
if ($forcestudent or $target eq 'tex') { $allowed=0; }
-
# --------------------------------------- There is such a user, get environment
if ($target ne 'tex') {
@@ -218,7 +217,56 @@ sub handler {
}
my $start_page = &Apache::loncommon::start_page('Personal Information Page',$rss_link,$args);
$r->print($start_page);
+ }
+
+#----------------Print Functions
+ if ($target ne 'tex') {
+ my $functions=&Apache::lonhtmlcommon::start_funclist();
+ if ($allowed) {
+ my $query_string = &build_query_string(
+ {'forcestudent' => '1',
+ 'popup' => $env{'form.popup'}});
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Show Public View').''
+ .&Apache::loncommon::help_open_topic(
+ 'Uploaded_Templates_PublicView'));
+ } elsif ($privleged) {
+ my $query_string = &build_query_string(
+ {'forceedit' => '1',
+ 'popup' => $env{'form.popup'}});
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Edit').'');
+ }
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ &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 (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) ||
+ &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ &Apache::loncommon::track_student_link(
+ 'View recent activity by this student',$cnum,$cdom));
+ }
+ if (&Apache::lonnet::allowed('vgr', $env{'request.course.id'}) ||
+ &Apache::lonnet::allowed('vgr', $env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ &Apache::loncommon::slot_reservations_link(
+ 'Slot reservation history',$cnum,$cdom));
+ }
+ $functions.=&Apache::lonhtmlcommon::add_item_funclist(
+ &Apache::loncommon::noteswrapper(
+ &mt('Add Records'),$cnum,$cdom));
+ }
+ $functions.=&Apache::lonhtmlcommon::end_funclist();
+ $r->print(&Apache::loncommon::head_subbox($functions));
+ }
+# Print Privacy Note
+ if ($target ne 'tex') {
#Print Privacy Note
if ($allowed) {
$r->print('
'
@@ -227,9 +275,11 @@ sub handler {
.'
'
);
}
+ }
#Print last modified
+ if ($target ne 'tex') {
my $lastmod;
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
$lastmod=$syllabus{'uploaded.lastmodified'};
@@ -246,42 +296,10 @@ sub handler {
}
}
-#----------------Print Functions
- if ($target ne 'tex') {
- $r->print(&Apache::lontemplate::start_functionslist());
- if ($allowed) {
- my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});
- $r->print(&Apache::lontemplate::item_functionslist(
- ''.&mt('Show Public View').''
- .&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView')));
- } elsif ($privleged) {
- my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}});
- $r->print(&Apache::lontemplate::item_functionslist(
- ''. &mt('Edit').''));
- }
- $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 (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) || &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
- $r->print(&Apache::lontemplate::item_functionslist(
- &Apache::loncommon::track_student_link('View recent activity by this student',$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)));
- }
- $r->print(&Apache::lontemplate::end_functionslist());
- }
#------Print Headtitle
if ($target ne 'tex') {
- $r->print('');
+ $r->print('
');
$r->print('
'.&Apache::loncommon::plainname($cnum,$cdom).'
');
- $r->print('
' );
if ($courseenv{'nickname'}) {
$r->print('
"'.$courseenv{'nickname'}.'"
');
}
@@ -362,8 +380,6 @@ sub handler {
}
if ($target ne 'tex') { #print Image
- &Apache::lontemplate::start_ContentBox($r);
- &Apache::lontemplate::end_ContentBox($r);
$r->print($image);
} #End Print Image
@@ -375,7 +391,7 @@ sub handler {
if ($target ne 'tex') { #Begin Print RSS and portfiles
&print_portfiles_link($r,$is_course);
if (&Apache::lonrss::advertisefeeds($cnum,$cdom) ne '') {
- &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');
+ &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_Box');
$r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom));
&Apache::lontemplate::print_end_template($r);
}
@@ -400,7 +416,7 @@ sub handler {
&& &in_course($cdom,$cnum)) {
if ($target ne 'tex') {
$r->print('
');
- &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_Box');
$r->print('
');
$r->print(&mt('Shared by course faculty and staff').&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"));
$r->print(' ');
@@ -415,7 +431,6 @@ sub handler {
}
if ($target ne 'tex') {
$r->print('
');
- $r->print('
');
if ($env{'form.popup'}) {
$r->print('
'.&mt('Close window').'');
}
@@ -479,8 +494,8 @@ sub print_portfiles_link {
'difl' => 'Display file listing',
);
if ($filecounts->{'both'} > 0) {
- $output = '
';
- $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
';
+ $output = '
';
+ $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
';
#$output = '
'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
';
$output .= '