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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.80.2.3 and 1.84

version 1.80.2.3, 2008/12/16 23:52:08 version 1.84, 2008/12/16 16:44:28
Line 76  sub handler { Line 76  sub handler {
   
     my %functions = (      my %functions = (
                       email => 'E-mail',                        email => 'E-mail',
                       discussion => 'Discussion boards',                        discussion => 'Discussion Boards',
                       chat => 'Chat',                        chat => 'Chat',
                       files => 'File repository',                        files => 'File Repository',
                       roster => 'Membership roster',                        roster => 'Membership Roster',
                       homepage => $ucgpterm.' home page',                        homepage => $ucgpterm.' home page',
                     );                      );
   
Line 1259  sub reenable_folder { Line 1259  sub reenable_folder {
   
 sub modify_folders {  sub modify_folders {
     my ($cdom,$cnum,$groupname) = @_;      my ($cdom,$cnum,$groupname) = @_;
     my ($outcome,$groupmap,$groupmapres,$map,$id,$src);      my $outcome;
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     if (!defined($navmap)) {      my $groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'.
         $outcome = '<div class="LC_error">'.  
                    &mt('Error reading course contents.').' '.  
                    &mt('You need to re-initialize the course.').  
                    '</div>';  
         return $outcome;  
     }  
     $groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'.  
                    $groupname.'.sequence';                     $groupname.'.sequence';
     $groupmapres = $navmap->getResourceByUrl($groupmap);      my $groupmapres = $navmap->getResourceByUrl($groupmap);
       my ($map,$id,$src);
     if ($groupmapres) {      if ($groupmapres) {
         ($map,$id,$src)=&Apache::lonnet::decode_symb($groupmapres->symb());          ($map,$id,$src)=&Apache::lonnet::decode_symb($groupmapres->symb());
     }      }
Line 1674  END Line 1668  END
        <td class="LC_description">'.&mt('Granularity:').'</td>         <td class="LC_description">'.&mt('Granularity:').'</td>
        <td colspan="10">'.$lt{'doyo'}.'&nbsp;<label><input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'</label>&nbsp;<label><input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No').'</label>');         <td colspan="10">'.$lt{'doyo'}.'&nbsp;<label><input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'</label>&nbsp;<label><input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No').'</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;('.&mt('Currently set to "[_1]"',          $r->print('&nbsp;&nbsp;('.&mt('Currently set to [_1].'
                                       &mt($$stored{'granularity'})).')');                                        ,'"'.&mt($$stored{'granularity'}).'"').')');
     }      }
     $r->print('      $r->print('
        </td>         </td>
Line 3228  sub write_group_data { Line 3222  sub write_group_data {
                 my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';                  my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
                 my $boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';                  my $boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';
                 my $navmap = Apache::lonnavmaps::navmap->new();                  my $navmap = Apache::lonnavmaps::navmap->new();
                 my ($bbmapres,$error);                  my $bbmapres = $navmap->getResourceByUrl($boardsmap);
                 if (defined($navmap)) {                  undef($navmap);
                     $bbmapres = $navmap->getResourceByUrl($boardsmap);                  if (!$bbmapres) {
                     undef($navmap);                      my $grpmap = $crspath.'group_folder_'.$groupname.'.sequence';
                     if (!$bbmapres) {                      my $disctitle = &mt('Discussion Boards');
                         my $grpmap = $crspath.'group_folder_'.$groupname.'.sequence';                      my $outcome = &map_updater($cdom,$cnum,'group_boards_'.
                         my $disctitle = &mt('Discussion Boards');                                                 $groupname.'.sequence','bbseq',
                         my $outcome = &map_updater($cdom,$cnum,'group_boards_'.                                                 $disctitle,$grpmap);
                                                    $groupname.'.sequence','bbseq',                      my ($furl,$ferr) = 
                                                    $disctitle,$grpmap);                          &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
                         my ($furl,$ferr) =                      $navmap = Apache::lonnavmaps::navmap->new();
                             &Apache::lonuserstate::readmap($cdom.'/'.$cnum);                      # modify parameter
                         # modify parameter                      if ($outcome eq 'ok') {
                         if ($outcome eq 'ok') {                          my $parm_result = &parm_setter($navmap,$cdom,$boardsmap,
                             $navmap = Apache::lonnavmaps::navmap->new();                                                         $groupname);
                             if (defined($navmap)) {                          if ($parm_result) {
                                 my $parm_result = &parm_setter($navmap,$cdom,$boardsmap,                              $r->print('<div class="LC_error">'
                                                                $groupname);                                       .&mt('An error occurred while setting parameters '
                                 if ($parm_result) {                                           .'for Discussion Boards folder: '
                                     $error = &mt('An error occurred while setting parameters '                                           .'[_1]',$parm_result)
                                              .'for Discussion Boards folder: '                                       .'</div>');
                                              .'[_1]',$parm_result);  
                                 } else {  
                                     $r->print('<div class="LC_success">'.  
                                               &mt('Discussion Boards Folder created.')  
                                               .'</div>');  
                                 }  
                                 undef($navmap);  
                             } else {  
                                 $error = &mt('An error occurred while setting parameters '.  
                                              'for Discussion Boards folder: '.  
                                              'Could not retrieve course information' );  
                             }  
                         } else {                          } else {
                             $r->print($outcome);                              $r->print('<div class="LC_success">'
                                        .&mt('Discussion Boards Folder created.')
                                        .'</div>');
                         }                          }
                       } else {
                           $r->print($outcome);
                     }                      }
                 } else {                      undef($navmap);
                     $error = &mt("An error occurred while retrieving the contents of the group's folder.").'<br />'.  
                              &mt('You need to re-initialize the course.');  
                 }  
                 if ($error ne '') {  
                     $r->print('<div class="LC_error">'.$error.'</div>');  
                 }                  }
             }              }
             $r->print('<div class="LC_success">'              $r->print('<div class="LC_success">'
Line 3528  sub mapping_options { Line 3509  sub mapping_options {
         'adds'  => "If automatic $gpterm enrollment is enabled, when a user is newly assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.",          'adds'  => "If automatic $gpterm enrollment is enabled, when a user is newly assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.",
         'drops'  => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.",          'drops'  => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.",
         'pirs' => "Pick roles and sections for automatic $gpterm enrollment",          'pirs' => "Pick roles and sections for automatic $gpterm enrollment",
         'curr' => 'Currently set to',  
         'on' => 'on',          'on' => 'on',
         'off' => 'off',          'off' => 'off',
         'auad' => "Automatically enable $gpterm membership when roles are added?",          'auad' => "Automatically enable $gpterm membership when roles are added?",
Line 3556  sub automapping { Line 3536  sub automapping {
    <span class="LC_nobreak">'.$$lt{'auad'}.':&nbsp;     <span class="LC_nobreak">'.$$lt{'auad'}.':&nbsp;
     <label><input type="radio" name="autoadd" value="on" />'.&mt('on').'&nbsp;&nbsp;</label><label><input type="radio" name="autoadd" value="off" checked="checked" />'.&mt('off').'</label>');      <label><input type="radio" name="autoadd" value="on" />'.&mt('on').'&nbsp;&nbsp;</label><label><input type="radio" name="autoadd" value="off" checked="checked" />'.&mt('off').'</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$add}.'</b>)');          $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.&mt('Currently set to [_1].','<b>'.$$lt{$add}.'</b>').')');
     }      }
     $r->print('      $r->print('
     </span><br />      </span><br />
     <span class="LC_nobreak">'.$$lt{'auex'}.':&nbsp;      <span class="LC_nobreak">'.$$lt{'auex'}.':&nbsp;
     <label><input type="radio" name="autodrop" value="on" />'.&mt('on').'&nbsp;&nbsp;</label><label><input type="radio" name="autodrop" value="off" checked="checked" />'.&mt('off').'</label>');      <label><input type="radio" name="autodrop" value="on" />'.&mt('on').'&nbsp;&nbsp;</label><label><input type="radio" name="autodrop" value="off" checked="checked" />'.&mt('off').'</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$drop}.'</b>)');          $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.&mt('Currently set to [_1].','<b>'.$$lt{$drop}.'</b>').')');
     }      }
     $r->print('</span><br /><br />'.$$lt{'mapr'});      $r->print('</span><br /><br />'.$$lt{'mapr'});
 }  }
Line 3847  sub add_group_folder { Line 3827  sub add_group_folder {
     }      }
     my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);      my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     if (!defined($navmap)) {  
         return $warning.'<span class="LC_error">'.&mt('Error retrieving course contents').  
                ' '.&mt('You need to re-initialize the course.').'</span>';  
     }  
     # modify parameters      # modify parameters
     my $parm_result;      my $parm_result;
     if ($action eq 'create') {      if ($action eq 'create') {
Line 3956  sub new_map { Line 3932  sub new_map {
 sub parm_setter {  sub parm_setter {
     my ($navmap,$cdom,$url,$groupname) = @_;      my ($navmap,$cdom,$url,$groupname) = @_;
     my $allresults;      my $allresults;
     if (!defined($navmap)) {  
         $allresults = '<div class="LC_warning">'.  
                       &mt('Parameters not set for [_1] because the contents of the course could not be retrieved.',$url).' '.  
                       &mt('You need to reinitialize the course.').  
                       '</div>';  
         return $allresults;  
     }  
     my %hide_settings = (      my %hide_settings = (
                            'course' =>  {                             'course' =>  {
                                           'num' => 13,                                            'num' => 13,
Removed from v.1.80.2.3  
changed lines
  Added in v.1.84

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