--- loncom/interface/groupboards.pm 2006/07/20 15:51:10 1.8 +++ loncom/interface/groupboards.pm 2007/05/02 01:33:48 1.11 @@ -28,10 +28,10 @@ package Apache::groupboards; use strict; use Apache::Constants qw(:common :http); -use Apache::loncommon; +use Apache::loncommon(); use Apache::lonnet; -use Apache::lonuserstate; -use Apache::lonratedt; +use Apache::lonuserstate(); +use LONCAPA::map(); use Apache::lonlocal; use LONCAPA; @@ -59,7 +59,7 @@ sub handler { my $gpterm = &Apache::loncommon::group_term(); my $ucgpterm = $gpterm; $ucgpterm =~ s/^(\w)/uc($1)/e; - my $bodytitle = &mt('[_1] Discussion Boards',$crstype); + my $bodytitle = $crstype.' Discussion Boards'; my $group = $env{'form.group'}; $group =~ s/\W//g; my ($description,$earlyout,$refarg); @@ -207,7 +207,7 @@ sub create_board { my $putresult = &Apache::lonnet::put('nohist_groupboards',\%new_board, $cdom,$cnum); if ($putresult ne 'ok') { - $outcome = 'error storing new board: '.$putresult; + $outcome = 'error saving new board: '.$putresult; } else { $newurl = '/adm/'.$cdom.'/'.$cnum.'/'.$boardid. '/bulletinboard'; @@ -230,15 +230,15 @@ sub create_board { # if not - add it as an item in group_folder_$group.sequence my $allbbsmap = &Apache::longroup::get_bbfolder_url($cdom,$cnum,$group); if ($allbbsmap =~ m|^/uploaded|) { - my ($errtext,$fatal)=&Apache::lonratedt::mapread($allbbsmap); + my ($errtext,$fatal)=&LONCAPA::map::mapread($allbbsmap); if (!$fatal) { - my $newidx=&Apache::lonratedt::getresidx($newurl); - $Apache::lonratedt::resources[$newidx]=$bbtitle.':'.$newurl. + my $newidx=&LONCAPA::map::getresidx($newurl); + $LONCAPA::map::resources[$newidx]=$bbtitle.':'.$newurl. ':false:normal:res'; - push(@Apache::lonratedt::order,$newidx); - my ($errtext,$fatal)=&Apache::lonratedt::storemap($allbbsmap,1); + push(@LONCAPA::map::order,$newidx); + my ($errtext,$fatal)=&LONCAPA::map::storemap($allbbsmap,1); if ($fatal) { - $outcome = "error: failed to store discussion boards map - $errtext\n"; + $outcome = "error: failed to save discussion boards map - $errtext\n"; } else { my %boardinfo = ( 'group' => $group,