version 1.9, 2006/08/19 01:18:25
|
version 1.11, 2007/05/02 01:33:48
|
Line 28 package Apache::groupboards;
|
Line 28 package Apache::groupboards;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::loncommon; |
use Apache::loncommon(); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonuserstate; |
use Apache::lonuserstate(); |
use Apache::lonratedt; |
use LONCAPA::map(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA; |
use LONCAPA; |
|
|
Line 207 sub create_board {
|
Line 207 sub create_board {
|
my $putresult = &Apache::lonnet::put('nohist_groupboards',\%new_board, |
my $putresult = &Apache::lonnet::put('nohist_groupboards',\%new_board, |
$cdom,$cnum); |
$cdom,$cnum); |
if ($putresult ne 'ok') { |
if ($putresult ne 'ok') { |
$outcome = 'error storing new board: '.$putresult; |
$outcome = 'error saving new board: '.$putresult; |
} else { |
} else { |
$newurl = '/adm/'.$cdom.'/'.$cnum.'/'.$boardid. |
$newurl = '/adm/'.$cdom.'/'.$cnum.'/'.$boardid. |
'/bulletinboard'; |
'/bulletinboard'; |
Line 230 sub create_board {
|
Line 230 sub create_board {
|
# if not - add it as an item in group_folder_$group.sequence |
# if not - add it as an item in group_folder_$group.sequence |
my $allbbsmap = &Apache::longroup::get_bbfolder_url($cdom,$cnum,$group); |
my $allbbsmap = &Apache::longroup::get_bbfolder_url($cdom,$cnum,$group); |
if ($allbbsmap =~ m|^/uploaded|) { |
if ($allbbsmap =~ m|^/uploaded|) { |
my ($errtext,$fatal)=&Apache::lonratedt::mapread($allbbsmap); |
my ($errtext,$fatal)=&LONCAPA::map::mapread($allbbsmap); |
if (!$fatal) { |
if (!$fatal) { |
my $newidx=&Apache::lonratedt::getresidx($newurl); |
my $newidx=&LONCAPA::map::getresidx($newurl); |
$Apache::lonratedt::resources[$newidx]=$bbtitle.':'.$newurl. |
$LONCAPA::map::resources[$newidx]=$bbtitle.':'.$newurl. |
':false:normal:res'; |
':false:normal:res'; |
push(@Apache::lonratedt::order,$newidx); |
push(@LONCAPA::map::order,$newidx); |
my ($errtext,$fatal)=&Apache::lonratedt::storemap($allbbsmap,1); |
my ($errtext,$fatal)=&LONCAPA::map::storemap($allbbsmap,1); |
if ($fatal) { |
if ($fatal) { |
$outcome = "error: failed to store discussion boards map - $errtext\n"; |
$outcome = "error: failed to save discussion boards map - $errtext\n"; |
} else { |
} else { |
my %boardinfo = ( |
my %boardinfo = ( |
'group' => $group, |
'group' => $group, |