version 1.48, 2009/11/09 03:50:27
|
version 1.58, 2011/01/11 22:09:49
|
Line 49 sub get_dc_settable {
|
Line 49 sub get_dc_settable {
|
|
|
sub autoenroll_keys { |
sub autoenroll_keys { |
my $internals = ['coursecode','courseowner','authtype','autharg','autoadds','autodrops', |
my $internals = ['coursecode','courseowner','authtype','autharg','autoadds','autodrops', |
'autostart','autoend','sectionnums','crosslistings']; |
'autostart','autoend','sectionnums','crosslistings', |
|
'co-owners']; |
my $accessdates = ['default_enrollment_start_date','default_enrollment_end_date']; |
my $accessdates = ['default_enrollment_start_date','default_enrollment_end_date']; |
return ($internals,$accessdates); |
return ($internals,$accessdates); |
} |
} |
|
|
sub catalog_settable { |
sub catalog_settable { |
my ($confhash) = @_; |
my ($confhash,$type) = @_; |
my @settable; |
my @settable; |
if (ref($confhash) eq 'HASH') { |
if (ref($confhash) eq 'HASH') { |
if ($confhash->{'togglecats'} ne 'crs') { |
if ($type eq 'Community') { |
push(@settable,'togglecats'); |
if ($confhash->{'togglecatscomm'} ne 'comm') { |
} |
push(@settable,'togglecats'); |
if ($confhash->{'categorize'} ne 'crs') { |
} |
push(@settable,'categorize'); |
if ($confhash->{'categorizecomm'} ne 'comm') { |
|
push(@settable,'categorize'); |
|
} |
|
} else { |
|
if ($confhash->{'togglecats'} ne 'crs') { |
|
push(@settable,'togglecats'); |
|
} |
|
if ($confhash->{'categorize'} ne 'crs') { |
|
push(@settable,'categorize'); |
|
} |
} |
} |
} else { |
} else { |
push(@settable,('togglecats','categorize')); |
push(@settable,('togglecats','categorize')); |
Line 97 sub get_enrollment_settings {
|
Line 107 sub get_enrollment_settings {
|
} else { |
} else { |
$enrollvar{$type} = &Apache::lonlocal::locallocaltime($settings{$item}); |
$enrollvar{$type} = &Apache::lonlocal::locallocaltime($settings{$item}); |
} |
} |
} elsif ($type eq "sectionnums") { |
} elsif (($type eq 'sectionnums') || ($type eq 'co-owners')) { |
$enrollvar{$type} = $settings{$item}; |
$enrollvar{$type} = $settings{$item}; |
$enrollvar{$type} =~ s/,/, /g; |
$enrollvar{$type} =~ s/,/, /g; |
} elsif ($type eq "authtype" |
} elsif ($type eq "authtype" |
Line 139 sub print_course_search_page {
|
Line 149 sub print_course_search_page {
|
'instcodefilter','ownerfilter', |
'instcodefilter','ownerfilter', |
'coursefilter']; |
'coursefilter']; |
my $filter = {}; |
my $filter = {}; |
my ($numtitles,$cctitle,$dctitle); |
my ($numtitles,$cctitle,$dctitle,@codetitles); |
my $ccrole = 'cc'; |
my $ccrole = 'cc'; |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
$ccrole = 'co'; |
$ccrole = 'co'; |
Line 153 sub print_course_search_page {
|
Line 163 sub print_course_search_page {
|
$r->print('<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'); |
$r->print('<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'); |
} |
} |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
undef,undef,$filter,$action,\$numtitles,'modifycourse')); |
undef,undef,$filter,$action,\$numtitles,'modifycourse', |
|
undef,undef,undef,\@codetitles)); |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
$r->print(&mt('Actions available after searching for a community:').'<ul>'. |
$r->print(&mt('Actions available after searching for a community:').'<ul>'. |
'<li>'.&mt('Enter the community with the role of [_1]',$cctitle).'</li>'."\n". |
'<li>'.&mt('Enter the community with the role of [_1]',$cctitle).'</li>'."\n". |
Line 182 sub print_course_selection_page {
|
Line 193 sub print_course_selection_page {
|
my %filter; |
my %filter; |
my $action = '/adm/modifycourse'; |
my $action = '/adm/modifycourse'; |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $numtitles; |
my ($numtitles,@codetitles); |
$r->print(&Apache::lonpickcourse::js_changer()); |
$r->print(&Apache::lonpickcourse::js_changer()); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br />'); |
$r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br />'); |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
$r->print(&Apache::lonpickcourse::build_filters($filterlist,$type, |
undef,undef,\%filter,$action,\$numtitles)); |
undef,undef,\%filter,$action,\$numtitles, |
|
undef,undef,undef,undef,\@codetitles)); |
$filter{'domainfilter'} = $dom; |
$filter{'domainfilter'} = $dom; |
my %courses = &Apache::lonpickcourse::search_courses($r,$type,0, |
my %courses = &Apache::lonpickcourse::search_courses($r,$type,0, |
\%filter,$numtitles); |
\%filter,$numtitles,undef, |
|
undef,undef,\@codetitles); |
&Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef, |
&Apache::lonpickcourse::display_matched_courses($r,$type,0,$action,undef,undef,undef, |
%courses); |
%courses); |
return; |
return; |
Line 198 sub print_course_selection_page {
|
Line 211 sub print_course_selection_page {
|
sub print_modification_menu { |
sub print_modification_menu { |
my ($r,$cdesc,$domdesc,$dom,$type) = @_; |
my ($r,$cdesc,$domdesc,$dom,$type) = @_; |
&print_header($r,$type); |
&print_header($r,$type); |
my ($ccrole,$setquota_text,$setparams_text,$cat_text); |
my ($ccrole,$categorytitle,$setquota_text,$setparams_text,$cat_text); |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
$ccrole = 'co'; |
$ccrole = 'co'; |
} else { |
} else { |
$ccrole = 'cc'; |
$ccrole = 'cc'; |
} |
} |
my $action = '/adm/modifycourse'; |
|
if ($type eq 'Community') { |
if ($type eq 'Community') { |
|
$categorytitle = 'View/Modify Community Settings'; |
$setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a community.'); |
$setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a community.'); |
$setparams_text = 'View/Modify community owner'; |
$setparams_text = 'View/Modify community owner'; |
$cat_text = 'View/Modify catalog settings for community'; |
$cat_text = 'View/Modify catalog settings for community'; |
} else { |
} else { |
|
$categorytitle = 'View/Modify Course Settings'; |
$setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a course.'); |
$setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a course.'); |
$setparams_text = 'View/Modify course owner, institutional code, and default authentication'; |
$setparams_text = 'View/Modify course owner, institutional code, and default authentication'; |
$cat_text = 'View/Modify catalog settings for course'; |
$cat_text = 'View/Modify catalog settings for course'; |
} |
} |
my @menu = |
my $anon_text = 'Responder threshold required to display anonymous survey submissions'; |
( |
|
{ text => $setparams_text, |
|
phase => 'setparms', |
|
}, |
|
{ text => 'View/Modify quota for group portfolio files', |
|
phase => 'setquota', |
|
} |
|
); |
|
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my @additional_params = &catalog_settable($domconf{'coursecategories'}); |
my @additional_params = &catalog_settable($domconf{'coursecategories'},$type); |
if (@additional_params > 0) { |
|
push (@menu, { text => $cat_text, |
sub phaseurl { |
phase => 'catsettings', |
my $phase = shift; |
}); |
return "javascript:changePage(document.menu,'$phase')" |
} |
} |
unless ($type eq 'Community') { |
my @menu = |
push(@menu, |
({ categorytitle => $categorytitle, |
{ text => 'Display current settings for automated enrollment', |
items => [ |
phase => 'viewparms', |
{ |
} |
linktext => $setparams_text, |
|
url => &phaseurl('setparms'), |
|
permission => 1, |
|
#help => '', |
|
icon => 'crsconf.png', |
|
linktitle => '' |
|
}, |
|
{ |
|
linktext => 'View/Modify quota for group portfolio files', |
|
url => &phaseurl('setquota'), |
|
permission => 1, |
|
#help => '', |
|
icon => 'groupportfolioquota.png', |
|
linktitle => '' |
|
}, |
|
{ |
|
linktext => 'View/Modify responders threshold for anonymous survey submissions display', |
|
url => &phaseurl('setanon'), |
|
permission => 1, |
|
#help => '', |
|
icon => 'anonsurveythreshold.png', |
|
linktitle => '' |
|
}, |
|
{ |
|
linktext => $cat_text, |
|
url => &phaseurl('catsettings'), |
|
permission => (@additional_params > 0), |
|
#help => '', |
|
icon => 'ccatconf.png', |
|
linktitle => '' |
|
}, |
|
{ |
|
linktext => 'Display current settings for automated enrollment', |
|
url => &phaseurl('viewparms'), |
|
permission => ($type ne 'Community'), |
|
#help => '', |
|
icon => 'roles.png', |
|
linktitle => '' |
|
}, |
|
] |
|
}, |
); |
); |
} |
|
my $menu_html = '<h3>'.&mt('View/Modify settings for: '). |
my $menu_html = |
' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n"; |
'<h3>' |
|
.&mt('View/Modify settings for: [_1]', |
|
'<span class="LC_nobreak">'.$cdesc.'</span>') |
|
.'</h3>'."\n".'<p>'; |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
$menu_html .= &mt('Although almost all community settings can be modified by a Coordinator, the following may only be set or modified by a Domain Coordinator:'); |
$menu_html .= &mt('Although almost all community settings can be modified by a Coordinator, the following may only be set or modified by a Domain Coordinator:'); |
} else { |
} else { |
$menu_html .= &mt('Although almost all course settings can be modified by a Course Coordinator, the following may only be set or modified by a Domain Coordinator:'); |
$menu_html .= &mt('Although almost all course settings can be modified by a Course Coordinator, the following may only be set or modified by a Domain Coordinator:'); |
} |
} |
$menu_html .= '<ul>'; |
$menu_html .= '</p>'."\n".'<ul>'; |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
$menu_html .= '<li>'.&mt('Community owner (permitted to assign Coordinator roles in the community).').'</li>'; |
$menu_html .= '<li>'.&mt('Community owner (permitted to assign Coordinator roles in the community).').'</li>'; |
} else { |
} else { |
$menu_html .= '<li>'.&mt('Course owner (permitted to assign Course Coordinator roles in the course).').'</li>'. |
$menu_html .= '<li>'.&mt('Course owner (permitted to assign Course Coordinator roles in the course).').'</li>'. |
'<li>'.&mt("Institutional code and default authentication (both required for auto-enrollment of students from institutional datafeeds).").'</li>'; |
'<li>'.&mt("Institutional code and default authentication (both required for auto-enrollment of students from institutional datafeeds).").'</li>'; |
} |
} |
$menu_html .= '<li>'.$setquota_text.'</li>'."\n"; |
$menu_html .= '<li>'.$setquota_text.'</li>'. |
|
'<li>'.$anon_text.'</li>'."\n"; |
foreach my $item (@additional_params) { |
foreach my $item (@additional_params) { |
if ($type eq 'Community') { |
if ($type eq 'Community') { |
if ($item eq 'togglecats') { |
if ($item eq 'togglecats') { |
$menu_html .= ' <li>'.&mt('Hiding/unhiding a community from the catalog (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
$menu_html .= ' <li>'.&mt('Hiding/unhiding a community from the catalog (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
} elsif ($item eq 'categorize') { |
} elsif ($item eq 'categorize') { |
$menu_html .= ' <li>'.&mt('Manual cataloging of a community (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
$menu_html .= ' <li>'.&mt('Manual cataloging of a community (although can be [_1]configured[_2] to be modifiable by a Coordinator in community context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
} |
} |
} else { |
} else { |
if ($item eq 'togglecats') { |
if ($item eq 'togglecats') { |
$menu_html .= ' <li>'.&mt('Hiding/unhiding a course from the course catalog (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
$menu_html .= ' <li>'.&mt('Hiding/unhiding a course from the course catalog (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
} elsif ($item eq 'categorize') { |
} elsif ($item eq 'categorize') { |
$menu_html .= ' <li>'.&mt('Manual cataloging of a course (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
$menu_html .= ' <li>'.&mt('Manual cataloging of a course (although can be [_1]configured[_2] to be modifiable by a Course Coordinator in course context).','<a href="/adm/domainprefs?actions=coursecategories&phase=display">','</a>').'</li>'."\n"; |
} |
} |
} |
} |
} |
} |
$menu_html .= ' </ul> |
$menu_html .= |
<form name="menu" method="post" action="'.$action.'" />'."\n". |
' </ul>' |
&hidden_form_elements(); |
.'<form name="menu" method="post" action="/adm/modifycourse">' |
foreach my $menu_item (@menu) { |
."\n" |
$menu_html.='<h3>'; |
.&hidden_form_elements(); |
$menu_html.= |
|
qq|<a href="javascript:changePage(document.menu,'$menu_item->{'phase'}')">|; |
|
$menu_html.= &mt($menu_item->{'text'}).'</a>'; |
|
$menu_html.='</h3>'; |
|
} |
|
|
|
$r->print($menu_html); |
$r->print($menu_html); |
|
$r->print(&Apache::lonhtmlcommon::generate_menu(@menu)); |
|
$r->print('</form>'); |
return; |
return; |
} |
} |
|
|
Line 326 sub print_settings_display {
|
Line 374 sub print_settings_display {
|
"<td><b>$longtype{$item}</b></td>\n". |
"<td><b>$longtype{$item}</b></td>\n". |
"<td>$enrollvar{$item}</td>\n"; |
"<td>$enrollvar{$item}</td>\n"; |
if (grep(/^\Q$item\E$/,@modifiable_params)) { |
if (grep(/^\Q$item\E$/,@modifiable_params)) { |
$disp_table .= '<td align="right">'.&mt('Yes').'</td>'."\n"; |
$disp_table .= '<td align="right">'.&mt('Yes').'</td>'."\n"; |
} else { |
} else { |
$disp_table .= '<td align="right">'.&mt('No').'</td>'."\n"; |
$disp_table .= '<td align="right">'.&mt('No').'</td>'."\n"; |
} |
} |
Line 371 sub print_setquota {
|
Line 419 sub print_setquota {
|
my $hidden_elements = &hidden_form_elements(); |
my $hidden_elements = &hidden_form_elements(); |
my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota'); |
my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota'); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<form action="/adm/modifycourse" method="post" name="setquota"> |
<form action="/adm/modifycourse" method="post" name="setquota" onsubmit="return verify_quota();"> |
<h3>$lt{'cquo'} <span class="LC_nobreak">$cdesc</span></h3> |
<h3>$lt{'cquo'} <span class="LC_nobreak">$cdesc</span></h3> |
<p> |
<p> |
$helpitem $lt{'gpqu'}: <input type="text" size="4" name="coursequota" value="$coursequota" /> Mb |
$helpitem $lt{'gpqu'}: <input type="text" size="4" name="coursequota" value="$coursequota" /> Mb |
<input type="button" onClick="javascript:verify_quota(this.form)" value="$lt{'modi'}" /> |
<input type="submit" value="$lt{'modi'}" /> |
</p> |
</p> |
$hidden_elements |
$hidden_elements |
<a href="javascript:changePage(document.setquota,'menu')">$lt{'back'}</a> |
<a href="javascript:changePage(document.setquota,'menu')">$lt{'back'}</a> |
Line 384 ENDDOCUMENT
|
Line 432 ENDDOCUMENT
|
return; |
return; |
} |
} |
|
|
|
sub print_set_anonsurvey_threshold { |
|
my ($r,$cdom,$cnum,$cdesc,$type) = @_; |
|
my %lt = &Apache::lonlocal::texthash( |
|
'resp' => 'Responder threshold for anonymous survey submissions display:', |
|
'sufa' => 'Anonymous survey submissions displayed when responders exceeds', |
|
'modi' => 'Save', |
|
'back' => 'Pick another action', |
|
); |
|
my %settings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); |
|
my $threshold = $settings{'internal.anonsurvey_threshold'}; |
|
if ($threshold eq '') { |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); |
|
if (ref($domconfig{'coursedefaults'}) eq 'HASH') { |
|
$threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; |
|
if ($threshold eq '') { |
|
$threshold = 10; |
|
} |
|
} else { |
|
$threshold = 10; |
|
} |
|
} |
|
&print_header($r,$type); |
|
my $hidden_elements = &hidden_form_elements(); |
|
my $helpitem = &Apache::loncommon::help_open_topic('Modify_Anonsurvey_Threshold'); |
|
$r->print(<<ENDDOCUMENT); |
|
<form action="/adm/modifycourse" method="post" name="setanon" onsubmit="return verify_anon_threshold();"> |
|
<h3>$lt{'resp'} <span class="LC_nobreak">$cdesc</span></h3> |
|
<p> |
|
$helpitem $lt{'sufa'}: <input type="text" size="4" name="threshold" value="$threshold" /> |
|
<input type="submit" value="$lt{'modi'}" /> |
|
</p> |
|
$hidden_elements |
|
<a href="javascript:changePage(document.setanon,'menu')">$lt{'back'}</a> |
|
</form> |
|
ENDDOCUMENT |
|
return; |
|
} |
|
|
sub print_catsettings { |
sub print_catsettings { |
my ($r,$cdom,$cnum,$cdesc,$type) = @_; |
my ($r,$cdom,$cnum,$cdesc,$type) = @_; |
&print_header($r,$type); |
&print_header($r,$type); |
Line 399 sub print_catsettings {
|
Line 486 sub print_catsettings {
|
$lt{'catset'} = &mt('Catalog Settings for Community'); |
$lt{'catset'} = &mt('Catalog Settings for Community'); |
$lt{'exclude'} = &mt('Exclude from course catalog'); |
$lt{'exclude'} = &mt('Exclude from course catalog'); |
$lt{'categ'} = &mt('Categorize Community'); |
$lt{'categ'} = &mt('Categorize Community'); |
$lt{'assi'} = &mt('Assign one or more categories and/or subcategories to this community.'); |
$lt{'assi'} = &mt('Assign one or more subcategories to this community.'); |
} |
} |
$r->print('<form action="/adm/modifycourse" method="post" name="catsettings">'. |
$r->print('<form action="/adm/modifycourse" method="post" name="catsettings">'. |
'<h3>'.$lt{'catset'}.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'); |
'<h3>'.$lt{'catset'}.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my @cat_params = &catalog_settable($domconf{'coursecategories'}); |
my @cat_params = &catalog_settable($domconf{'coursecategories'},$type); |
if (@cat_params > 0) { |
if (@cat_params > 0) { |
my %currsettings = |
my %currsettings = |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
Line 434 sub print_catsettings {
|
Line 521 sub print_catsettings {
|
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
$r->print($lt{'assi'}.'<br /><br />'. |
$r->print($lt{'assi'}.'<br /><br />'. |
&Apache::loncommon::assign_categories_table($cathash, |
&Apache::loncommon::assign_categories_table($cathash, |
$currsettings{'categories'})); |
$currsettings{'categories'},$type)); |
} else { |
} else { |
$r->print(&mt('No categories defined for this domain')); |
$r->print(&mt('No categories defined for this domain')); |
} |
} |
Line 626 sub gather_authenitems {
|
Line 713 sub gather_authenitems {
|
sub modify_course { |
sub modify_course { |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
my %longtype = &course_settings_descrip($type); |
my %longtype = &course_settings_descrip($type); |
my @items = ('internal.courseowner','description'); |
my @items = ('internal.courseowner','description','internal.co-owners', |
|
'internal.pendingco-owners'); |
unless ($type eq 'Community') { |
unless ($type eq 'Community') { |
push(@items,('internal.coursecode','internal.authtype','internal.autharg', |
push(@items,('internal.coursecode','internal.authtype','internal.autharg', |
'internal.sectionnums','internal.crosslistings')); |
'internal.sectionnums','internal.crosslistings')); |
Line 702 sub modify_course {
|
Line 790 sub modify_course {
|
} |
} |
} |
} |
|
|
if ($changed{'owner'} || $changed{'code'}) { |
if ($changed{'owner'} || $changed{'code'}) { |
my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum, |
my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum, |
undef,undef,'.'); |
undef,undef,'.'); |
if (ref($crsinfo{$env{'form.pickedcourse'}}) eq 'HASH') { |
if (ref($crsinfo{$env{'form.pickedcourse'}}) eq 'HASH') { |
Line 714 sub modify_course {
|
Line 802 sub modify_course {
|
} |
} |
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
my $putres = &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime'); |
my $putres = &Apache::lonnet::courseidput($cdom,\%crsinfo,$chome,'notime'); |
|
if ($putres eq 'ok') { |
|
&update_coowners($cdom,$cnum,$chome,\%settings,\%newattr); |
|
} |
} |
} |
} |
} |
foreach my $param (@modifiable_params) { |
foreach my $param (@modifiable_params) { |
Line 756 sub modify_course {
|
Line 847 sub modify_course {
|
} else { |
} else { |
if (@sections > 0) { |
if (@sections > 0) { |
if ($changed{'code'}) { |
if ($changed{'code'}) { |
|
my %crsenv = &Apache::lonnet::get('environment',['internal.co-owners'],$cdom,$cnum); |
|
my $coowners = $crsenv{'internal.co-owners'}; |
foreach my $sec (@sections) { |
foreach my $sec (@sections) { |
if ($sec =~ m/^(.+):/) { |
if ($sec =~ m/^(.+):/) { |
my $instsec = $1; |
my $instsec = $1; |
my $inst_course_id = $newattr{'coursecode'}.$1; |
my $inst_course_id = $newattr{'coursecode'}.$1; |
my $course_check = &Apache::lonnet::auto_validate_courseID($cnum,$cdom,$inst_course_id); |
my $course_check = &Apache::lonnet::auto_validate_courseID($cnum,$cdom,$inst_course_id); |
if ($course_check eq 'ok') { |
if ($course_check eq 'ok') { |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'}); |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'},$coowners); |
unless ($outcome eq 'ok') { |
unless ($outcome eq 'ok') { |
|
|
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]" automated enrollment may fail for "[_2]" - section: [_3], for the following reason: "[_4]"',$description,$newattr{'coursecode'},$instsec,$outcome).'<br/>'); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome).'<br/>'); |
} |
} |
} else { |
} else { |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]" automated enrollment may fail for "[_2]" - section: [_3], for the following reason: "[_4]"',$description,$newattr{'coursecode'},$instsec,$course_check)); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$course_check)); |
} |
} |
} else { |
} else { |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3], because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3], because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); |
Line 779 sub modify_course {
|
Line 872 sub modify_course {
|
if ($sec =~ m/^(.+):/) { |
if ($sec =~ m/^(.+):/) { |
my $instsec = $1; |
my $instsec = $1; |
my $inst_course_id = $newattr{'coursecode'}.$instsec; |
my $inst_course_id = $newattr{'coursecode'}.$instsec; |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'}); |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$inst_course_id,$newattr{'courseowner'},$coowners); |
unless ($outcome eq 'ok') { |
unless ($outcome eq 'ok') { |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome)); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3] for the following reason: "[_4]".',$description,$newattr{'coursecode'},$instsec,$outcome)); |
} |
} |
} else { |
} else { |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section [_3] because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for "[_2]" - section: [_3], because this is not a valid section entry.',$description,$newattr{'coursecode'},$sec)); |
} |
} |
} |
} |
} |
} |
} else { |
} else { |
push(@warnings,&mt('As no section numbers are currently listed for "[_1]" automated enrollment will not occur for any sections of institutional course code: "[_2]".',$description,$newattr{'coursecode'})); |
push(@warnings,&mt('As no section numbers are currently listed for "[_1]", automated enrollment will not occur for any sections of institutional course code: "[_2]".',$description,$newattr{'coursecode'})); |
} |
} |
if ( (@xlists > 0) && ($changed{'owner'}) ) { |
if ( (@xlists > 0) && ($changed{'owner'}) ) { |
foreach my $xlist (@xlists) { |
foreach my $xlist (@xlists) { |
if ($xlist =~ m/^(.+):/) { |
if ($xlist =~ m/^(.+):/) { |
my $instxlist = $1; |
my $instxlist = $1; |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$instxlist,$newattr{'courseowner'}); |
my $outcome = &Apache::lonnet::auto_new_course($cnum,$cdom,$instxlist,$newattr{'courseowner'},$coowners); |
unless ($outcome eq 'ok') { |
unless ($outcome eq 'ok') { |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for crosslisted class "[_2]" for the following reason: "[_3]".',$description,$instxlist,$outcome)); |
push(@warnings,&mt('If automatic enrollment is enabled for "[_1]", automated enrollment may fail for crosslisted class "[_2]" for the following reason: "[_3]".',$description,$instxlist,$outcome)); |
} |
} |
Line 852 sub modify_course {
|
Line 945 sub modify_course {
|
return; |
return; |
} |
} |
|
|
|
sub update_coowners { |
|
my ($cdom,$cnum,$chome,$settings,$newattr) = @_; |
|
return unless ((ref($settings) eq 'HASH') && (ref($newattr) eq 'HASH')); |
|
my %designhash = &Apache::loncommon::get_domainconf($cdom); |
|
my (%cchash,$autocoowners); |
|
if ($designhash{$cdom.'.autoassign.co-owners'}) { |
|
$autocoowners = 1; |
|
%cchash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,undef,['cc']); |
|
} |
|
if ($settings->{'internal.courseowner'} ne $newattr->{'courseowner'}) { |
|
my $oldowner_to_coowner; |
|
my @types = ('co-owners'); |
|
if (($newattr->{'coursecode'}) && ($autocoowners)) { |
|
my $oldowner = $settings->{'internal.courseowner'}; |
|
if ($cchash{$oldowner.':cc'}) { |
|
my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$newattr->{'coursecode'},$oldowner); |
|
if ($result eq 'valid') { |
|
if ($settings->{'internal.co-owner'}) { |
|
my @current = split(',',$settings->{'internal.co-owners'}); |
|
unless (grep(/^\Q$oldowner\E$/,@current)) { |
|
$oldowner_to_coowner = 1; |
|
} |
|
} else { |
|
$oldowner_to_coowner = 1; |
|
} |
|
} |
|
} |
|
} else { |
|
push(@types,'pendingco-owners'); |
|
} |
|
foreach my $type (@types) { |
|
if ($settings->{'internal.'.$type}) { |
|
my @current = split(',',$settings->{'internal.'.$type}); |
|
my $newowner = $newattr->{'courseowner'}; |
|
my @newvalues = (); |
|
if (($newowner ne '') && (grep(/^\Q$newowner\E$/,@current))) { |
|
foreach my $person (@current) { |
|
unless ($person eq $newowner) { |
|
push(@newvalues,$person); |
|
} |
|
} |
|
} else { |
|
@newvalues = @current; |
|
} |
|
if ($oldowner_to_coowner) { |
|
push(@newvalues,$settings->{'internal.courseowner'}); |
|
@newvalues = sort(@newvalues); |
|
} |
|
my $newownstr = join(',',@newvalues); |
|
if ($newownstr ne $settings->{'internal.'.$type}) { |
|
if ($type eq 'co-owners') { |
|
my $deleted = ''; |
|
unless (@newvalues) { |
|
$deleted = 1; |
|
} |
|
&Apache::lonnet::store_coowners($cdom,$cnum,$chome, |
|
$deleted,@newvalues); |
|
} else { |
|
my $pendingcoowners; |
|
my $cid = $cdom.'_'.$cnum; |
|
if (@newvalues) { |
|
$pendingcoowners = join(',',@newvalues); |
|
my %pendinghash = ( |
|
'internal.pendingco-owners' => $pendingcoowners, |
|
); |
|
my $putresult = &Apache::lonnet::put('environment',\%pendinghash,$cdom,$cnum); |
|
if ($putresult eq 'ok') { |
|
if ($env{'course.'.$cid.'.num'} eq $cnum) { |
|
&Apache::lonnet::appenv({'course.'.$cid.'.internal.pendingco-owners' => $pendingcoowners}); |
|
} |
|
} |
|
} else { |
|
my $delresult = &Apache::lonnet::del('environment',['internal.pendingco-owners'],$cdom,$cnum); |
|
if ($delresult eq 'ok') { |
|
if ($env{'course.'.$cid.'.internal.pendingco-owners'}) { |
|
&Apache::lonnet::delenv('course.'.$cid.'.internal.pendingco-owners'); |
|
} |
|
} |
|
} |
|
} |
|
} elsif ($oldowner_to_coowner) { |
|
&Apache::lonnet::store_coowners($cdom,$cnum,$chome,'', |
|
$settings->{'internal.courseowner'}); |
|
|
|
} |
|
} elsif ($oldowner_to_coowner) { |
|
&Apache::lonnet::store_coowners($cdom,$cnum,$chome,'', |
|
$settings->{'internal.courseowner'}); |
|
} |
|
} |
|
} |
|
if ($settings->{'internal.coursecode'} ne $newattr->{'coursecode'}) { |
|
if ($newattr->{'coursecode'} ne '') { |
|
my %designhash = &Apache::loncommon::get_domainconf($cdom); |
|
if ($designhash{$cdom.'.autoassign.co-owners'}) { |
|
my @newcoowners = (); |
|
if ($settings->{'internal.co-owners'}) { |
|
my @currcoown = split(',',$settings->{'internal.co-owners'}); |
|
my ($updatecoowners,$delcoowners); |
|
foreach my $person (@currcoown) { |
|
my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$newattr->{'coursecode'},$person); |
|
if ($result eq 'valid') { |
|
push(@newcoowners,$person); |
|
} |
|
} |
|
foreach my $item (sort(keys(%cchash))) { |
|
my ($uname,$udom,$urole) = split(':',$item); |
|
next if ($uname.':'.$udom eq $newattr->{'courseowner'}); |
|
unless (grep(/^\Q$uname\E:\Q$udom\E$/,@newcoowners)) { |
|
my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$newattr->{'coursecode'},$uname.':'.$udom); |
|
if ($result eq 'valid') { |
|
push(@newcoowners,$uname.':'.$udom); |
|
} |
|
} |
|
} |
|
if (@newcoowners) { |
|
my $coowners = join(',',sort(@newcoowners)); |
|
unless ($coowners eq $settings->{'internal.co-owners'}) { |
|
$updatecoowners = 1; |
|
} |
|
} else { |
|
$delcoowners = 1; |
|
} |
|
if ($updatecoowners || $delcoowners) { |
|
&Apache::lonnet::store_coowners($cdom,$cnum,$chome, |
|
$delcoowners,@newcoowners); |
|
} |
|
} else { |
|
foreach my $item (sort(keys(%cchash))) { |
|
my ($uname,$udom,$urole) = split(':',$item); |
|
push(@newcoowners,$uname.':'.$udom); |
|
} |
|
if (@newcoowners) { |
|
&Apache::lonnet::store_coowners($cdom,$cnum,$chome,'', |
|
@newcoowners); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
sub modify_quota { |
sub modify_quota { |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
&print_header($r,$type); |
&print_header($r,$type); |
Line 882 sub modify_quota {
|
Line 1118 sub modify_quota {
|
} else { |
} else { |
if ($putreply eq 'ok') { |
if ($putreply eq 'ok') { |
my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum); |
my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum); |
$r->print(&mt('The disk space allocated for group portfolio files is now: [_1] Mb.',$updatedsettings{'internal.coursequota'})); |
$r->print(&mt('The disk space allocated for group portfolio files is now: [_1] Mb.','<b>'.$updatedsettings{'internal.coursequota'}.'</b>')); |
my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum); |
my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum); |
if ($usage >= $updatedsettings{'internal.coursequota'}) { |
if ($usage >= $updatedsettings{'internal.coursequota'}) { |
my $newoverquota; |
my $newoverquota; |
Line 916 sub modify_quota {
|
Line 1152 sub modify_quota {
|
return; |
return; |
} |
} |
|
|
|
sub modify_anonsurvey_threshold { |
|
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
|
&print_header($r,$type); |
|
$r->print('<form action="/adm/modifycourse" method="post" name="processthreshold">'."\n". |
|
'<h3>'.&mt('Responder threshold required for display of anonymous survey submissions:'). |
|
' <span class="LC_nobreak">'.$cdesc.'</span></h3><br />'); |
|
my %oldsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom); |
|
my $defaultthreshold; |
|
if (ref($domconfig{'coursedefaults'}) eq 'HASH') { |
|
$defaultthreshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; |
|
if ($defaultthreshold eq '') { |
|
$defaultthreshold = 10; |
|
} |
|
} else { |
|
$defaultthreshold = 10; |
|
} |
|
if ($env{'form.threshold'} eq '') { |
|
$r->print(&mt('The proposed responder threshold for display of anonymous survey submissions was blank, so the threshold is unchanged.')); |
|
} else { |
|
my $newthreshold = $env{'form.threshold'}; |
|
if ($newthreshold =~ /^\s*(\d+)\s*$/) { |
|
$newthreshold = $1; |
|
if ($oldsettings{'internal.anonsurvey_threshold'} eq $env{'form.threshold'}) { |
|
$r->print(&mt('Responder threshold for anonymous survey submissions display remains unchanged: [_1].',$env{'form.threshold'})); |
|
} else { |
|
my %cenv = ( |
|
'internal.anonsurvey_threshold' => $env{'form.threshold'}, |
|
); |
|
my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom, |
|
$cnum); |
|
if (($oldsettings{'internal.anonsurvey_threshold'} eq '') && |
|
($env{'form.threshold'} == $defaultthreshold)) { |
|
$r->print(&mt('The responder threshold for display of anonymous survey submissions is the default for this domain: [_1].',$defaultthreshold)); |
|
} else { |
|
if ($putreply eq 'ok') { |
|
my %updatedsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum); |
|
$r->print(&mt('The responder threshold for display of anonymous survey submissions is now: [_1].','<b>'.$updatedsettings{'internal.anonsurvey_threshold'}.'</b>')); |
|
} else { |
|
$r->print(&mt('An error occurred storing the responder threshold for anonymous submissions display: '). |
|
$putreply); |
|
} |
|
} |
|
} |
|
} else { |
|
$r->print(&mt('The proposed responder threshold for display of anonymous submissions contained invalid characters, so the threshold is unchanged.')); |
|
} |
|
} |
|
$r->print('<p>'. |
|
'<a href="javascript:changePage(document.processthreshold,'."'menu'".')">'. |
|
&mt('Pick another action').'</a>'); |
|
$r->print(&hidden_form_elements().'</form>'); |
|
return; |
|
} |
|
|
sub modify_catsettings { |
sub modify_catsettings { |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_; |
&print_header($r,$type); |
&print_header($r,$type); |
Line 933 sub modify_catsettings {
|
Line 1225 sub modify_catsettings {
|
<form action="/adm/modifycourse" method="post" name="processcat"> |
<form action="/adm/modifycourse" method="post" name="processcat"> |
<h3>'.&mt('Category settings').'</h3>'); |
<h3>'.&mt('Category settings').'</h3>'); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my @cat_params = &catalog_settable($domconf{'coursecategories'}); |
my @cat_params = &catalog_settable($domconf{'coursecategories'},$type); |
if (@cat_params > 0) { |
if (@cat_params > 0) { |
my (%cenv,@changes,@nochanges); |
my (%cenv,@changes,@nochanges); |
my %currsettings = |
my %currsettings = |
Line 1079 function gochoose(cname,cdom,cdesc) {
|
Line 1371 function gochoose(cname,cdom,cdesc) {
|
</script> |
</script> |
|; |
|; |
} elsif ($phase eq 'setquota') { |
} elsif ($phase eq 'setquota') { |
$js .= <<'ENDSCRIPT'; |
my $invalid = &mt('The quota you entered contained invalid characters.'); |
|
my $alert = &mt('You must enter a number'); |
|
my $regexp = '/^\s*(\d+\.?\d*|\.\d+)\s*$/'; |
|
$js .= <<"ENDSCRIPT"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function verify_quota(formname) { |
function verify_quota() { |
var newquota = formname.coursequota.value; |
var newquota = document.setquota.coursequota.value; |
var num_reg = /^\s*(\d+\.?\d*|\.\d+)\s*$/; |
var num_reg = $regexp; |
if (num_reg.test(newquota)) { |
if (num_reg.test(newquota)) { |
changePage(formname,'processquota'); |
changePage(document.setquota,'processquota'); |
} else { |
} else { |
alert("The quota you entered contained invalid characters.\nYou must enter a number"); |
alert("$invalid\\n$alert"); |
|
return false; |
} |
} |
return; |
return true; |
|
} |
|
</script> |
|
ENDSCRIPT |
|
} elsif ($phase eq 'setanon') { |
|
my $invalid = &mt('The responder threshold you entered is invalid.'); |
|
my $alert = &mt('You must enter a positive integer.'); |
|
my $regexp = ' /^\s*\d+\s*$/'; |
|
$js .= <<"ENDSCRIPT"; |
|
<script type="text/javascript"> |
|
function verify_anon_threshold() { |
|
var newthreshold = document.setanon.threshold.value; |
|
var num_reg = $regexp; |
|
if (num_reg.test(newthreshold)) { |
|
if (newthreshold > 0) { |
|
changePage(document.setanon,'processthreshold'); |
|
} else { |
|
alert("$invalid\\n$alert"); |
|
return false; |
|
} |
|
} else { |
|
alert("$invalid\\n$alert"); |
|
return false; |
|
} |
|
return true; |
} |
} |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
Line 1159 sub course_settings_descrip {
|
Line 1479 sub course_settings_descrip {
|
if ($type eq 'Community') { |
if ($type eq 'Community') { |
%longtype = &Apache::lonlocal::texthash( |
%longtype = &Apache::lonlocal::texthash( |
'courseowner' => "Username:domain of community owner", |
'courseowner' => "Username:domain of community owner", |
|
'co-owners' => "Username:domain of each co-owner", |
); |
); |
|
|
} else { |
} else { |
%longtype = &Apache::lonlocal::texthash( |
%longtype = &Apache::lonlocal::texthash( |
'authtype' => 'Default authentication method', |
'authtype' => 'Default authentication method', |
Line 1173 sub course_settings_descrip {
|
Line 1493 sub course_settings_descrip {
|
'default_enrollment_end_date' => 'Date of last student access', |
'default_enrollment_end_date' => 'Date of last student access', |
'coursecode' => 'Official course code', |
'coursecode' => 'Official course code', |
'courseowner' => "Username:domain of course owner", |
'courseowner' => "Username:domain of course owner", |
|
'co-owners' => "Username:domain of each co-owner", |
'notifylist' => 'Course Coordinators to be notified of enrollment changes', |
'notifylist' => 'Course Coordinators to be notified of enrollment changes', |
'sectionnums' => 'Course section number:LON-CAPA section', |
'sectionnums' => 'Course section number:LON-CAPA section', |
'crosslistings' => 'Crosslisted class:LON-CAPA section', |
'crosslistings' => 'Crosslisted class:LON-CAPA section', |
Line 1185 sub hidden_form_elements {
|
Line 1506 sub hidden_form_elements {
|
my $hidden_elements = |
my $hidden_elements = |
&Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode', |
&Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode', |
'prevphase','numlocalcc','courseowner','login','coursequota','intarg', |
'prevphase','numlocalcc','courseowner','login','coursequota','intarg', |
'locarg','krbarg','krbver','counter','hidefromcat','usecategory'])."\n". |
'locarg','krbarg','krbver','counter','hidefromcat','usecategory', |
|
'threshold'])."\n". |
'<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'; |
'<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />'; |
return $hidden_elements; |
return $hidden_elements; |
} |
} |
Line 1273 sub handler {
|
Line 1595 sub handler {
|
({href=>"javascript:changePage(document.$phase,'$phase')", |
({href=>"javascript:changePage(document.$phase,'$phase')", |
text=>"Result"}); |
text=>"Result"}); |
&modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type); |
&modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type); |
} elsif ($phase eq 'viewparms') { |
} elsif ($phase eq 'setanon') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:changePage(document.$phase,'$phase')", |
|
text=>"Threshold for anonymous submissions display"}); |
|
&print_set_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$type); |
|
|
|
} elsif ($phase eq 'processthreshold') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:changePage(document.$phase,'setanon')", |
|
text=>"Threshold for anonymous submissions display"}); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:changePage(document.$phase,'$phase')", |
|
text=>"Result"}); |
|
&modify_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$domdesc,$type); |
|
} elsif ($phase eq 'viewparms') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:changePage(document.$phase,'viewparms')", |
({href=>"javascript:changePage(document.$phase,'viewparms')", |
text=>"Display settings"}); |
text=>"Display settings"}); |