--- loncom/interface/portfolio.pm 2008/06/16 23:34:12 1.195
+++ loncom/interface/portfolio.pm 2008/12/12 15:38:53 1.196.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network
# portfolio browser
#
-# $Id: portfolio.pm,v 1.195 2008/06/16 23:34:12 raeburn Exp $
+# $Id: portfolio.pm,v 1.196.2.1 2008/12/12 15:38:53 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -227,7 +227,7 @@ sub display_directory_line {
$r->print('
'.$size.' | ');
$r->print(''.&Apache::lonlocal::locallocaltime($mtime).' | ');
if ($select_mode ne 'true') {
- $r->print(''.
+ $r->print(' | '.
&mt($curr_access).' ');
my %anchor_fields = (
'access' => $filename,
@@ -465,7 +465,7 @@ sub display_directory {
$r->print('');
if ($can_delete) {
$r->print('
- '.
+ '.
&Apache::loncommon::help_open_topic('Portfolio DeleteFile').'
@@ -775,13 +775,13 @@ sub display_access {
$info .= ''.&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.');
$info .= ''.&explain_conditionals();
$info .= ''.
- &mt('A listing of files viewable without log-in is available at: ')."http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme/portfolio. ";
+ &mt('A listing of files viewable without log-in is available at: ')."".&Apache::lonnet::absolute_url($ENV{'SERVER_NAME'})."/adm/$udom/$uname/aboutme/portfolio. ";
if ($group eq '') {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on your personal information page:");
} else {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on the course information page:");
}
- $info .= " http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme ";
+ $info .= " ".&Apache::lonnet::absolute_url($ENV{'SERVER_NAME'})."/adm/$udom/$uname/aboutme ";
if ($group ne '') {
$info .= &mt("Users with privileges to edit course contents may add a course information page to a course using the 'Course Info' button in DOCS").' ';
}
@@ -1474,7 +1474,7 @@ sub course_row {
}
$max_id ++;
my $role_selects = &role_selectors($num,$role_id,$type,$content,'display');
- $r->print('
| '.$role_selects.' ');
+ $r->print('
| '.$role_selects.' ');
}
$r->print('');
}
@@ -1549,7 +1549,7 @@ sub additional_item {
sub actionbox {
my ($status,$num,$scope) = @_;
- my $output = ' '.
''.&mt('Update');
}
@@ -1579,7 +1579,7 @@ sub dateboxes {
undef,undef,1);
my $enddate = &Apache::lonhtmlcommon::date_setter('portform',
'enddate_'.$num,$end,undef,undef,undef,1,undef,
- undef,undef,1). ' '.
+ undef,undef,1). ' '.
''.&mt('No end date').
'';
@@ -2216,6 +2216,15 @@ sub handler {
$r->print(&Apache::loncommon::start_page($title));
}
$r->rflush();
+ if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {
+ $r->print(''.&mt('No user portfolio available') .''.
+ &mt('This is a result of one of the following:').''.
+ '- '.&mt('The administrator of this domain has disabled portfolio functionality for this specific user.').'
'.
+ '- '.&mt('The domain has been configured to disable, by default, portfolio functionality for all users in the domain.').'
'.
+ ' ');
+ $r->print(&Apache::loncommon::end_page());
+ return OK;
+ }
my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('port',$uname,$udom);
if ($blocked) {
|