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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.68 and 1.70

version 1.68, 2006/12/04 21:44:02 version 1.70, 2007/05/02 01:33:48
Line 1216  sub reenable_folder { Line 1216  sub reenable_folder {
         $LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx;          $LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx;
         my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1);          my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1);
         if ($errtext) {          if ($errtext) {
             $outcome = &mt('Error storing updated parent folder to group').              $outcome = &mt('Error saving updated parent folder to group').
                            "- $allgrpsmap - $errtext".'<br />';                             "- $allgrpsmap - $errtext".'<br />';
         } else {          } else {
             my ($furl,$ferr) =              my ($furl,$ferr) =
Line 1266  sub modify_folders { Line 1266  sub modify_folders {
                 $#LONCAPA::map::order--;                  $#LONCAPA::map::order--;
                 my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1);                  my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1);
                 if ($errtext) {                  if ($errtext) {
                     $outcome = &mt('Error storing updated parent folder to group'). "- $map - $errtext".'<br />';                      $outcome = &mt('Error saving updated parent folder to group'). "- $map - $errtext".'<br />';
                 } else {                  } else {
                     my ($furl,$ferr) =                      my ($furl,$ferr) =
                         &Apache::lonuserstate::readmap($cdom.'/'.$cnum);                          &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
Line 3679  sub add_group_folder { Line 3679  sub add_group_folder {
     if ($action eq 'create') {      if ($action eq 'create') {
         if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') {          if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') {
             # check if group_allfolders.sequence exists.              # check if group_allfolders.sequence exists.
             my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap);              my $mapcontents = &Apache::lonnet::getfile($allgrpsmap);
             if ($fatal == 2) { #file does not exist;              if ($mapcontents eq '-1') { #file does not exist;
                 my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);                  my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);
                 my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};                  my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};
                 $topmap_url =~ s|/+|/|g;                  $topmap_url =~ s|/+|/|g;
Line 3808  sub map_updater { Line 3808  sub map_updater {
         $LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;          $LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;
         my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1);          my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1);
         if ($errtext) {          if ($errtext) {
             $outcome = &mt('Error storing updated parent folder')." ($parentmap):  $errtext".'<br />';              $outcome = &mt('Error saving updated parent folder')." ($parentmap):  $errtext".'<br />';
             return $outcome;              return $outcome;
         }          }
     }      }
Removed from v.1.68  
changed lines
  Added in v.1.70

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