[BACK]Return to groupboards.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupboards.pm between versions 1.7 and 1.8

version 1.7, 2006/07/17 14:52:00 version 1.8, 2006/07/20 15:51:10
Line 77  sub handler { Line 77  sub handler {
     }      }
     my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);      my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
     if (!defined($curr_groups{$group})) {      if (!defined($curr_groups{$group})) {
         $earlyout = &mt('Invalid [_1]',$gpterm);          $earlyout = &mt('Invalid group');
         $r->print(&display_error($cdom,$cnum,$group,$description,$gpterm,          $r->print(&display_error($cdom,$cnum,$group,$description,$gpterm,
                                  $ucgpterm,$bodytitle,$earlyout,$refarg));                                   $ucgpterm,$bodytitle,$earlyout,$refarg));
         return OK;          return OK;
Line 103  sub handler { Line 103  sub handler {
         if (($can_create) || (&Apache::lonnet::allowed('mdg',$env{'request.course.id'}))) {          if (($can_create) || (&Apache::lonnet::allowed('mdg',$env{'request.course.id'}))) {
             $r->print(&boards_header($cdom,$cnum,$group,$description,$gpterm,              $r->print(&boards_header($cdom,$cnum,$group,$description,$gpterm,
                                      $ucgpterm,$bodytitle,$refarg));                                       $ucgpterm,$bodytitle,$refarg));
             my ($outcome,$newurl,$bbtitle) =               my ($outcome,$newurl,$bbtitle,$dellockoutcome) = 
  &create_board($cdom,$cnum,$group,$env{'form.newbul'});   &create_board($cdom,$cnum,$group,$env{'form.newbul'});
             if ($outcome eq 'ok') {              if ($outcome eq 'ok') {
                 my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);                  my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
Line 115  sub handler { Line 115  sub handler {
                           '<a href="/adm/groupboards?group='.$group.'&amp;'.                            '<a href="/adm/groupboards?group='.$group.'&amp;'.
                           $refarg.'">'.&mt('View all group discussion boards').                            $refarg.'">'.&mt('View all group discussion boards').
                           '</a></td></tr></table>');                            '</a></td></tr></table>');
                   if ($dellockoutcome ne 'ok') {
                       $r->print(&mt('There was a problem removing a lockfile for the group ([_1]). This may prevent creation of additional bulletin boards in this group.  Please contact the system administrator for your LON-CAPA domain.'));
                   }
             } else {              } else {
                 $r->print(&mt('There was a problem creating the new discussion board - [_1]','<span class="LC_error">'.$outcome.'</span>').'<br /><a href="/adm/groupboards?group='.$group.'">'.                  $r->print(&mt('There was a problem creating the new discussion board - [_1]','<span class="LC_error">'.$outcome.'</span>').'<br /><a href="/adm/groupboards?group='.$group.'">'.
                          &mt('Return to discussion boards').'</a>');                           &mt('Return to discussion boards').'</a>');
Line 130  sub handler { Line 133  sub handler {
 function makebulboard() {  function makebulboard() {
    var title=prompt('Discussion Board Title');     var title=prompt('Discussion Board Title');
    if (title) {     if (title) {
     this.document.forms.newbb.newbul.value=      this.document.forms.newbb.newbul.value=title;
         title+'=/adm/$cdom/$cnum/$now/bulletinboard';  
     this.document.forms.newbb.submit();      this.document.forms.newbb.submit();
    }     }
 }  }
Line 173  function makebulboard() { Line 175  function makebulboard() {
 }  }
   
 sub create_board {  sub create_board {
     my ($cdom,$cnum,$group,$newboard) = @_;      my ($cdom,$cnum,$group,$bbtitle) = @_;
     my ($bbtitle,$newurl)=split(/\=/,$newboard);      my ($outcome,$boardid,$newurl);
     my $outcome;  
     my ($boardid) = ($newurl =~ m-/adm/\Q$cdom\E/\Q$cnum\E/(\d+)/bulletinboard-);  
     if (!$boardid) {  
         $outcome = ('error: the URL for new board was invalid');  
         return ($outcome,$newurl,$bbtitle);  
     }  
     $bbtitle=&unescape($bbtitle);      $bbtitle=&unescape($bbtitle);
       # get lock on nohist_groupboards file
       my $lockhash = {
                     $group."\0".'locked_boardids' => $env{'user.name'}.
                                                          ':'.$env{'user.domain'},
                      };
       my $tries = 0;
       my $gotlock = &Apache::lonnet::newput('nohist_groupboards',$lockhash,$cdom,$cnum);
       my $dellockoutcome;
       while (($gotlock ne 'ok') && $tries <3) {
           $tries ++;
           sleep 1;
           $gotlock = &Apache::lonnet::newput('nohist_groupboards',$lockhash,$cdom,$cnum);
       }
       if ($gotlock eq 'ok') {
          my %curr_boards = &Apache::lonnet::dump('nohist_groupboards',$cdom,$cnum,$group);
          $boardid = time;
          my $idtries = 0;
          while(exists($curr_boards{$group."\0".$boardid}) && $idtries < 20) {
              $boardid ++;
              $idtries ++;
          }
          if (!exists($curr_boards{$group."\0".$boardid})) {
              my %new_board = (
                             $group."\0".$boardid => $env{'user.name'}.':'.
                                                     $env{'user.domain'},
              );
              my $putresult = &Apache::lonnet::put('nohist_groupboards',\%new_board,
                                                   $cdom,$cnum);
              if ($putresult ne 'ok') {
                  $outcome = 'error storing new board: '.$putresult;
              } else {
                  $newurl = '/adm/'.$cdom.'/'.$cnum.'/'.$boardid.
                            '/bulletinboard';
              }
          } else {
               $outcome = ('error: no unique ID for the new board available.');
          }
          #  remove lock
          my @del_lock = ($group."\0".'locked_boardids');
          $dellockoutcome = &Apache::lonnet::del('nohist_groupboards',\@del_lock,$cdom,$cnum);
       } else {
           $outcome = "error: could not obtain lockfile\n";
           $dellockoutcome = 'ok';
       }
       if (!$newurl) {
           return ($outcome,$newurl,$bbtitle,$dellockoutcome);
       }
     $newurl=&unescape($newurl);      $newurl=&unescape($newurl);
       # need to check here if group_boards_$group.sequence is in the course
       # 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)=&Apache::lonratedt::mapread($allbbsmap);
Line 208  sub create_board { Line 253  sub create_board {
         $outcome = 'error: discussion boards folder absent, '.          $outcome = 'error: discussion boards folder absent, '.
                    'or in unexpected location - '.$allbbsmap."\n";                     'or in unexpected location - '.$allbbsmap."\n";
     }      }
     return ($outcome,$newurl,$bbtitle);      return ($outcome,$newurl,$bbtitle,$dellockoutcome);
 }  }
   
 sub display_error {  sub display_error {
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>