[BACK]Return to course.initialization.helper CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / adm / helper

Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.19 and 1.30

version 1.19, 2007/09/05 00:59:51 version 1.30, 2010/03/14 15:25:47
Line 28 Line 28
                                  $helper->{DATA}->{CRS});                                   $helper->{DATA}->{CRS});
             # Try to fix bug 1757              # Try to fix bug 1757
             Apache::lonnet::coursedescription($env{'request.course.id'});              Apache::lonnet::coursedescription($env{'request.course.id'});
               if ($name eq 'description') {
                   my %crsinfo = &Apache::lonnet::courseiddump($crsdom,'.',1,'.','.',$crsnum,undef,undef,'.');
                   if (ref($crsinfo{$courseid}) eq 'HASH') {
                       $crsinfo{$courseid}{'description'} = $val;
                       my $crshome = &Apache::lonnet::homeserver($crsnum,$crsdom);
                       unless ($crshome eq 'no_host') {
                           my $putresult = &Apache::lonnet::courseidput($crsdom,\%crsinfo,$crshome,'notime');
                       }
                   }
               }
             return 1;              return 1;
         } else {          } else {
             return 0;              return 0;
Line 49 Line 59
       </eval>        </eval>
     <message nextstate="COURSE_DESCRIPTION">      <message nextstate="COURSE_DESCRIPTION">
       <p>All settings which you can change with this Helper can also be changed        <p>All settings which you can change with this Helper can also be changed
          by going to the PARM screen and clicking on the &quot;Set           by going to the &quot;Modify parameter settings&quot; screen and clicking on the &quot;Course Configuration&quot; button.</p>
          course environment&quot; button.</p>  
   
       <p>If you do not have experience coordinating LON-CAPA courses or if you        <p>If you do not have experience coordinating LON-CAPA courses or if you
          prefer the Helper interface, please click <nobr><b>Next -&gt;</b></nobr>.</p>           prefer the Helper interface, please click &quot;Next&quot;.</p>
       </message>        </message>
     </state>      </state>
   
   <state name="COURSE_DESCRIPTION" title="Course Description">    <state name="COURSE_DESCRIPTION" title="Course Title">
     <message nextstate="FORBID_CHAT">      <message nextstate="FORBID_CHAT">
       The &quot;Course Description&quot; is the name of the course that will be        The &quot;Course Title&quot; is the name of the course that will be
       seen by the students.  You may now modify the description and hit         seen by the students.  You may now modify the description and hit 
       <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />        &quot;Next&quot; to continue.<br />
       </message>        </message>
     <string variable='description' size='60' >      <string variable='description' size='60' >
       <defaultvalue>        <defaultvalue>
Line 76 Line 85
       </string>        </string>
     </state>      </state>
   
   <state name="FORBID_CHAT" title="Chat Participation">    <state name="FORBID_CHAT" title="Chat Room Participation">
     <message nextstate="FORBID_DISCUSSION">      <message nextstate="FORBID_DISCUSSION">
       <p>LON-CAPA has live chat functionality.  This course will receive        <p>LON-CAPA has chat room functionality. This course will receive
          its own chat room.  You may deny students, TAs, or instructors           its own chat room. You may deny students, TAs, or instructors
          the right to access the chat room.</p>           the right to access the chat room.</p>
       </message>        </message>
     <choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'>      <choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'>
Line 105 Line 114
                 $denied =~ s/,([^,]*)$/, and\1/;                  $denied =~ s/,([^,]*)$/, and\1/;
             }              }
             if ($denied) {              if ($denied) {
                 $denied = substr($denied, 1) . ' not allowed to participate in live chatroom.';                  $denied = substr($denied, 1) . ' not allowed to participate in chat room.';
                 $denied = ucfirst($denied);                  $denied = ucfirst($denied);
             } else {              } else {
                 $denied = 'Everyone can participate in live chatroom.';                  $denied = 'Everyone can participate in chat room.';
             }              }
             return $denied;              return $denied;
         } else {          } else {
Line 197 Line 206
       who will receive the feedback, such as a different instructor or a        who will receive the feedback, such as a different instructor or a
       TA. Please enter their LON-CAPA address below, in the        TA. Please enter their LON-CAPA address below, in the
       form <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;        form <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;
       are both the LON-CAPA username and LON-CAPA domain, not an email        are both the LON-CAPA username and LON-CAPA domain, not an e-mail
       address.</p>         address.</p> 
       </message>        </message>
     <eval>return &mt('<p>Your current LON-CAPA domain is &quot;<b>[_1]</b>&quot;.</p>',"$helper->{DATA}->{DOM}");       <eval>return '<p>'.&mt('Your current LON-CAPA domain is [_1].','&quot;<b>'.$helper->{DATA}->{DOM}.'</b>&quot;').'</p>'; 
       </eval>        </eval>
     <string variable='feedback_addresses' size='60' >      <string variable='feedback_addresses' size='60' >
       <defaultvalue>        <defaultvalue>
Line 235 Line 244
   
   <state name="USERS_ALLOWED_TO_CLONE" title="Granting permission to clone course">    <state name="USERS_ALLOWED_TO_CLONE" title="Granting permission to clone course">
    <message nextstate="FINAL">      <message nextstate="FINAL"> 
       Existing courses can be cloned when creating new courses.<br />Cloning will copy the course structure, contents, and most parameters (automatically advancing any date parameters by six months).<br /><br />        Existing courses can be cloned when creating new courses.<br />
       Names of owners of other courses permitted to clone this course:<br />        Cloning will copy the course structure, contents, and most settings. For dates (open dates, due dates etc.) a choice is provided to: (a) omit, (b) copy as-is or (c) shift by a specified number of days.<br /><br />
         Usernames of owners of other courses permitted to clone this course:<br />
    </message>     </message>
    <string variable='can_clone' size='60' >     <string variable='can_clone' size='60' >
     <defaultvalue>      <defaultvalue>
Line 252 Line 262
           $cloners[0] = $val;            $cloners[0] = $val;
       }        }
       foreach my $item (@cloners) {        foreach my $item (@cloners) {
           if ($item ne '*') {    next if ($item =~ /^\s*$/);
               my ($clname,$cldom) = split(/:/,$item);    next if ($item eq '*');
               if ($clname eq '*') {         
                   if ($cldom =~ /^$match_dom$/) {    my ($clname,$cldom) = split(/:/,$item);
                       if (!&Apache::lonnet::domain($udom)) {    if ($clname eq '*') {
                           $disallowed{'domain'} .= $item.',';        if ($cldom =~ /^$match_dom$/) {
                       }    if (!&Apache::lonnet::domain($cldom)) {
                   } else {        $disallowed{'domain'} .= $item.',';
                       $disallowed{'format'} .= $item.',';    }
                   }        } else {
               } elsif ($item !~/^($match_uname)\:($match_dom)$/) {    $disallowed{'format'} .= $item.',';
                   $disallowed{'format'} .= $item.',';        }
               } else {    } elsif ($item !~/^($match_uname)\:($match_dom)$/) {
                   if (!grep(/^\Q$cldom\E$/,@alldoms)) {        $disallowed{'format'} .= $item.',';
                       $disallowed{'domain'} .= $item.',';     } else {
                   } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {        if (!&Apache::lonnet::domain($cldom)) {
                       $disallowed{'newuser'} .= $item.',';    $disallowed{'domain'} .= $item.','; 
                   }        } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {
               }    $disallowed{'newuser'} .= $item.',';
           }        }
     }
       }        }
       foreach my $key (keys(%disallowed)) {        foreach my $key (keys(%disallowed)) {
           $disallowed{$key} =~ s/,$//;            $disallowed{$key} =~ s/,$//;
Line 290 Line 301
               $output .= '<li>LON-CAPA user(s) do(es) not exist: '.                $output .= '<li>LON-CAPA user(s) do(es) not exist: '.
                          '<b>'.$disallowed{'newuser'}.'</b></li>';                           '<b>'.$disallowed{'newuser'}.'</b></li>';
           }            }
           $output .= '.</ul>';            $output .= '</ul>';
       }        }
       return $output;        return $output;
     </validator>      </validator>
Line 307 Line 318
     <br />(Course Coordinators automatically have the right to clone their own courses.)      <br />(Course Coordinators automatically have the right to clone their own courses.)
     <ul>      <ul>
      <li>Format: <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;       <li>Format: <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;
       are the LON-CAPA username and domain of the user.</li><li>Separate different users with a comma.</li><li>Use *:domain to allow course to be cloned by any course owner in the specified domain.</li><li>Use * to allow unrestricted cloning by all course owners in all domains.</li></ul>        are the LON-CAPA username and domain of the user.</li>
        <li>Separate different users with a comma.</li>
        <li>Use *:domain to allow course to be cloned by any course owner in the specified domain.</li>
        <li>Use * to allow unrestricted cloning by all course owners in all domains.</li>
       </ul>
    </message>     </message>
   </state>    </state>
   <state name="FINAL" title="Completed">    <state name="FINAL" title="Completed">
     <message>Your course is now set up. Please select the <b>Finish Course       <message>Your course is now set up. Please select the <b>Save</b>
       Initialization</b> button to re-intialize the course with your chosen        button to re-intialize the course with your chosen
       settings.        settings.
   
       <p>Remember that all of these settings can be modified in the <b>PARMS</b>        <p>Remember that all of these settings can be modified in the <b>Modify parameter settings</b>
          screen, by pushing the <b>Course Environment</b> button.</p>           screen (<b>Course Configuration</b>).</p>
       </message>        </message>
     <condition>      <condition>
       <clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>        <clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>
Removed from v.1.19  
changed lines
  Added in v.1.30

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