[LON-CAPA-cvs] cvs: loncom /interface loncoursegroups.pm

[raeburn]

raeburn		Thu Jul 20 18:17:18 2006 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm 
  Log:
  remove extra white space.  Set "specificity" to default "No" even if no tools are added when creating a group, in case tools are added later. $seqid no longer used (discussion sequence name no longer needs it).
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.54 loncom/interface/loncoursegroups.pm:1.55
--- loncom/interface/loncoursegroups.pm:1.54	Wed Jul 19 23:11:52 2006
+++ loncom/interface/loncoursegroups.pm	Thu Jul 20 18:17:14 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.54 2006/07/20 03:11:52 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.55 2006/07/20 22:17:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1825,7 +1825,7 @@
     }
     &topic_bar($r,$img,$lt{'uprv'});
     if ((($action eq 'create') && (@{$available} > 0)) || 
-        (($action eq 'modify') && ($formname eq 'change_settings'))) {  
+        (($action eq 'modify') && ($formname eq 'change_settings'))) {
         my %specific = (
                       'No'  => 'checked="checked"',
                       'Yes' => '',
@@ -1882,6 +1882,7 @@
     } else {
         if ($action eq 'create') {
             $r->print($lt{'asyo'});
+            $r->print('<input type="hidden" name="specificity" value="No" />');
         } elsif ($action eq 'modify' && $formname eq 'pick_members') {
             my @defprivs;
             if (ref($$stored{'defpriv'}) eq 'ARRAY') {
@@ -3320,7 +3321,7 @@
         my $grpfolder = &mt('[_1] Folder -',$ucgpterm,).$description;
         $grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/smppg';
         my $grptitle = &mt('Group homepage').' - '.$description;
-        my ($seqid,$discussions,$disctitle);
+        my ($discussions,$disctitle);
         my $outcome = &map_updater($cdom,$cnum,'group_folder_'.$groupname.'.sequence',
                                    'grpseq',$grpfolder,$allgrpsmap,$grppage,
                                    $grptitle);
@@ -3332,7 +3333,6 @@
         # Link to folder for bulletin boards
         $grpmap = $crspath.'group_folder_'.$groupname.'.sequence';
         if (grep/^discussion$/,@{$tools}) {
-            $seqid = $now + 1;
             $disctitle = &mt('Discussion Boards');
             my $outcome = &map_updater($cdom,$cnum,'group_boards_'.$groupname.
                                        '.sequence','bbseq',$disctitle,$grpmap);