--- loncom/interface/portfolio.pm 2013/07/15 14:32:44 1.248
+++ loncom/interface/portfolio.pm 2013/08/13 17:38:19 1.249
@@ -1,7 +1,7 @@
# The LearningOnline Network
# portfolio browser
#
-# $Id: portfolio.pm,v 1.248 2013/07/15 14:32:44 bisitz Exp $
+# $Id: portfolio.pm,v 1.249 2013/08/13 17:38:19 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1179,24 +1179,29 @@ sub update_access {
my $now = time;
my $then = $now + (60*60*24*180); # six months approx.
&open_form($r,$url);
- my %showtypes = &Apache::lonlocal::texthash (
+ my %showtypes = (
course => 'course/community',
domains => 'domain',
users => 'user',
);
foreach my $newitem (@types) {
- if ($env{'form.new'.$newitem} > 0) {
- $r->print('
'.&mt('Add new [_1]-based[_2] access control for portfolio file: [_3]',''.$showtypes{$newitem},'',''.$env{'form.currentpath'}.$env{'form.selectfile'}.'').'
');
- $firstitem = $totalnew;
- $lastitem = $totalnew + $env{'form.new'.$newitem};
- $totalnew = $lastitem;
- my @numbers;
- for (my $i=$firstitem; $i<$lastitem; $i++) {
- push(@numbers,$i);
- }
- &display_access_row($r,$status,$newitem,\@numbers,
- $access_controls{$file_name},$now,$then);
+ next if ($env{'form.new'.$newitem} <= 0);
+ $r->print(
+ '
' + .&mt('Add new [_1]'.$showtypes{$newitem}.'-based[_2] access control for portfolio file: [_3]', + '','', + '' + .$env{'form.currentpath'}.$env{'form.selectfile'}.'') + .'
'); + $firstitem = $totalnew; + $lastitem = $totalnew + $env{'form.new'.$newitem}; + $totalnew = $lastitem; + my @numbers; + for (my $i=$firstitem; $i<$lastitem; $i++) { + push(@numbers,$i); } + &display_access_row($r,$status,$newitem,\@numbers, + $access_controls{$file_name},$now,$then); } &close_form($r,$url); } else { @@ -1465,19 +1470,14 @@ sub acl_status { sub access_element { my ($r,$type,$acl_count,$items,$access_controls,$now,$then) = @_; - my %typetext = &Apache::lonlocal::texthash( + my %typetext = ( domains => 'Domain', users => 'User', course => 'Course/Community' ); - $r->print('' + .&mt('No '.$infotype.'-based conditions defined') + .'
' + .&additional_item($type) + ); } return; } @@ -1541,6 +1548,7 @@ sub display_access_row { sub course_js { return qq| |; } @@ -1697,14 +1706,16 @@ sub additional_item { my ($type) = @_; my $showtype; if ($type eq 'course') { - $showtype = &mt('course/community'); + $showtype = 'course/community'; } elsif ($type eq 'domains') { - $showtype = &mt('domains'); + $showtype = 'domain'; } elsif ($type eq 'users') { - $showtype = &mt('users'); + $showtype = 'user'; } - my $output = &mt('Add new [_1] condition(s)?',$showtype).' '.&mt('Number to add: ').''; - return $output; + return + &mt('Add new '.$showtype.'-based condition(s)?') + .' '.&mt('Number to add: ') + .''; } sub actionbox {