|
version 1.12, 2009/01/28 14:09:54
|
version 1.15, 2012/07/21 21:20:06
|
|
Line 1
|
Line 1
|
| # The LearningOnline Network |
# The LearningOnline Network |
| # Group Bulletin Boards Manager |
# Group Bulletin Boards Manager |
| # |
# |
| |
# $Id$ |
| |
# |
| # Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
| # |
# |
| # This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
Line 59 sub handler {
|
Line 61 sub handler {
|
| my $gpterm = &Apache::loncommon::group_term(); |
my $gpterm = &Apache::loncommon::group_term(); |
| my $ucgpterm = $gpterm; |
my $ucgpterm = $gpterm; |
| $ucgpterm =~ s/^(\w)/uc($1)/e; |
$ucgpterm =~ s/^(\w)/uc($1)/e; |
| my $bodytitle = $crstype.' Discussion Boards'; |
my $bodytitle = $ucgpterm.' Discussion Boards'; |
| my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
| $group =~ s/\W//g; |
$group =~ s/\W//g; |
| my ($description,$earlyout,$refarg); |
my ($description,$earlyout,$refarg); |
|
Line 249 sub create_board {
|
Line 251 sub create_board {
|
| $LONCAPA::map::resources[$newidx]=$bbtitle.':'.$newurl. |
$LONCAPA::map::resources[$newidx]=$bbtitle.':'.$newurl. |
| ':false:normal:res'; |
':false:normal:res'; |
| push(@LONCAPA::map::order,$newidx); |
push(@LONCAPA::map::order,$newidx); |
| my ($errtext,$fatal)=&LONCAPA::map::storemap($allbbsmap,1); |
my ($errtext,$fatal)=&LONCAPA::map::storemap($allbbsmap,1,1); |
| if ($fatal) { |
if ($fatal) { |
| $outcome = "error: failed to save discussion boards map - $errtext\n"; |
$outcome = "error: failed to save discussion boards map - $errtext\n"; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to groupboards.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface