version 1.240.2.3, 2009/12/15 05:04:17
|
version 1.240.2.7, 2010/01/05 15:30:25
|
Line 165 sub redirect_user {
|
Line 165 sub redirect_user {
|
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
{'redirect' => [1,$url], |
{'redirect' => [1,$url], |
'bread_crumbs' => $brcrum,}); |
'bread_crumbs' => $brcrum,}); |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
# Note to style police: |
# Note to style police: |
Line 449 ENDENTERKEY
|
Line 450 ENDENTERKEY
|
|
|
if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) { |
if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) { |
my $msg; |
my $msg; |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if (($env{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
Line 462 ENDENTERKEY
|
Line 465 ENDENTERKEY
|
} |
} |
$dest .= 'symb='.$env{'form.symb'}; |
$dest .= 'symb='.$env{'form.symb'}; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
|
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |
&error_page($r,$ferr,$dest); |
&error_page($r,$ferr,$dest); |
} else { |
} else { |
Line 482 ENDENTERKEY
|
Line 483 ENDENTERKEY
|
.'<p>'.&mt('Please try again.').'</p>' |
.'<p>'.&mt('Please try again.').'</p>' |
.'<p>'.$ferr.'</p>'; |
.'<p>'.$ferr.'</p>'; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
|
|
|
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |
&error_page($r,$ferr,$furl); |
&error_page($r,$ferr,$furl); |
Line 724 ENDHEADER
|
Line 723 ENDHEADER
|
$refresh = $now; |
$refresh = $now; |
&Apache::lonnet::appenv({'user.refresh.time' => $refresh}); |
&Apache::lonnet::appenv({'user.refresh.time' => $refresh}); |
if ($custommenu) { |
if ($custommenu) { |
|
if ($env{'form.destinationurl'} eq '/adm/gci_info') { |
|
$r->print(&gci_info_page()). |
|
&Apache::loncommon::end_page(); |
|
return OK; |
|
} |
my %courses = &Apache::loncommon::existing_gcitest_courses(); |
my %courses = &Apache::loncommon::existing_gcitest_courses(); |
$env{'browser.interface'}='faketextual'; |
$env{'browser.interface'}='faketextual'; |
$env{'environment.remote'}='off'; |
$env{'environment.remote'}='off'; |
Line 748 ENDSCRIPT
|
Line 752 ENDSCRIPT
|
$r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher). |
$r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher). |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
return OK; |
return OK; |
|
} else { |
|
if ($env{'form.destinationurl'} eq '/adm/gci_info') { |
|
delete($env{'form.destinationurl'}); |
|
} |
} |
} |
if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
$r->print('<p><label><input type="checkbox" name="showall"'); |
$r->print('<p><label><input type="checkbox" name="showall"'); |
Line 760 ENDSCRIPT
|
Line 768 ENDSCRIPT
|
&queued_selfenrollment($r); |
&queued_selfenrollment($r); |
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description'); |
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description'); |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
$r->print( |
unless ($env{'user.domain'} eq 'gcitest') { |
'<p>' |
$r->print( |
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]' |
'<p>' |
.' to view all [_4] LON-CAPA courses and communities.' |
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]' |
,'<b>' |
.' to view all [_4] LON-CAPA courses and communities.' |
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
,'<b>' |
,'</a></b>',$domdesc) |
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
.'<br />' |
,'</a></b>',$domdesc) |
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,' |
.'<br />' |
|
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,' |
.' you may be able to enroll if self-enrollment is permitted.' |
.' you may be able to enroll if self-enrollment is permitted.' |
,'<b>','</b>') |
,'<b>','</b>') |
.'</p>' |
.'</p>' |
); |
); |
|
} |
} |
} |
} |
} |
|
|
Line 783 ENDSCRIPT
|
Line 793 ENDSCRIPT
|
} else { |
} else { |
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>'); |
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>'); |
} |
} |
&findcourse_advice($r); |
unless ($env{'user.domain'} eq 'gcitest') { |
&requestcourse_advice($r); |
&findcourse_advice($r); |
|
&requestcourse_advice($r); |
|
} |
$r->print('</form>'); |
$r->print('</form>'); |
if ($countfuture) { |
if ($countfuture) { |
$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture)); |
$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture)); |
Line 937 ENDSCRIPT
|
Line 949 ENDSCRIPT
|
return OK; |
return OK; |
} |
} |
|
|
|
sub gci_info_page { |
|
return <<"END"; |
|
<h2>Welcome to the Geoscience Concept Inventory WebCenter</h2> |
|
<p> |
|
Use the tabs to navigate the WebCenter and... |
|
<ul> |
|
<li>Review and comment on existing GCI questions</li> |
|
<li>Submit a GCI question of your own</li> |
|
<li>Create an online test for your students</li> |
|
</ul> |
|
</p> |
|
<p>For more information about writing and reviewing Concept Inventory questions |
|
please refer to the <a href="/res/gci/gci/internal/pdfs/GCIWorkbook.pdf">GCI Workbook</a>. |
|
|
|
END |
|
} |
|
|
sub gather_roles { |
sub gather_roles { |
my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones) = @_; |
my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones) = @_; |
my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,''); |
my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,''); |