Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaboutme.pm between versions 1.82 and 1.108

version 1.82, 2008/12/10 21:46:58	version 1.108, 2009/03/02 22:32:19
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# "About Me" Personal Information	# Personal Information Page
#	#
# $Id$	# $Id$
#	#
Line 86 use Apache::lonlocal;	Line 86 use Apache::lonlocal;
use Apache::lonmsgdisplay();	use Apache::lonmsgdisplay();
use Apache::lontemplate;	use Apache::lontemplate;
use HTML::Entities();	use HTML::Entities();
	use Image::Magick;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 119 sub handler {	Line 120 sub handler {
if ($target eq 'tex') {	if ($target eq 'tex') {
$r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\');	$r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\');
} else {	} else {
$r->print(&Apache::loncommon::start_page("Personal Information"));	$r->print(&Apache::loncommon::start_page("Personal Information Page"));
$r->print('<h2>'.&mt('No user home page available') .'</h2>'.	$r->print('<h2>'.&mt('No user home page available') .'</h2>'.
&mt('This is a result of one of the following:').'<ul>'.	&mt('This is a result of one of the following:').'<ul>'.
'<li>'.&mt('The administrator of this domain has disabled home page functionality for this specific user.').'</li>'.	'<li>'.&mt('The administrator of this domain has disabled home page functionality for this specific user.').'</li>'.
Line 135 sub handler {	Line 136 sub handler {
# --------------------------------------------------------- The syllabus fields	# --------------------------------------------------------- The syllabus fields
my %syllabusfields=&Apache::lonlocal::texthash(	my %syllabusfields=&Apache::lonlocal::texthash(
'aaa_contactinfo' => 'Contact Information',	'aaa_contactinfo' => 'Contact Information',
'bbb_aboutme' => 'About Me',	'bbb_aboutme' => 'Personal Information',
'ccc_webreferences' => 'Web References');	'ccc_webreferences' => 'Web References');

# ------------------------------------------------------------ Get Query String	# ------------------------------------------------------------ Get Query String
Line 167 sub handler {	Line 168 sub handler {

if ($is_course) {	if ($is_course) {
if ($target ne 'tex') {	if ($target ne 'tex') {
my @brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"},	my $brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"},
{href=>"/adm/aboutme",text=>"Course Information"}];	{href=>"/adm/aboutme",text=>"Course Information"}];
my $start_page =	my $start_page =
&Apache::loncommon::start_page(	&Apache::loncommon::start_page(
"Course Information",	"Course Information",
Line 176 sub handler {	Line 177 sub handler {
{'function' => $env{'forcestudent'},	{'function' => $env{'forcestudent'},
'domain' => $cdom,	'domain' => $cdom,
'force_register' => $env{'forceregister'},	'force_register' => $env{'forceregister'},
bread_crumbs => @brcrum});	'bread_crumbs' => $brcrum});
$r->print($start_page);	$r->print($start_page);
$r->print('<h2>'.&mt('Group files').'</h2>');	$r->print('<h2>'.&mt('Group files').'</h2>');
&print_portfiles_link($r,$is_course);	&print_portfiles_link($r,$is_course);
Line 193 sub handler {	Line 194 sub handler {
if ($forcestudent eq '') {	if ($forcestudent eq '') {
$forceregister = $env{'form.register'};	$forceregister = $env{'form.register'};
}	}

	#------------Get rights
	my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
	my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
	my $allowed=0;
	my $privleged=$allowed=(($env{'user.name'} eq $cnum) &&
	($env{'user.domain'} eq $cdom));
	if ($forcestudent or $target eq 'tex') { $allowed=0; }


# --------------------------------------- There is such a user, get environment	# --------------------------------------- There is such a user, get environment
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
if ($target ne 'tex') {	if ($target ne 'tex') {
my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);	my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);
my $args = {'function' => $forcestudent,	my $args = {'function' => $forcestudent,
Line 204 sub handler {	Line 214 sub handler {
if ($env{'form.popup'}) {	if ($env{'form.popup'}) {
$args->{'no_nav_bar'} = 1;	$args->{'no_nav_bar'} = 1;
}	}
$args->{'bread_crumbs'} = [{href=>"/adm/fhwfdev/$cnum/aboutme",text=>"Personal Information"}];	$args->{'bread_crumbs'} = [{href=>"/adm/fhwfdev/$cnum/aboutme",text=>"Personal Information Page"}];
my $start_page =	my $start_page =
&Apache::loncommon::start_page("Personal Information",$rss_link,$args);	&Apache::loncommon::start_page("Personal Data",$rss_link,$args);
$r->print($start_page);	$r->print($start_page);
$r->print('<h2>'.&Apache::loncommon::plainname($cnum,$cdom).'</h2>');
} else {	}
$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\');
}	#Print Help Text
if ($courseenv{'nickname'}) {	if ($target ne 'tex') {
$r->print(	if($allowed){
'<h2>"'.$courseenv{'nickname'}.	$r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
'"</h2>');	}
}	}
if ($target ne 'tex') {
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>');#OLD SendMessage POS	#----------------Print Functions
} else {	if( $target ne 'tex'){
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\');	&Apache::lontemplate::print_start_page_functions($r);
}	if($allowed){
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);	my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});
my $allowed=0;	&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'));
	}elsif($privleged){
	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>');
	}
	&Apache::lontemplate::print_functions_content($r,&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'})) {
	&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);
	}
	#------Print Headtitle
	if ($target ne 'tex') {
	$r->print('<div class="LC_ContentBoxSpecial">');
	$r->print('<h2 class="LC_hcell">'.&Apache::loncommon::plainname($cnum,$cdom).'</h2>');
	$r->print('<blockquote>');
	if ($courseenv{'nickname'}) {
	$r->print('<h2>"'.$courseenv{'nickname'}.'"</h2>');
	}
	$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>');
	}
	else{
	$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\');
	$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\');
	}
# does this user have privileges to post, etc?	# does this user have privileges to post, etc?

my $privleged=$allowed=(($env{'user.name'} eq $cnum) &&
($env{'user.domain'} eq $cdom));	my $query_string;
if ($forcestudent or $target eq 'tex') { $allowed=0; }
	if ($allowed) {
if ($allowed) {	$r->print('<p><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.'). '</p>');
my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});	}
$r->print('<p><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.').
'</p>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'</p><p><a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
} elsif ($privleged && $target ne 'tex') {
my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}});
$r->print('<p><a href="'.$r->uri.$query_string.'">'.
&mt('Edit').'</a></p>');
}
if (($env{'form.uploaddoc.filename'}) &&	if (($env{'form.uploaddoc.filename'}) &&
($env{'form.storeupl'}) && ($allowed)) {	($env{'form.storeupl'}) && ($allowed)) {
if ($env{'form.uploaddoc.filename'}=~/\.(gif\|jpg\|png\|jpeg)$/i) {	if ($env{'form.uploaddoc.filename'}=~/\.(gif\|jpg\|png\|jpeg)$/i) {
Line 280 my $image;	Line 311 my $image;
if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {	if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {
$lastmod=$syllabus{'uploaded.lastmodified'};	$lastmod=$syllabus{'uploaded.lastmodified'};
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));	$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
# $r->print(&mt('Last updated').': '.$lastmod); #Old Last Modifi Pos	$r->print('<br />'.&mt('Last updated').': '.$lastmod);


if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/aboutme',	&Apache::lonnet::allowuploaded('/adm/aboutme',
$syllabus{'uploaded.photourl'});	$syllabus{'uploaded.photourl'});
$image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
	#This call is to resize all "Personal Information" images in the LonCapa System. When its done, you can remove this line.
	&Apache::lonnet::resizeImage(&Apache::lonnet::filelocation('',$syllabus{'uploaded.photourl'}));
	#---End Resize---

	$image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'} " class="LC_AboutMe_Image" />};

if ($target eq 'tex') {	if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);	$image=&Apache::lonxml::xmlparse($r,'tex',$image);
}	}
# $r->print($image); #Print old Image
}	}

if ($allowed) {	if ($allowed) {
$r->print(	$r->print(
'<form method="post">
<input type="submit" name="delupl" value="'.&mt('Delete Photo').'" />
</form>'.
'<form method="post" enctype="multipart/form-data">'.	'<form method="post" enctype="multipart/form-data">'.
'<h3>'.&mt('Upload a Photo').'</h3>'.	'<h3>'.&mt('Upload a Photo').'</h3>'.
'<input type="file" name="uploaddoc" size="50" />'.	'<input type="file" name="uploaddoc" size="50" />'.
'<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.	'<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
'<input type="hidden" name="popup" value="'.$env{'form.popup'}.'" />'.	'<input type="hidden" name="popup" value="'.$env{'form.popup'}.'" />'.
'</form><form method="post">');	'</form><form method="post"><input type="submit" name="delupl" value="'.&mt('Delete Photo').'" /> </form><p>
	');

}	}
&Apache::lontemplate::start_columnSection($r);
&Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);	if($allowed) {
if($target ne 'tex')	$r->print('<form method="post">');
{	}
&Apache::lontemplate::start_ContentBox($r);
$r->print($image);	if($target ne 'tex') #print Image
&Apache::lontemplate::send_message($r,$cnum,$cdom);	{
	&Apache::lontemplate::start_ContentBox($r);
&Apache::lontemplate::end_ContentBox($r);	&Apache::lontemplate::end_ContentBox($r);
&Apache::lontemplate::end_columnSection($r);	$r->print($image);
&Apache::lontemplate::start_columnSection($r);
&Apache::lontemplate::start_ContentBox($r);	}#End Print Image

	#Print Content eg. Contactinfo aboutme,...
	&Apache::lontemplate::print_aboutme_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);
	#End Print Content

	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 ''){
$r->print('<div class="ContentBoxSpecial">');	&Apache::lontemplate::print_template($r,'RSS Feeds and Blogs',&Apache::lonrss::advertisefeeds($cnum,$cdom),1,'LC_ContentBoxSpecial');
$r->print('<h4 class="hcell">'.'RSS Feeds and Blogs'.'</h4>');	}
$r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom));
$r->print('</div>');	} #End Print RSS and portfiles
}
&Apache::lontemplate::end_ContentBox($r);
&Apache::lontemplate::end_columnSection($r);
}


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 335 my $image;	Line 377 my $image;
}	}
if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}	if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}
} else {	} else {
	# &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'){
if ($target ne 'tex') {	#$r->print('</blockquote>');
# &print_portfiles_link($r,$is_course); #old Print files	#$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'})
&& &in_course($cdom,$cnum)) {	&& &in_course($cdom,$cnum)) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<a name="coursecomment" />');	$r->print('<a name="coursecomment" />');
$r->print('<hr /><h3>'.	&Apache::lontemplate::print_start_template($r,&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').&mt('Shared by course faculty and staff').&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message"),'LC_ContentBoxSpecial');
&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'.	&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
&mt('Shared by course faculty and staff').	&Apache::lontemplate::print_end_template($r);
&Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
'<br />');
&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('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);
}	}
}	}
	$r->print('</blockquote>');
	$r->print('</div>');
if ($target ne 'tex') {	if ($target ne 'tex') {
if ($env{'form.popup'}) {	if ($env{'form.popup'}) {
$r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a>');	$r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a>');
}	}
$r->print('<br />'.&mt('Last updated').': '.$lastmod);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} else {	} else {
$r->print('\end{document}');	$r->print('\end{document}');
Line 435 sub print_portfiles_link {	Line 465 sub print_portfiles_link {
difl => 'Display file listing',	difl => 'Display file listing',
);	);
if ($filecounts->{'both'} > 0) {	if ($filecounts->{'both'} > 0) {
$output = '<div class="ContentBoxSpecial"><h4 class="hcell">';	$output = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">';
$output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';	$output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';

#$output = '<h4>'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';	#$output = '<h4>'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';
Line 522 sub display_portfolio_header {	Line 552 sub display_portfolio_header {
if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {	if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/$cdom/$cnum/aboutme".$query_string,	({href=>"/adm/$cdom/$cnum/aboutme".$query_string,
text=>"Personal information - $name",	text=>&mt('Personal Information Page - [_1]',$name),
title=>"Go to personal information page for $name"}, {href=>"/adm/$cdom/$cnum/aboutme/portfolio",	title=>&mt('Go to personal information page for [_1]', $name)},
text=>"Viewable files - $name",	{href=>"/adm/$cdom/$cnum/aboutme/portfolio",
title=>"Viewable portfolio files for $name"}	text=>&mt('Viewable files - [_1]', $name),
	title=>&mt('Viewable portfolio files for [_1]', $name)}
);	);
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.'));	$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.'));
}	}
Line 757 sub parse_directory {	Line 788 sub parse_directory {
' '.$showname.'</a>';	' '.$showname.'</a>';
$output.='</td><td>';	$output.='</td><td>';
if ($have_meta) {	if ($have_meta) {
$output.= '<a href="'.$url.'.meta"><img alt="'.&mt('Catalog Information').'" src="'.	$output.= '<a href="'.$url.'.meta"><img alt="'.&mt('Metadata').'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').
'" class="LC_icon" /></a>';	'" class="LC_icon" /></a>';
}	}
Line 782 sub aboutme_access {	Line 813 sub aboutme_access {
$cdom = $coursehash{'domain'};	$cdom = $coursehash{'domain'};
$cnum = $coursehash{'cnum'};	$cnum = $coursehash{'cnum'};
}	}
if ((&allowed('srm',$privcheck)) \|\| (&allowed('dff',$privcheck))) {	if ((&Apache::lonnet::allowed('srm',$privcheck)) \|\|
	(&Apache::lonnet::allowed('dff',$privcheck))) {
if (&in_course($uname,$udom,$cnum,$cdom)) {	if (&in_course($uname,$udom,$cnum,$cdom)) {
return 1;	return 1;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.82
changed lines
	Added in v.1.108