version 1.46, 2006/07/07 20:53:40
|
version 1.47, 2006/07/07 21:04:57
|
Line 1164 sub group_members {
|
Line 1164 sub group_members {
|
if ($totalmembers == 0) { |
if ($totalmembers == 0) { |
$$group_info{$group}{'totalmembers'} = 'None'; |
$$group_info{$group}{'totalmembers'} = 'None'; |
} else { |
} else { |
$$group_info{$group}{'totalmembers'} = $active.' - active<br />'.$previous.' -previous<br />'.$future.' -future'; |
$$group_info{$group}{'totalmembers'} = '<nobr>'.$active. |
|
' - active</nobr><br /><nobr>'.$previous. |
|
' - previous</nobr><br /><nobr>'.$future. |
|
' - future</nobr>'; |
} |
} |
return 'ok'; |
return 'ok'; |
} |
} |
Line 1449 sub choose_members_form {
|
Line 1452 sub choose_members_form {
|
my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, |
my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, |
$ucgpterm,$crstype); |
$ucgpterm,$crstype); |
if ($earlyout) { |
if ($earlyout) { |
$r->print($earlyout) |
$r->print($earlyout); |
&display_navbuttons($r,$formname,$$states{$action}[$page-1], |
&display_navbuttons($r,$formname,$$states{$action}[$page-1], |
$$navbuttons{'gtps'}); |
$$navbuttons{'gtps'}); |
return; |
return; |
Line 3280 sub add_group_folder {
|
Line 3283 sub add_group_folder {
|
my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage); |
my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/'; |
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/'; |
$allgrpsmap = $crspath.'default_0.sequence'; |
$allgrpsmap = $crspath.'group_allfolders.sequence'; |
my $topmap = $navmap->getResourceByUrl($allgrpsmap); |
my $topmap = $navmap->getResourceByUrl($allgrpsmap); |
undef($navmap); |
undef($navmap); |
if ($action eq 'create') { |
if ($action eq 'create') { |
# check if default_0.sequence exists. |
# check if group_allfolders.sequence exists. |
if (!$topmap) { |
if (!$topmap) { |
my $grpstitle = &mt('[_1] [_2]',$crstype,$ucgpterm); |
my $grpstitle = &mt('[_1] [_2]',$crstype,$ucgpterm); |
my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'}; |
my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'}; |
$topmap_url =~ s|/+|/|g; |
$topmap_url =~ s|/+|/|g; |
if ($topmap_url =~ m|^/uploaded|) { |
if ($topmap_url =~ m|^/uploaded|) { |
$outcome = &map_updater($cdom,$cnum,'default_0.sequence', |
$outcome = &map_updater($cdom,$cnum,'group_allfolders.sequence', |
'toplevelgroup',$grpstitle,$topmap_url); |
'toplevelgroup',$grpstitle,$topmap_url); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
return $outcome; |
return $outcome; |
} |
} |
} else { |
} else { |
$outcome = &mt('Non-standard course - group folder not added.'); |
$outcome = &mt('Non-standard course - folder for all groups not added.'); |
return $outcome; |
return $outcome; |
} |
} |
} |
} |
Line 3304 sub add_group_folder {
|
Line 3307 sub add_group_folder {
|
$grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/grppg'; |
$grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/grppg'; |
my $grptitle = &mt('Group homepage').' - '.$description; |
my $grptitle = &mt('Group homepage').' - '.$description; |
my ($seqid,$discussions,$disctitle); |
my ($seqid,$discussions,$disctitle); |
my $outcome = &map_updater($cdom,$cnum,'default_'.$now.'.sequence', |
my $outcome = &map_updater($cdom,$cnum,'group_folder_'.$groupname.'.sequence', |
'grpseq',$grpfolder,$allgrpsmap,$grppage, |
'grpseq',$grpfolder,$allgrpsmap,$grppage, |
$grptitle); |
$grptitle); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
Line 3313 sub add_group_folder {
|
Line 3316 sub add_group_folder {
|
my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo, |
my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo, |
$tools,$gpterm,$ucgpterm,$now); |
$tools,$gpterm,$ucgpterm,$now); |
# Link to folder for bulletin boards |
# Link to folder for bulletin boards |
$grpmap = $crspath.'default_'.$now.'.sequence'; |
$grpmap = $crspath.'group_folder_'.$groupname.'.sequence'; |
if (grep/^discussion$/,@{$tools}) { |
if (grep/^discussion$/,@{$tools}) { |
$seqid = $now + 1; |
$seqid = $now + 1; |
$disctitle = &mt('Discussion Boards'); |
$disctitle = &mt('Discussion Boards'); |
my $outcome = &map_updater($cdom,$cnum,'default_'.$seqid. |
my $outcome = &map_updater($cdom,$cnum,'group_boards_'.$groupname. |
'.sequence','bbseq',$disctitle,$grpmap); |
'.sequence','bbseq',$disctitle,$grpmap); |
if ($outcome ne 'ok') { |
if ($outcome ne 'ok') { |
return $outcome; |
return $outcome; |
} |
} |
$boardsmap = $crspath.'default_'.$seqid.'.sequence'; |
$boardsmap = $crspath.'group_boards_'.$groupname.'.sequence'; |
} |
} |
} else { |
} else { |
#modify group folder if status of discussions tools is changed |
#modify group folder if status of discussions tools is changed |