version 1.62, 2013/11/24 16:00:53
|
version 1.63, 2013/11/25 20:11:41
|
Line 357 sub handler {
|
Line 357 sub handler {
|
{ text => $lt{'gens'}, |
{ text => $lt{'gens'}, |
help => 'Course_Prefs_General', |
help => 'Course_Prefs_General', |
ordered => ['owner','co-owners','loncaparev','description', |
ordered => ['owner','co-owners','loncaparev','description', |
'courseid','categories','hidefromcat', |
'clonedfrom','courseid','categories','hidefromcat', |
'externalsyllabus','cloners','url','rolenames'], |
'externalsyllabus','cloners','url','rolenames'], |
itemtext => { |
itemtext => { |
'owner' => $lt{'ownr'}, |
'owner' => $lt{'ownr'}, |
Line 371 sub handler {
|
Line 371 sub handler {
|
'url' => 'Top Level Map', |
'url' => 'Top Level Map', |
'rolenames' => $lt{'rept'}, |
'rolenames' => $lt{'rept'}, |
'loncaparev' => $lt{'lcrv'}, |
'loncaparev' => $lt{'lcrv'}, |
|
'clonedfrom' => 'Cloned from', |
}, |
}, |
}, |
}, |
'localization' => |
'localization' => |
Line 705 sub process_changes {
|
Line 706 sub process_changes {
|
next if (($entry eq 'categories') && |
next if (($entry eq 'categories') && |
(!$can_categorize)); |
(!$can_categorize)); |
next if (($entry eq 'loncaparev') || |
next if (($entry eq 'loncaparev') || |
($entry eq 'owner')); |
($entry eq 'owner') || |
|
($entry eq 'clonedfrom')); |
push(@ordered,$entry); |
push(@ordered,$entry); |
} |
} |
} elsif ($action eq 'classlists') { |
} elsif ($action eq 'classlists') { |
Line 1852 sub print_courseinfo {
|
Line 1854 sub print_courseinfo {
|
'co-owners' => { |
'co-owners' => { |
text => '<b>'.&mt($itemtext->{'co-owners'}).'</b>', |
text => '<b>'.&mt($itemtext->{'co-owners'}).'</b>', |
}, |
}, |
|
'clonedfrom' => { |
|
text => '<b>'.&mt($itemtext->{'clonedfrom'}).'</b>', |
|
}, |
'courseid' => { |
'courseid' => { |
text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('. |
text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('. |
&mt('internal, optional').')', |
&mt('internal, optional').')', |
Line 2038 sub print_courseinfo {
|
Line 2043 sub print_courseinfo {
|
$owner = &mt('None specified'); |
$owner = &mt('None specified'); |
} |
} |
$datatable .= $owner; |
$datatable .= $owner; |
|
} elsif ($item eq 'clonedfrom') { |
|
my $clonesrc = $env{'course.'.$env{'request.course.id'}.'.clonedfrom'}; |
|
my $clonedfrom = &mt('None'); |
|
if ($clonesrc =~ m{/$match_domain/$match_courseid}) { |
|
my %clonesrcinfo = &Apache::lonnet::coursedescription($cdom.'/'.$cnum); |
|
if ($clonesrcinfo{'description'}) { |
|
$clonedfrom = $clonesrcinfo{'description'}.' '.($clonesrc); |
|
} |
|
} |
|
$datatable .= $clonedfrom; |
} elsif ($item eq 'co-owners') { |
} elsif ($item eq 'co-owners') { |
my $coowners = $env{'course.'.$env{'request.course.id'}.'.internal.co-owners'}; |
my $coowners = $env{'course.'.$env{'request.course.id'}.'.internal.co-owners'}; |
my @currcoown; |
my @currcoown; |
Line 3755 sub get_other_items {
|
Line 3770 sub get_other_items {
|
|| ($parameter eq 'type') || |
|| ($parameter eq 'type') || |
($parameter =~ m/^(cc|co|in|ta|ep|ad|st)\.plaintext$/) |
($parameter =~ m/^(cc|co|in|ta|ep|ad|st)\.plaintext$/) |
|| ($parameter =~ m/^discussion_post_fonts/) || |
|| ($parameter =~ m/^discussion_post_fonts/) || |
($parameter =~ m{^(minimal|updated|uploaded|external)syllabus$})) { |
($parameter =~ m{^(minimal|updated|uploaded|external)syllabus$}) || |
|
($parameter eq 'clonedfrom')) { |
push(@ordered,$parameter); |
push(@ordered,$parameter); |
} |
} |
} |
} |