version 1.309.2.21, 2010/12/02 16:44:09
|
version 1.309.2.24, 2010/12/07 04:33:49
|
Line 166 sub primary_menu {
|
Line 166 sub primary_menu {
|
my $menu; |
my $menu; |
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
|
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
# each element of @primary contains following array: |
# each element of @primary contains following array: |
# (link url, icon path, alt text, link text, condition) |
# (link url, icon path, alt text, link text, condition) |
my $public; |
my ($public,$faculty); |
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
$public = 1; |
$public = 1; |
|
} elsif (ref($allnums{$env{'user.domain'}}) eq 'HASH') { |
|
$faculty = 1; |
} |
} |
foreach my $menuitem (@primary_menu) { |
foreach my $menuitem (@primary_menu) { |
# evaluate conditions |
# evaluate conditions |
Line 186 sub primary_menu {
|
Line 189 sub primary_menu {
|
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
&& !$public; # only visible to public |
&& !$public; # only visible to public |
# users |
# users |
next if $$menuitem[4] eq 'gci' |
next if $$menuitem[4] eq 'ci' |
&& (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/}); |
&& (!$custommenu || $env{'request.role'} =~ m{^st\./\w+citest/}); |
next if $$menuitem[4] eq 'home' |
next if $$menuitem[4] eq 'home' |
&& (($custommenu) || ($env{'user.domain'} eq 'gcitest') || |
&& (($custommenu) || ($env{'user.domain'} =~ /^\w+citest$/) || |
(($env{'user.domain'} eq 'gci') && !$numdc)); |
($faculty && !$numdc)); |
next if $$menuitem[4] eq 'gcitest' |
next if $$menuitem[4] eq 'citest' |
&& (($env{'user.domain'} eq 'gci') || ($env{'request.role'} eq 'cm')); |
&& ($faculty || ($env{'request.role'} eq 'cm')); |
next if $$menuitem[4] eq 'roles' # hide links which are |
next if $$menuitem[4] eq 'roles' # hide links which are |
&& $custommenu; # not visible when GCI |
&& $custommenu; # not visible when GCI |
next if $$menuitem[4] eq 'courses' # tabbed interface in use |
next if $$menuitem[4] eq 'courses' # tabbed interface in use |
Line 316 sub secondary_menu {
|
Line 319 sub secondary_menu {
|
} |
} |
|
|
sub gci_secondary_menu { |
sub gci_secondary_menu { |
my %courses = ( |
my %courses; |
'review' => 'gci_9615072b469884921gcil1', |
my $inventory; |
'submit' => 'gci_1H96711d710194bfegcil1', |
if ($env{'user.domain'} =~ /^(\w+ci)test$/) { |
'tutorial' => 'gci_5422913620b814c90gcil1', |
$inventory = $1; |
); |
} else { |
|
$inventory = $env{'user.domain'}; |
|
} |
|
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
|
if (($inventory ne '') && (ref($allnums{$inventory}) eq 'HASH')) { |
|
foreach my $key (keys(%{$allnums{$inventory}})) { |
|
$courses{$key} = $inventory.'_'.$allnums{$inventory}->{$key}; |
|
} |
|
} |
|
|
my %linktext = ( |
my %linktext = ( |
'review' => 'Review Questions', |
'review' => 'Review Questions', |
'submit' => 'Submit Questions', |
'submit' => 'Submit Questions', |
'managetest' => 'Manage Tests', |
'managetest' => 'Manage Tests', |
'tutorial' => 'Tutorials', |
'tutorial' => 'Tutorials', |
); |
); |
my %links = ( |
my (%links,@menutabs,$current,%can_request,%request_domains); |
'managetest' => '/adm/menu', |
my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc'); |
); |
my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test', |
my $current = 'managetest'; |
\%can_request,\%request_domains); |
if ($env{'form.destinationurl'} eq '/adm/gci_info') { |
if (($canreq) || (keys(%concepttests) > 0)) { |
|
%links = ( |
|
'managetest' => '/adm/menu', |
|
); |
|
$current = 'managetest'; |
|
} |
|
if ($env{'form.destinationurl'} eq '/adm/ci_info') { |
undef($current); |
undef($current); |
} |
} |
foreach my $key (keys(%courses)) { |
foreach my $key (keys(%courses)) { |
Line 343 sub gci_secondary_menu {
|
Line 361 sub gci_secondary_menu {
|
$links{$key} = '/adm/navmaps'; |
$links{$key} = '/adm/navmaps'; |
} |
} |
$current = $key; |
$current = $key; |
$links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
if (($canreq) || (keys(%concepttests) > 0) { |
|
$links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
|
} |
} |
} |
} |
} |
my @menutabs = ('review','submit','managetest','tutorial'); |
my @posstabs = ('review','submit','managetest','tutorial'); |
my $tabs; |
my $tabs; |
foreach my $item (@menutabs) { |
foreach my $item (@posstabs) { |
|
next if ($links{$item} eq ''); |
|
push(@menutabs,$item); |
if ($item eq $current) { |
if ($item eq $current) { |
$tabs .= '<li id="current"><a href="'.$links{$item}.'">'. |
$tabs .= '<li id="current"><a href="'.$links{$item}.'">'. |
$linktext{$item}.'</a></li>'; |
$linktext{$item}.'</a></li>'; |
Line 1457 ENDSCRIPT
|
Line 1479 ENDSCRIPT
|
} |
} |
$switcher = $switcher_js.$switcher; |
$switcher = $switcher_js.$switcher; |
} |
} |
if ($env{'user.domain'} eq 'gci') { |
if ($env{'user.domain'} !~ /^\w+citest$/) { |
$canreq = |
$canreq = |
&Apache::lonnet::check_can_request('gcitest',\%can_request,\%request_domains); |
&Apache::lonnet::check_can_request($env{'user.domain'}.'test',\%can_request,\%request_domains); |
$createtext = &mt('Create Concept Test'); |
$createtext = &mt('Create Concept Test'); |
if ($numcourses) { |
if ($numcourses) { |
$createtext = &mt('Create New Test'); |
$createtext = &mt('Create New Test'); |
Line 1500 ENDSCRIPT
|
Line 1522 ENDSCRIPT
|
} else { |
} else { |
my $navtext = &mt('Table of Contents'); |
my $navtext = &mt('Table of Contents'); |
my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory'); |
my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory'); |
if ($env{'request.role.domain'} eq 'gcitest') { |
if ($env{'request.role.domain'} =~ /^\w+citest$/) { |
$navtext = &mt('Display Test Contents'); |
$navtext = &mt('Display Test Contents'); |
$navdesc = &mt('Display the table of contents for this Concept Test'); |
$navdesc = &mt('Display the table of contents for this Concept Test'); |
} |
} |
Line 1887 sub utilityfunctions {
|
Line 1909 sub utilityfunctions {
|
my $gcimenujs; |
my $gcimenujs; |
if ($custommenu) { |
if ($custommenu) { |
my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc'); |
my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc'); |
my $managetesturl = '/adm/menu'; |
my (@calls,%switchpage_call,%canrequest,%request_domains); |
my $createtesturl = '/adm/requestcourse'; |
my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test', |
|
\%canrequest,\%request_domains); |
|
if ($canreq) { |
|
foreach my $call ('createtest','managetest') { |
|
push(@calls,$call); |
|
} |
|
$switchpage_call{'managetest'} = '/adm/menu'; |
|
$switchpage_call{'createtest'} = '/adm/requestcourse'; |
|
if ($env{'request.course.id'}) { |
|
$switchpage_call{'createtest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse'; |
|
} |
|
} |
if (($env{'request.course.id'}) && |
if (($env{'request.course.id'}) && |
($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gci')) { |
($env{'course.'.$env{'request.course.id'}.'.domain'} !~ /^\w+citest$/)) { |
my @items = keys(%concepttests); |
my @items = keys(%concepttests); |
if (@items== 1) { |
if (@items==1) { |
my $newrole = $items[0]; |
my $newrole = $items[0]; |
$newrole =~ s{_}{/}; |
$newrole =~ s{_}{/}; |
$managetesturl = '/adm/roles?selectrole=1&cc./'.$newrole.'=1'; |
$switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cc./'.$newrole.'=1'; |
} else { |
} else { |
$managetesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
$switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
} |
} |
} |
} |
if ($env{'request.course.id'}) { |
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
$createtesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse'; |
my $udom = $env{'user.domain'}; |
|
if (ref($allnums{$udom}) eq 'HASH') { |
|
foreach my $key (keys(%{$allnums{$udom}})) { |
|
$switchpage_call{$key} = '/adm/roles?selectrole=1&'. |
|
'st./'.$udom.'/'.$allnums{$udom}->{$key}.'=1'; |
|
push(@calls,$key); |
|
} |
} |
} |
$gcimenujs = <<"ENDCUSTOM"; |
if (@calls > 0) { |
|
$gcimenujs = ' |
function switchpage(caller) { |
function switchpage(caller) { |
if (caller == 'review') { |
'; |
document.location.href = '/adm/roles?selectrole=1&st./gci/9615072b469884921gcil1=1'; |
foreach my $call (@calls) { |
} |
$gcimenujs .= " |
if (caller == 'submit') { |
if (caller == '$call') { |
document.location.href = '/adm/roles?selectrole=1&st./gci/1H96711d710194bfegcil1=1'; |
document.location.href = '$switchpage_call{$call}'; |
} |
}"; |
if (caller == 'createtest') { |
} |
document.location.href = '$createtesturl'; |
$gcimenujs .= ' |
} |
|
if (caller == 'managetest') { |
|
document.location.href = '$managetesturl'; |
|
} |
|
if (caller == 'tutorial') { |
|
document.location.href = '/adm/roles?selectrole=1&st./gci/5422913620b814c90gcil1=1'; |
|
} |
|
return; |
return; |
} |
} |
|
'; |
ENDCUSTOM |
} |
} |
} |
|
|
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |