--- loncom/interface/lonaboutme.pm 2006/08/02 03:05:10 1.43
+++ loncom/interface/lonaboutme.pm 2006/08/16 19:40:46 1.52
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.43 2006/08/02 03:05:10 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.52 2006/08/16 19:40:46 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,6 +37,7 @@ use Apache::lonfeedback;
use Apache::lonrss();
use Apache::lonlocal;
use Apache::lonmsgdisplay();
+use HTML::Entities();
sub handler {
my $r = shift;
@@ -48,7 +49,7 @@ sub handler {
if ($target eq 'tex') {
$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
}
- my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
+ my (undef,undef,$cdom,$cnum,undef,$action)=split(/\//,$r->uri);
# Is this even a user?
if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
&Apache::loncommon::simple_error_page($r,'No info',
@@ -62,18 +63,14 @@ sub handler {
'ccc_webreferences' => 'Web References');
# ------------------------------------------------------------ Get Query String
- &Apache::loncommon::get_unprocessed_cgi
- ($ENV{'QUERY_STRING'},['forceedit','forcestudent','register','action']);
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['forceedit','forcestudent',
+ 'register']);
# ----------------------------------------------- Available Portfolio file display
- if (($target ne 'tex') && ($env{'form.action'} eq 'portfolio')) {
- my %lt = &Apache::lonlocal::texthash (
- withoutpass => 'passphrase not required',
- withpass => 'passphrase protected',
- both => 'all access types ',
- );
+ if (($target ne 'tex') && ($action eq 'portfolio')) {
&display_portfolio_header($r);
- &display_portfolio_files($r,\%lt);
+ &display_portfolio_files($r);
$r->print(&Apache::loncommon::end_page());
return OK;
}
@@ -93,7 +90,7 @@ sub handler {
my $start_page =
&Apache::loncommon::start_page("Personal Information",undef,
{'function' => $forcestudent,
- 'domain' => $cdom,
+ 'domain' => $cdom,
'force_register' =>
$forceregister,});
$r->print($start_page);
@@ -210,7 +207,7 @@ sub handler {
}
if ($allowed) {
$r->print('
');
}
@@ -219,7 +216,7 @@ sub handler {
if ($allowed) {
$r->print('');
}
- if ($target ne 'tex') {$r->print('
'.&mt('No personal information provided').'.
'); } @@ -274,19 +271,19 @@ sub print_portfiles_link { my ($r) = @_; my ($cdom,$cnum,$name) = &aboutme_info($r); my $filecounts = &portfolio_files($r,'showlink'); - my $query_string = &build_query_string({'action' => 'portfolio',}); + my $query_string = &build_query_string(); my $output; if ($filecounts->{'both'} > 0) { $output = &mt('