version 1.118, 2013/07/22 18:06:51
|
version 1.121, 2013/09/17 15:04:30
|
Line 31 use strict;
|
Line 31 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::lonhtmlgateway; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnavmaps(); |
use Apache::lonnavmaps(); |
use Apache::longroup(); |
use Apache::longroup(); |
Line 3534 sub process_membership {
|
Line 3535 sub process_membership {
|
if ($num_ok) { |
if ($num_ok) { |
my $msgall =''; |
my $msgall =''; |
foreach my $type (sort(keys(%added))) { |
foreach my $type (sort(keys(%added))) { |
my $message = &mt('The following users were successfully [_1]',$type); |
my $message = &mt("The following users were successfully $type"); |
if (!($type eq 'deleted' || $type eq 'expired')) { |
if (!($type eq 'deleted' || $type eq 'expired')) { |
$message .= &mt(' with the following privileges'); |
$message .= &mt(' with the following privileges'); |
} |
} |
Line 4120 sub create_homepage {
|
Line 4121 sub create_homepage {
|
my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_; |
my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_; |
my $functionality = join(',',@{$tools}); |
my $functionality = join(',',@{$tools}); |
my $content = &unescape($$groupinfo{description}); |
my $content = &unescape($$groupinfo{description}); |
$content=~s/\s+$//s; |
chomp($content); |
$content=~s/^\s+//s; |
my $gateway = Apache::lonhtmlgateway->new(); |
$content=~s/\<br\s*\/*\>$//s; |
$content = $gateway->process_incoming_html($content,1); |
$content=&Apache::lonfeedback::clear_out_html($content,1); |
|
|
|
my %pageinfo = ( |
my %pageinfo = ( |
'aaa_title' => "$ucgpterm: $name", |
'aaa_title' => "$ucgpterm: $name", |
Line 4209 sub validate_groupname {
|
Line 4209 sub validate_groupname {
|
} |
} |
if ($action eq 'create') { |
if ($action eq 'create') { |
if (exists($curr_groups{$groupname})) { |
if (exists($curr_groups{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm). |
return $exitmsg.$lt{'cnnb'}.&mt("an existing $gpterm"). |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
} elsif (exists($deleted_groups{$groupname})) { |
} elsif (exists($deleted_groups{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt('a [_1] which previously existed',$gpterm). |
return $exitmsg.$lt{'cnnb'}.&mt("a $gpterm which previously existed"). |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
} |
} |
} elsif ($action eq 'modify') { |
} elsif ($action eq 'modify') { |
unless(exists($curr_groups{$groupname})) { |
unless(exists($curr_groups{$groupname})) { |
$earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}. |
$earlyout = &mt("$ucgpterm name:").' '.$groupname.$lt{'thgr'}. |
$lt{'inth'}; |
$lt{'inth'}; |
return $earlyout; |
return $earlyout; |
} |
} |