version 1.369.2.29, 2012/12/22 15:08:10
|
version 1.369.2.38, 2013/03/19 23:31:15
|
Line 268 sub primary_menu {
|
Line 268 sub primary_menu {
|
if (ref($primary_submenu{$title}) eq 'ARRAY') { |
if (ref($primary_submenu{$title}) eq 'ARRAY') { |
foreach my $item (@{$primary_submenu{$title}}) { |
foreach my $item (@{$primary_submenu{$title}}) { |
next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); |
next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); |
next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs())); |
|
next if ((($item->[2] eq 'portfolio') || |
next if ((($item->[2] eq 'portfolio') || |
($item->[2] eq 'blog')) && |
($item->[2] eq 'blog')) && |
(!&Apache::lonnet::usertools_access('','',$item->[2], |
(!&Apache::lonnet::usertools_access('','',$item->[2], |
Line 346 sub secondary_menu {
|
Line 345 sub secondary_menu {
|
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $author = &getauthor(); |
my $author = &getauthor(); |
|
|
|
my ($canmodifycoauthor); |
|
if ($env{'request.role'} eq "au./$env{'user.domain'}/") { |
|
my $extent = "$env{'user.domain'}/$env{'user.name'}"; |
|
if ((&Apache::lonnet::allowed('cca',$extent)) || |
|
(&Apache::lonnet::allowed('caa',$extent))) { |
|
$canmodifycoauthor = 1; |
|
} |
|
} |
|
|
my %groups = &Apache::lonnet::get_active_groups( |
my %groups = &Apache::lonnet::get_active_groups( |
$env{'user.domain'}, $env{'user.name'}, |
$env{'user.domain'}, $env{'user.name'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'}); |
$env{'course.' . $env{'request.course.id'} . '.num'}); |
|
|
|
my ($roleswitcher_js,$roleswitcher_form); |
|
|
foreach my $menuitem (@secondary_menu) { |
foreach my $menuitem (@secondary_menu) { |
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; |
next if ref($menuitem) ne 'ARRAY'; |
next if $$menuitem[4] ne 'always' |
next if $$menuitem[4] ne 'always' |
&& $$menuitem[4] ne 'author' |
&& ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca') |
&& !$env{'request.course.id'}; |
&& !$env{'request.course.id'}; |
next if $$menuitem[4] =~ /^mdc/ |
next if $$menuitem[4] =~ /^mdc/ |
&& !$canedit; |
&& !$canedit; |
Line 383 sub secondary_menu {
|
Line 393 sub secondary_menu {
|
&& ($canviewgrps || !%groups); |
&& ($canviewgrps || !%groups); |
next if $$menuitem[4] eq 'author' |
next if $$menuitem[4] eq 'author' |
&& !$author; |
&& !$author; |
|
next if $$menuitem[4] eq 'cca' |
|
&& !$canmodifycoauthor; |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
if (defined($secondary_submenu{$title})) { |
if (defined($secondary_submenu{$title})) { |
Line 413 sub secondary_menu {
|
Line 425 sub secondary_menu {
|
} |
} |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
# special treatment for role selector |
# special treatment for role selector |
my $roles_selector = &roles_selector( |
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
|
&roles_selector( |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'} ); |
$env{'course.' . $env{'request.course.id'} . '.num'} |
|
); |
$menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>" |
$menu .= $switcher; |
: ''; |
|
} else { |
} else { |
$menu .= &prep_menuitem(\@$menuitem); |
$menu .= &prep_menuitem(\@$menuitem); |
} |
} |
Line 446 sub secondary_menu {
|
Line 458 sub secondary_menu {
|
if ($menu) { |
if ($menu) { |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
} |
} |
|
if ($roleswitcher_form) { |
|
$menu .= "\n$roleswitcher_js\n$roleswitcher_form"; |
|
} |
return $menu; |
return $menu; |
} |
} |
|
|
Line 621 sub innerregister {
|
Line 636 sub innerregister {
|
$forceview,$editbutton); |
$forceview,$editbutton); |
if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) || |
if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) || |
($env{'request.role'} !~/^(aa|ca|au)/)) { |
($env{'request.role'} !~/^(aa|ca|au)/)) { |
|
if (($env{'environment.remote'} eq 'on') && ($env{'request.symb'})) { |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
} |
$editbutton = &prepare_functions($resurl,$forcereg,$group); |
$editbutton = &prepare_functions($resurl,$forcereg,$group); |
} |
} |
if ($editbutton eq '') { |
if ($editbutton eq '') { |
Line 1205 sub get_editbutton {
|
Line 1223 sub get_editbutton {
|
$icon = 'tolastloc.png'; |
$icon = 'tolastloc.png'; |
$label = 'Exit Editing'; |
$label = 'Exit Editing'; |
} |
} |
&switch('','',6,1,$icon,$label,'resource[_2]', |
my $infunc = 1; |
$jscall,"Edit this resource"); |
my $clearbutton; |
return 1; |
if ($env{'environment.remote'} eq 'on') { |
|
if ($cfile =~ m{^/priv/}) { |
|
undef($infunc); |
|
$label = 'edit'; |
|
} else { |
|
$clearbutton = 1; |
|
} |
|
} |
|
my $editor = &switch('','',6,1,$icon,$label,'resource[_2]', |
|
$jscall,"Edit this resource",'','',$infunc); |
|
if ($infunc) { |
|
return 1; |
|
} elsif ($clearbutton) { |
|
return &clear(6,1); |
|
} else { |
|
return $editor; |
|
} |
} |
} |
return; |
return; |
} |
} |
|
|
sub prepare_functions { |
sub prepare_functions { |
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_; |
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$forbodytag) = @_; |
unless ($env{'request.registered'}) { |
unless ($env{'request.registered'}) { |
undef(@inlineremote); |
undef(@inlineremote); |
} |
} |
Line 1263 sub prepare_functions {
|
Line 1297 sub prepare_functions {
|
&switch('','',6,1,'pcstr.png','Edit', |
&switch('','',6,1,'pcstr.png','Edit', |
'resource[_2]', |
'resource[_2]', |
"go('/adm/courseprefs?phase=display&actions=courseinfo')", |
"go('/adm/courseprefs?phase=display&actions=courseinfo')", |
'Edit this resource'); |
'Edit this resource','','',1); |
$editbutton = 1; |
$editbutton = 1; |
} else { |
} else { |
$cfile = $resurl; |
$cfile = $resurl; |
Line 1286 sub prepare_functions {
|
Line 1320 sub prepare_functions {
|
$forceedit,$forceview,$forcereg, |
$forceedit,$forceview,$forcereg, |
$env{'form.title'},$env{'form.suppurl'}); |
$env{'form.title'},$env{'form.suppurl'}); |
} |
} |
} elsif ($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { |
} elsif (($resurl =~ m{^/?adm/viewclasslist$}) && |
|
(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) { |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl, |
|
$env{'form.symb'}); |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) && |
|
($resurl ne '/cgi-bin/printout.pl')) { |
if ($env{'request.filename'}) { |
if ($env{'request.filename'}) { |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
Line 1309 sub prepare_functions {
|
Line 1351 sub prepare_functions {
|
&switch('','',6,4,'mail-message-new-22x22.png','Message to user', |
&switch('','',6,4,'mail-message-new-22x22.png','Message to user', |
'', |
'', |
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
'Send message to specific user'); |
'Send message to specific user','','',1); |
} |
} |
my $hideprivileged = 1; |
my $hideprivileged = 1; |
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef, |
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef, |
Line 1325 sub prepare_functions {
|
Line 1367 sub prepare_functions {
|
&switch('','',6,5,'trck-22x22.png','Activity', |
&switch('','',6,5,'trck-22x22.png','Activity', |
'', |
'', |
"go('/adm/trackstudent?selected_student=$sname:$sdom')", |
"go('/adm/trackstudent?selected_student=$sname:$sdom')", |
'View recent activity by this person'); |
'View recent activity by this person','','',1); |
} |
} |
if ($perms{'vgr'}) { |
if ($perms{'vgr'}) { |
&switch('','',6,6,'rsrv-22x22.png','Reservations', |
&switch('','',6,6,'rsrv-22x22.png','Reservations', |
'', |
'', |
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')", |
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')", |
'Slot reservation history'); |
'Slot reservation history','','',1); |
} |
} |
if ($perms{'srm'}) { |
if ($perms{'srm'}) { |
&switch('','',6,7,'contact-new-22x22.png','Records', |
&switch('','',6,7,'contact-new-22x22.png','Records', |
'', |
'', |
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')", |
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')", |
'Add records'); |
'Add records','','',1); |
} |
} |
} |
} |
} elsif ($resurl =~ m{^/?adm/viewclasslist}) { |
|
# This applies to viewclasslist page for users in a course |
|
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
|
&switch('','',6,4,'pparm.png','Settings', |
|
'', |
|
"go('/adm/courseprefs?actions=classlists&phase=display')", |
|
'Student-viewable classlist options'); |
|
} |
|
} |
} |
if (($env{'form.folderpath'} =~ /^supplemental/) && |
if (($env{'form.folderpath'} =~ /^supplemental/) && |
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) && |
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) && |
Line 1361 sub prepare_functions {
|
Line 1395 sub prepare_functions {
|
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"')); |
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"')); |
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]', |
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]', |
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'", |
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'", |
'Folder/Page Content'); |
'Folder/Page Content','','',1); |
} |
} |
} |
} |
} |
} |
Line 1371 sub prepare_functions {
|
Line 1405 sub prepare_functions {
|
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
&advtools_crumbs(@inlineremote); |
&advtools_crumbs(@inlineremote); |
return $editbutton; |
return $editbutton; |
} elsif ($env{'request.registered'}) { |
} elsif (($env{'request.registered'}) && (!ref($forbodytag))) { |
return $editbutton; |
return $editbutton; |
} else { |
} else { |
if (ref($bread_crumbs) eq 'ARRAY') { |
if (ref($bread_crumbs) eq 'ARRAY') { |
Line 1384 sub prepare_functions {
|
Line 1418 sub prepare_functions {
|
} elsif (@inlineremote > 0) { |
} elsif (@inlineremote > 0) { |
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
&advtools_crumbs(@inlineremote); |
&advtools_crumbs(@inlineremote); |
return &Apache::lonhtmlcommon::scripttag('', 'start') |
if (ref($forbodytag)) { |
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
$$forbodytag = |
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
&Apache::lonhtmlcommon::scripttag('', 'start') |
|
.&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
|
.&Apache::lonhtmlcommon::scripttag('', 'end'); |
|
} |
|
return; |
} |
} |
} |
} |
} |
} |
Line 1401 sub advtools_crumbs {
|
Line 1439 sub advtools_crumbs {
|
'advtools', @funcs[61,71,72,73,74,92]); |
'advtools', @funcs[61,71,72,73,74,92]); |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', @funcs[64]); |
'advtools', $funcs[61]); |
} |
} |
} |
} |
|
|
Line 1423 sub clear {
|
Line 1461 sub clear {
|
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". |
|
|
sub switch { |
sub switch { |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak)=@_; |
my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$uname/$uname/g; |
$act=~s/\$udom/$udom/g; |
$act=~s/\$udom/$udom/g; |
$top=&mt($top); |
$top=&mt($top); |
Line 1432 sub switch {
|
Line 1470 sub switch {
|
my $idx=10*$row+$col; |
my $idx=10*$row+$col; |
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
if ($env{'environment.remote'} eq 'on') { |
if (($env{'environment.remote'} eq 'on') && (!$infunc)) { |
if (($row<1) || ($row>13)) { return ''; } |
if (($row<1) || ($row>13)) { return ''; } |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
my $text = $top.' '.$bot; |
my $text = $top.' '.$bot; |
Line 2078 sub roles_selector {
|
Line 2116 sub roles_selector {
|
my $now = time; |
my $now = time; |
my (%courseroles,%seccount,%courseprivs); |
my (%courseroles,%seccount,%courseprivs); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my ($js,$form,$switcher,$switchtext); |
my $ccrole; |
my $ccrole; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$ccrole = 'co'; |
$ccrole = 'co'; |
Line 2166 sub roles_selector {
|
Line 2204 sub roles_selector {
|
} |
} |
} |
} |
} |
} |
my $switchtext; |
$switchtext = &mt('Switch role'); |
if ($crstype eq 'Community') { |
|
$switchtext = &mt('Switch community role to...') |
|
} else { |
|
$switchtext = &mt('Switch course role to...') |
|
} |
|
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
if (keys(%courseroles) > 1) { |
my $numdiffsec; |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
if (keys(%seccount) == 1) { |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
foreach my $key (keys(%seccount)) { |
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
$numdiffsec = $seccount{$key}; |
$role_selector .= '<option value="">'.$switchtext.'</option>'; |
} |
|
} |
|
if ((keys(%seccount) > 1) || ($numdiffsec > 1)) { |
|
my @submenu; |
|
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
|
$form = |
|
'<form name="rolechooser" method="post" action="/adm/roles">'."\n". |
|
' <input type="hidden" name="destinationurl" value="'. |
|
&HTML::Entities::encode($destinationurl).'" />'."\n". |
|
' <input type="hidden" name="gotorole" value="1" />'."\n". |
|
' <input type="hidden" name="selectrole" value="" />'."\n". |
|
' <input type="hidden" name="switchrole" value="" />'."\n"; |
|
if ($destsymb ne '') { |
|
$form .= ' <input type="hidden" name="destsymb" value="'. |
|
&HTML::Entities::encode($destsymb).'" />'."\n"; |
|
} |
|
$form .= '</form>'."\n"; |
foreach my $role (@roles_order) { |
foreach my $role (@roles_order) { |
|
my $include; |
if (defined($courseroles{$role})) { |
if (defined($courseroles{$role})) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>'; |
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
|
if ($seccount{$role} > 1) { |
|
$include = 1; |
|
} |
|
} else { |
|
$include = 1; |
|
} |
|
} |
|
if ($include) { |
|
push(@submenu,['javascript:adhocRole('."'$role'".')', |
|
&Apache::lonnet::plaintext($role,$crstype)]); |
} |
} |
} |
} |
foreach my $role (sort(keys(%courseroles))) { |
foreach my $role (sort(keys(%courseroles))) { |
if ($role =~ /^cr/) { |
if ($role =~ /^cr/) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
my $include; |
|
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
|
if ($seccount{$role} > 1) { |
|
$include = 1; |
|
} |
|
} else { |
|
$include = 1; |
|
} |
|
if ($include) { |
|
push(@submenu,['javascript:adhocRole('."'$role'".')', |
|
&Apache::lonnet::plaintext($role)]); |
|
} |
} |
} |
} |
} |
$role_selector .= '</select>'."\n"; |
if (@submenu > 0) { |
if ($destsymb ne '') { |
$switcher = &create_submenu('','',$switchtext,\@submenu); |
$role_selector .= '<input type="hidden" name="destsymb" value="'. |
|
&HTML::Entities::encode($destsymb).'" />'."\n"; |
|
} |
} |
$role_selector .= |
|
'<input type="hidden" name="destinationurl" value="'. |
|
&HTML::Entities::encode($destinationurl).'" />'."\n". |
|
'<input type="hidden" name="gotorole" value="1" />'."\n". |
|
'<input type="hidden" name="selectrole" value="" />'."\n". |
|
'<input type="hidden" name="switch" value="1" />'."\n". |
|
'</form>'; |
|
} |
} |
return $role_selector; |
return ($js,$form,$switcher); |
} |
} |
|
|
sub get_all_courseroles { |
sub get_all_courseroles { |
Line 2264 sub get_all_courseroles {
|
Line 2326 sub get_all_courseroles {
|
push(@{$courseroles->{'st'}},keys(%sections_count)); |
push(@{$courseroles->{'st'}},keys(%sections_count)); |
$seccount->{'st'} = scalar(keys(%sections_count)); |
$seccount->{'st'} = scalar(keys(%sections_count)); |
} |
} |
|
$seccount->{'st'} ++; # Increment for a section-less student role. |
my $rolehash = { |
my $rolehash = { |
'roles' => $courseroles, |
'roles' => $courseroles, |
'seccount' => $seccount, |
'seccount' => $seccount, |
Line 2340 sub jump_to_role {
|
Line 2403 sub jump_to_role {
|
return <<"END"; |
return <<"END"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
//<![CDATA[ |
//<![CDATA[ |
function adhocRole(roleitem) { |
function adhocRole(newrole) { |
$js |
$js |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
|
if (newrole == '') { |
if (newrole == '') { |
return; |
return; |
} |
} |
Line 2359 function adhocRole(roleitem) {
|
Line 2421 function adhocRole(roleitem) {
|
if (confirm("$lt{'role'}\\n$lt{'swit'}")) { |
if (confirm("$lt{'role'}\\n$lt{'swit'}")) { |
document.rolechooser.destinationurl.value = '/adm/menu'; |
document.rolechooser.destinationurl.value = '/adm/menu'; |
} else { |
} else { |
document.rolechooser.elements[roleitem].selectedIndex = 0; |
|
return; |
return; |
} |
} |
} |
} |
Line 2402 function adhocRole(roleitem) {
|
Line 2463 function adhocRole(roleitem) {
|
return; |
return; |
} |
} |
if (fullrole == "$env{'request.role'}") { |
if (fullrole == "$env{'request.role'}") { |
document.rolechooser.elements[roleitem].selectedIndex = 0; |
|
return; |
return; |
} |
} |
itemid = retrieveIndex('gotorole'); |
itemid = retrieveIndex('gotorole'); |
if (itemid != -1) { |
if (itemid != -1) { |
document.rolechooser.elements[itemid].name = fullrole; |
document.rolechooser.elements[itemid].name = fullrole; |
} |
} |
document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole; |
document.rolechooser.switchrole.value = fullrole; |
document.rolechooser.selectrole.value = '1'; |
document.rolechooser.selectrole.value = '1'; |
document.rolechooser.submit(); |
document.rolechooser.submit(); |
return; |
return; |
Line 2472 sub countdown_timer {
|
Line 2532 sub countdown_timer {
|
} |
} |
my $duedate = &Apache::lonnet::EXT("resource.0.duedate"); |
my $duedate = &Apache::lonnet::EXT("resource.0.duedate"); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
my $hastimeleft; |
|
if (@interval > 1) { |
if (@interval > 1) { |
my $first_access=&Apache::lonnet::get_first_access($interval[1]); |
my $first_access=&Apache::lonnet::get_first_access($interval[1]); |
if ($first_access > 0) { |
if ($first_access > 0) { |
Line 2531 BEGIN {
|
Line 2590 BEGIN {
|
$category_names{$entries[2]}=$entries[3]; |
$category_names{$entries[2]}=$entries[3]; |
} elsif ($configline=~/^prim\:/) { |
} elsif ($configline=~/^prim\:/) { |
my @entries = (split(/\:/, $configline))[1..5]; |
my @entries = (split(/\:/, $configline))[1..5]; |
push @primary_menu, \@entries; |
push(@primary_menu,\@entries); |
} elsif ($configline=~/^primsub\:/) { |
} elsif ($configline=~/^primsub\:/) { |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
push (@{$primary_submenu{$parent}},\@entries); |
push(@{$primary_submenu{$parent}},\@entries); |
} elsif ($configline=~/^scnd\:/) { |
} elsif ($configline=~/^scnd\:/) { |
my @entries = (split(/\:/, $configline))[1..5]; |
my @entries = (split(/\:/, $configline))[1..5]; |
push @secondary_menu, \@entries; |
push(@secondary_menu,\@entries); |
} elsif ($configline=~/^scndsub\:/) { |
} elsif ($configline=~/^scndsub\:/) { |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
push (@{$secondary_submenu{$parent}},\@entries); |
push(@{$secondary_submenu{$parent}},\@entries); |
} elsif ($configline) { |
} elsif ($configline) { |
push(@desklines,$configline); |
push(@desklines,$configline); |
} |
} |