--- loncom/html/adm/helper/course.initialization.helper 2005/04/07 06:56:22 1.15 +++ loncom/html/adm/helper/course.initialization.helper 2007/09/03 20:23:57 1.18 @@ -87,7 +87,7 @@ Teaching Assistants - teaching assistants will not be able use or view the chat room Instructor - instructors will not be able to use or view the chat room - my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied'); + my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied'); $denied =~ s/,/\|\|\|/g; return $denied; @@ -105,10 +105,10 @@ $denied =~ s/,([^,]*)$/, and\1/; } if ($denied) { - $denied = substr($denied, 1) . ' not allowed to participate in discussion.'; + $denied = substr($denied, 1) . ' not allowed to participate in live chatroom.'; $denied = ucfirst($denied); } else { - $denied = 'Everyone can participate in discussion.'; + $denied = 'Everyone can participate in live chatroom.'; } return $denied; } else { @@ -192,7 +192,7 @@ - + Course members can provide feedback about the course. You can choose who will receive the feedback, such as a different instructor or a TA. Please enter their LON-CAPA address below, in the @@ -233,6 +233,84 @@ + + + Existing courses can be cloned when creating new courses.
Cloning will copy the course structure, contents, and most parameters (automatically advancing any date parameters by six months).

+ Names of owners of other courses permitted to clone this course:
+
+ + + return &{$helper->{DATA}->{GETVAL}}('cloners'); + + + my ($output,@cloners,%disallowed); + my $match_dom = $LONCAPA::match_domain; + my $match_uname = $LONCAPA::match_username; + if ($val =~ /,/) { + @cloners = split(/,/,$val); + } else { + $cloners[0] = $val; + } + my @alldoms = &Apache::lonnet::all_domains(); + foreach my $item (@cloners) { + if ($item ne '*') { + my ($clname,$cldom) = split(/:/,$item); + if ($clname eq '*') { + if ($cldom =~ /^$match_dom$/) { + if (!grep(/^\Q$cldom\E$/,@alldoms)) { + $disallowed{'domain'} .= $item.','; + } + } else { + $disallowed{'format'} .= $item.','; + } + } elsif ($item !~/^($match_uname)\:($match_dom)$/) { + $disallowed{'format'} .= $item.','; + } else { + if (!grep(/^\Q$cldom\E$/,@alldoms)) { + $disallowed{'domain'} .= $item.','; + } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') { + $disallowed{'newuser'} .= $item.','; + } + } + } + } + foreach my $key (keys(%disallowed)) { + $disallowed{$key} =~ s/,$//; + } + if (keys(%disallowed) > 0) { + $output.= 'Your input contained the following errors:
    '; + if (defined($disallowed{'format'})) { + $output .= '
  • Invalid format: '. + ''.$disallowed{'format'}.'
  • '; + } + if (defined($disallowed{'domain'})) { + $output .= '
  • Domain(s) do(es) not exist: '. + ''.$disallowed{'domain'}.'
  • '; + } + if (defined($disallowed{'newuser'})) { + $output .= '
  • LON-CAPA user(s) do(es) not exist: '. + ''.$disallowed{'newuser'}.'
  • '; + } + $output .= '.
'; + } + return $output; +
+ + if (&{$helper->{DATA}->{SETVAL}}('cloners', $element->getValue())) { + + + return 'Users allowed to clone course updated to ' . $element->getValue() . + '.'; + } + +
+ +
(Course Coordinators automatically have the right to clone their own courses.) + +
+
Your course is now set up. Please select the Finish Course Initialization button to re-intialize the course with your chosen