loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaboutme.pm between versions 1.65 and 1.74

version 1.65, 2007/07/27 00:17:17	version 1.74, 2008/11/20 13:11:36
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#

	=pod

	=head1 NAME

	pache::lonaboutme

	=head1 SYNOPSIS

	(empty)

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 OVERVIEW

	(empty)


	=head1 SUBROUTINES

	=over

	=item handler()

	=item in_course()

	=item aboutme_info()

	=item print_portfiles_link()

	=item build_query_string()

	=item display_portfolio_header()

	=item display_portfolio_files()

	=item portfolio_files()

	=item build_hierarchy()

	=item parse_directory()

	=back

	=cut


package Apache::lonaboutme;	package Apache::lonaboutme;

use strict;	use strict;
Line 37 use Apache::lonfeedback;	Line 84 use Apache::lonfeedback;
use Apache::lonrss();	use Apache::lonrss();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsgdisplay();	use Apache::lonmsgdisplay();
	use Apache::lontemplate;
use HTML::Entities();	use HTML::Entities();

sub handler {	sub handler {
Line 69 sub handler {	Line 117 sub handler {
# ------------------------------------------------------------ Get Query String	# ------------------------------------------------------------ Get Query String
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['forceedit','forcestudent',	['forceedit','forcestudent',
'register']);	'register','popup']);

# ----------------------------------------------- Available Portfolio file display	# ----------------------------------------------- Available Portfolio file display
if (($target ne 'tex') && ($action eq 'portfolio')) {	if (($target ne 'tex') && ($action eq 'portfolio')) {
Line 115 sub handler {	Line 163 sub handler {
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);	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,
	'domain' => $cdom,
	'force_register' => $forceregister};
	if ($env{'form.popup'}) {
	$args->{'no_nav_bar'} = 1;
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page("Personal Information", $rss_link,	&Apache::loncommon::start_page("Personal Information",$rss_link,$args);
{'function' => $forcestudent,
'domain' => $cdom,
'force_register' =>
$forceregister,});
$r->print($start_page);	$r->print($start_page);
$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');	$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
} else {	} else {
Line 132 sub handler {	Line 182 sub handler {
'"</h2>');	'"</h2>');
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>'.	$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>');#OLD SendMessage POS
'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));
} else {	} else {
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\');	$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\');
}	}
Line 147 sub handler {	Line 196 sub handler {
if ($forcestudent or $target eq 'tex') { $allowed=0; }	if ($forcestudent or $target eq 'tex') { $allowed=0; }

if ($allowed) {	if ($allowed) {
my $query_string = &build_query_string({'forcestudent' => '1',});	my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});
$r->print('<p><b>'.&mt('Privacy Note').':</b> '.	$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.').	&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>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p><a href="'.$r->uri.$query_string.'">Show Public View</a>'.	&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>');	&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
} elsif ($privleged && $target ne 'tex') {	} elsif ($privleged && $target ne 'tex') {
my $query_string = &build_query_string({'forceedit' => '1',});	my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}});
$r->print('<p><a href="'.$r->uri.$query_string.'"><font size="+1">'.	$r->print('<p><a href="'.$r->uri.$query_string.'"><font size="+1">'.
&mt('Edit').'</font></a></p>');	&mt('Edit').'</font></a></p>');
}	}
Line 189 sub handler {	Line 238 sub handler {
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);	&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
}	}

	my $lastmod;
	my $image;
# ---------------------------------------------------------------- Get syllabus	# ---------------------------------------------------------------- Get syllabus
if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {	if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {
my $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);	# $r->print(&mt('Last updated').': '.$lastmod); #Old Last Modifi Pos
if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/aboutme',	&Apache::lonnet::allowuploaded('/adm/aboutme',
$syllabus{'uploaded.photourl'});	$syllabus{'uploaded.photourl'});
my $image=	$image=
qq{<img src="$syllabus{'uploaded.photourl'}" align="right" />};	qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" style="vertical-align:text-top;float:right;" />};

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);	# $r->print($image); #Print old Image
}	}
if ($allowed) {	if ($allowed) {
$r->print(	$r->print(
'<form method="post">	'<form method="post">
<input type="submit" name="delupl" value="Delete Photo" />	<input type="submit" name="delupl" value="'.&mt('Delete Photo').'" />
</form>'.	</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="Upload">'.	'<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
	'<input type="hidden" name="popup" value="'.$env{'form.popup'}.'" />'.
'</form><form method="post">');	'</form><form method="post">');

}	}


foreach my $field (sort(keys(%syllabusfields))) {	foreach my $field (sort(keys(%syllabusfields))) {
if (($syllabus{$field}) \|\| ($allowed)) {	if (($syllabus{$field}) \|\| ($allowed)) {
my $message=$syllabus{$field};	my $message=$syllabus{$field};
Line 227 sub handler {	Line 282 sub handler {
}	}
$message=&Apache::lontexconvert::msgtexconverted($message);	$message=&Apache::lontexconvert::msgtexconverted($message);
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<h3>'.$syllabusfields{$field}.'</h3><blockquote>'.
$message.'</blockquote>');	Apache::lontemplate::print_template($r,$syllabusfields{$field},$message);



} else {	} else {
$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.	$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');	&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
}	}
if ($allowed) {	if ($allowed) {
$r->print('<br /><textarea cols="80" rows="6" name="'.$field.'">'.	Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
&HTML::Entities::encode($syllabus{$field},'"&<>').
'</textarea><input type="submit" name="storesyl" value="'.
&mt('Save').'" />');
}	}
}	}
}	}
	if($target ne 'tex')
	{

	&print_portfiles_link($r,$is_course);

	$r->print('</div>');
	$r->print('<div style="margin:0 0 0 75">');
	$r->print($image);

	$r->print('Kontakt');
	$r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));


	}

if ($allowed) {	if ($allowed) {
	if ($env{'form.popup'}) {
	$r->print('<input type="hidden" name="popup" value="'.
	$env{'form.popup'}.'" />');
	}
$r->print('</form>');	$r->print('</form>');
}	}
if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}	if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}
Line 250 sub handler {	Line 324 sub handler {
}	}

if ($target ne 'tex') {	if ($target ne 'tex') {
&print_portfiles_link($r,$is_course);	# &print_portfiles_link($r,$is_course); #old Print files

}	}

if ($env{'request.course.id'}	if ($env{'request.course.id'}
Line 281 sub handler {	Line 356 sub handler {
}	}
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
	if ($env{'form.popup'}) {
	$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}');
}	}



return OK;	return OK;
}	}

Line 338 sub print_portfiles_link {	Line 421 sub print_portfiles_link {
difl => 'Display file listing',	difl => 'Display file listing',
);	);
if ($filecounts->{'both'} > 0) {	if ($filecounts->{'both'} > 0) {
$output = '<h3>'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h3>';	$output = '<fieldset><legend><b>';
	$output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</b></legend><br />';

	#$output = '<h3>'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h3>';
$output .= '<a href="/adm/'.$cdom.'/'.$cnum.'/aboutme/portfolio'.	$output .= '<a href="/adm/'.$cdom.'/'.$cnum.'/aboutme/portfolio'.
$query_string.'">'.$lt{'difl'}.	$query_string.'">'.$lt{'difl'}.
'</a><br /><br />';	'</a><br /><br />';
Line 362 sub print_portfiles_link {	Line 448 sub print_portfiles_link {
$output .= '<li>'.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).'</li>';	$output .= '<li>'.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).'</li>';
}	}
$output .= '</ul>';	$output .= '</ul>';
	$output .='</fieldset>';
}	}
$r->print($output);	$r->print($output);
return;	return;
Line 610 sub parse_directory {	Line 697 sub parse_directory {

my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum,	my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum,
$group);	$group);
	my $getpropath = 1;
my %dirlist = map {	my %dirlist = map {
((split('&',$_,2))[0],1)	((split('&',$_,2))[0],1)
} &Apache::lonnet::dirlist($path,$cdom,$cnum,$portfolio_root);	} &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath);
foreach my $item (sort(keys(%{$currhash}))) {	foreach my $item (sort(keys(%{$currhash}))) {
$output .= &portfolio_row_start();	$output .= &portfolio_row_start();
$output .= '<td style="padding-left: '.($depth*25).'px">';	$output .= '<td style="padding-left: '.($depth*25).'px">';

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

Removed from v.1.65
changed lines
	Added in v.1.74