version 1.244, 2008/11/19 19:43:08
|
version 1.244.2.8, 2010/01/18 20:28:20
|
Line 144 use Apache::loncommon();
|
Line 144 use Apache::loncommon();
|
use Apache::lonenc(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
use HTML::Entities(); |
|
|
use vars qw(@desklines %category_names %category_members %category_positions $readdesk); |
use vars qw(@desklines %category_names %category_members %category_positions $readdesk); |
|
|
Line 170 sub initlittle {
|
Line 171 sub initlittle {
|
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
'nav' => 'Navigate Contents', |
'nav' => 'Navigate Contents', |
'main' => 'Main Menu', |
'main' => 'Main Menu', |
'roles' => (&show_course()? |
'roles' => (&Apache::loncommon::show_course()? |
'Courses':'Roles'), |
'Courses':'Roles'), |
'other' => 'Other Roles', |
'other' => 'Other Roles', |
'docs' => 'Edit Course', |
'docs' => 'Edit Course', |
'exit' => 'Exit', |
'exit' => 'Logout', |
'login' => 'Log In', |
'login' => 'Log In', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups', |
'groups' => 'Groups', |
Line 351 ENDCRELOAD
|
Line 352 ENDCRELOAD
|
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
|
// <![CDATA[ |
// <![CDATA[ |
|
// BEGIN LON-CAPA Internal |
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
Line 409 sub registerurl {
|
Line 410 sub registerurl {
|
&unescape($env{'request.noversionuri'})))) && |
&unescape($env{'request.noversionuri'})))) && |
(!$forcereg))) { |
(!$forcereg))) { |
return $result. |
return $result. |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; |
'<script type="text/javascript">'."\n". |
|
'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n". |
|
'</script>'.$force_title; |
} |
} |
# Graphical display after login only |
# Graphical display after login only |
if ($env{'request.registered'} && !$forcereg) { return ''; } |
if ($env{'request.registered'} && !$forcereg) { return ''; } |
Line 493 sub innerregister {
|
Line 496 sub innerregister {
|
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]', |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]', |
"gocmd('/adm/grades','gradingmenu')", |
"gocmd('/adm/grades','gradingmenu')", |
'Modify user grades for this assessment resource'); |
'Modify user grades for this assessment resource'); |
} elsif (&Apache::lonnet::allowed('vgr',$crs)) { |
} elsif (&Apache::lonnet::allowed('vgr',$crs)) { |
Line 514 sub innerregister {
|
Line 517 sub innerregister {
|
### resource |
### resource |
### |
### |
my $editbutton = ''; |
my $editbutton = ''; |
|
my $noeditbutton = 1; |
|
my ($cnum,$cdom); |
|
if ($env{'request.course.id'}) { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
} |
if ($env{'user.author'}) { |
if ($env{'user.author'}) { |
if ($env{'request.role'}=~/^(aa|ca|au)/) { |
if ($env{'request.role'}=~/^(aa|ca|au)/) { |
# Set defaults for authors |
# Set defaults for authors |
Line 541 sub innerregister {
|
Line 550 sub innerregister {
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
if (!$allowed) { |
if (!$allowed) { |
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); |
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); |
|
$noeditbutton = 0; |
} |
} |
} |
} |
## |
## |
Line 549 sub innerregister {
|
Line 559 sub innerregister {
|
my $cfile=''; |
my $cfile=''; |
my $cfuname=''; |
my $cfuname=''; |
my $cfudom=''; |
my $cfudom=''; |
|
my $uploaded; |
if ($env{'request.filename'}) { |
if ($env{'request.filename'}) { |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/; |
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/; |
Line 569 sub innerregister {
|
Line 580 sub innerregister {
|
$editbutton=&switch |
$editbutton=&switch |
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
"go('".$cfile."');","Edit this resource"); |
"go('".$cfile."');","Edit this resource"); |
|
$noeditbutton = 0; |
} elsif ($editbutton eq '') { |
} elsif ($editbutton eq '') { |
$editbutton=&clear(6,1); |
$editbutton=&clear(6,1); |
} |
} |
} |
} |
|
if (($noeditbutton) && ($env{'request.filename'})) { |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
if (defined($cnum) && defined($cdom)) { |
|
if (&is_course_upload($file,$cnum,$cdom)) { |
|
my $cfile = &edit_course_upload($file,$cnum,$cdom); |
|
if ($cfile) { |
|
$editbutton=&switch |
|
('','',6,1,'pcstr.gif','edit[_1]', |
|
'resource[_2]',"go('".$cfile."');", |
|
'Edit this resource'); |
|
} |
|
} |
|
} |
|
} |
|
} |
### |
### |
### |
### |
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
Line 590 sub innerregister {
|
Line 618 sub innerregister {
|
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
Line 620 if(length($annotation) > 0){
|
Line 648 if(length($annotation) > 0){
|
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
|
|
|
unless ($noremote) { |
|
my $showreqcrs = &check_for_rcrs(); |
|
if ($showreqcrs) { |
|
$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]". |
|
"&go('/adm/requestcourse')&Course requests\n"; |
|
} |
|
} |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
if (!$env{'request.enc'}) { |
if (!$env{'request.enc'}) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
ENDREALRES |
ENDREALRES |
} |
} |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
Line 725 ENDREGTEXT
|
Line 760 ENDREGTEXT
|
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 760 var swmenu=null;
|
Line 796 var swmenu=null;
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
|
// ]]> |
</script> |
</script> |
ENDREGTHIS |
ENDREGTHIS |
} |
} |
Line 775 ENDDONOTREGTEXT
|
Line 812 ENDDONOTREGTEXT
|
$result = (<<ENDDONOTREGTHIS); |
$result = (<<ENDDONOTREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 799 var swmenu=null;
|
Line 837 var swmenu=null;
|
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
|
// ]]> |
</script> |
</script> |
ENDDONOTREGTHIS |
ENDDONOTREGTHIS |
} |
} |
Line 807 ENDDONOTREGTHIS
|
Line 846 ENDDONOTREGTHIS
|
return $result; |
return $result; |
} |
} |
|
|
|
sub is_course_upload { |
|
my ($file,$cnum,$cdom) = @_; |
|
my $uploadpath = &LONCAPA::propath($cdom,$cnum); |
|
$uploadpath =~ s{^\/}{}; |
|
if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) || |
|
($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) { |
|
return 1; |
|
} |
|
return; |
|
} |
|
|
|
sub edit_course_upload { |
|
my ($file,$cnum,$cdom) = @_; |
|
my $cfile; |
|
if ($file =~/\.(htm|html|css|js|txt)$/) { |
|
my $ext = $1; |
|
my $url = &Apache::lonnet::hreflocation('',$file); |
|
my $home = &Apache::lonnet::homeserver($cnum,$cdom); |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
my $dest; |
|
if ($home && grep(/^\Q$home\E$/,@ids)) { |
|
$dest = $url.'?forceedit=1'; |
|
} else { |
|
unless (&Apache::lonnet::get_locks()) { |
|
$dest = '/adm/switchserver?otherserver='. |
|
$home.'&role='.$env{'request.role'}. |
|
'&url='.$url.'&forceedit=1'; |
|
} |
|
} |
|
if ($dest) { |
|
$cfile = &HTML::Entities::encode($dest,'"<>&'); |
|
} |
|
} |
|
return $cfile; |
|
} |
|
|
sub loadevents() { |
sub loadevents() { |
if ($env{'request.state'} eq 'construct' || |
if ($env{'request.state'} eq 'construct' || |
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
Line 834 sub startupremote {
|
Line 909 sub startupremote {
|
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
var timestart; |
var timestart; |
function wheelswitch() { |
function wheelswitch() { |
if (typeof(document.wheel) != 'undefined') { |
if (typeof(document.wheel) != 'undefined') { |
Line 883 function main() {
|
Line 959 function main() {
|
timestart=date.getTime(); |
timestart=date.getTime(); |
wait(); |
wait(); |
} |
} |
|
// ]]> |
</script> |
</script> |
ENDREMOTESTARTUP |
ENDREMOTESTARTUP |
} |
} |
Line 891 ENDREMOTESTARTUP
|
Line 967 ENDREMOTESTARTUP
|
sub setflags() { |
sub setflags() { |
return(<<ENDSETFLAGS); |
return(<<ENDSETFLAGS); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
menuloaded=0; |
menuloaded=0; |
tim=0; |
tim=0; |
|
// ]]> |
</script> |
</script> |
ENDSETFLAGS |
ENDSETFLAGS |
} |
} |
Line 902 sub maincall() {
|
Line 980 sub maincall() {
|
($env{'environment.remote'} eq 'off')) { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
return(<<ENDMAINCALL); |
return(<<ENDMAINCALL); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
main(); |
main(); |
|
// ]]> |
</script> |
</script> |
ENDMAINCALL |
ENDMAINCALL |
} |
} |
Line 914 sub load_remote_msg {
|
Line 994 sub load_remote_msg {
|
($env{'environment.remote'} eq 'off')) { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
|
my $esclowerurl=&escape($lowerurl); |
my $esclowerurl=&escape($lowerurl); |
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode', |
my $link=&mt('[_1]Continue[_2] on in Inline Menu mode', |
"/adm/remote?action=collapse&url=$esclowerurl"); |
'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">', |
|
'</a>'); |
return(<<ENDREMOTEFORM); |
return(<<ENDREMOTEFORM); |
<p> |
<p> |
<form name="wheel"> |
<form name="wheel"> |
Line 946 sub open {
|
Line 1027 sub open {
|
my $returnval=''; |
my $returnval=''; |
if (($env{'browser.interface'} eq 'textual') || |
if (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off')) { |
($env{'environment.remote'} eq 'off')) { |
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
return |
|
'<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
'self.name="loncapaclient";'."\n". |
|
'// ]]>'."\n". |
|
'</script>'; |
} |
} |
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
|
|
Line 959 sub open {
|
Line 1045 sub open {
|
#} |
#} |
#ENDRESIZE |
#ENDRESIZE |
# } |
# } |
$returnval.=(<<ENDOPEN); |
$returnval=(<<ENDOPEN); |
|
// <![CDATA[ |
window.status='Opening LON-CAPA Remote Control'; |
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
self.name='loncapaclient'; |
self.name='loncapaclient'; |
|
// ]]> |
ENDOPEN |
ENDOPEN |
return '<script type="text/javascript">'.$returnval.'</script>'; |
return '<script type="text/javascript">'.$returnval.'</script>'; |
} |
} |
Line 1106 sub inlinemenu {
|
Line 1194 sub inlinemenu {
|
} |
} |
foreach my $item (sort(keys(%active))) { |
foreach my $item (sort(keys(%active))) { |
$output.=$inlineremote[$item]; |
$output.=$inlineremote[$item]; |
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]"); |
|
} |
} |
$output.='</table>'; |
$output.='</table>'; |
$output.='</fieldset>'; |
$output.='</fieldset>'; |
Line 1132 sub rawconfig {
|
Line 1219 sub rawconfig {
|
my $uname=$env{'user.name'}; |
my $uname=$env{'user.name'}; |
my $udom=$env{'user.domain'}; |
my $udom=$env{'user.domain'}; |
my $adv=$env{'user.adv'}; |
my $adv=$env{'user.adv'}; |
my $show_course=&show_course(); |
my $show_course=&Apache::loncommon::show_course(); |
my $author=$env{'user.author'}; |
my $author=$env{'user.author'}; |
my $crs=''; |
my $crs=''; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
Line 1226 sub rawconfig {
|
Line 1313 sub rawconfig {
|
} |
} |
} |
} |
} |
} |
|
} elsif ($pro eq 'tools') { |
|
my @tools = ('aboutme','blog','portfolio'); |
|
if (grep(/^\Q$prt\E$/,@tools)) { |
|
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$prt,undef,'tools')) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) { |
|
if (($prt eq 'reqcrsnsc') && ($show_course)) { |
|
next; |
|
} |
|
if (($prt eq 'reqcrsshc') && (!$show_course)) { |
|
next; |
|
} |
|
my $showreqcrs = &check_for_rcrs(); |
|
if (!$showreqcrs) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} |
|
$prt='any'; |
|
$output.=&secondlevel( |
|
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat); |
|
|
} |
} |
} |
} |
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |
Line 1239 sub rawconfig {
|
Line 1352 sub rawconfig {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub check_for_rcrs { |
|
my $showreqcrs = 0; |
|
my @reqtypes = ('official','unofficial','community'); |
|
foreach my $type (@reqtypes) { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
if (!$showreqcrs) { |
|
foreach my $type (@reqtypes) { |
|
if ($env{'environment.reqcrsotherdom.'.$type} ne '') { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
} |
|
return $showreqcrs; |
|
} |
|
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
Line 1247 sub close {
|
Line 1382 sub close {
|
my $menuname = &get_menu_name(); |
my $menuname = &get_menu_name(); |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
window.status='Accessing Remote Control'; |
window.status='Accessing Remote Control'; |
menu=window.open("/adm/rat/empty.html","$menuname", |
menu=window.open("/adm/rat/empty.html","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no"); |
"height=350,width=150,scrollbars=no,menubar=no"); |
Line 1256 menu.autologout=0;
|
Line 1392 menu.autologout=0;
|
window.status='Closing Remote Control'; |
window.status='Closing Remote Control'; |
menu.close(); |
menu.close(); |
window.status='Done.'; |
window.status='Done.'; |
|
// ]]> |
</script> |
</script> |
ENDCLOSE |
ENDCLOSE |
} |
} |
Line 1442 function set_bookmark() {
|
Line 1579 function set_bookmark() {
|
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0'); |
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0'); |
bmquery.document.write( |
bmquery.document.write( |
'$start_page_bookmark' |
'$start_page_bookmark' |
+"<center><form method='post'" |
+'<center><form method="post"' |
+" name='newlink' action='/adm/bookmarks' target='bmquery' " |
+' name="newlink" action="/adm/bookmarks" target="bmquery" ' |
+">\\n <table width=340 height=150 " |
+'> <table width="340" height="150" ' |
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input " |
+'bgcolor="ffffff" align="center"><tr><td>Link Name:<br /><input ' |
+"type='text' name='title' size=45 value='"+clienttitle+"' />" |
+'type="text" name="title" size="45" value="'+clienttitle+'" />' |
+"<br />Address:<br /><input type='text' name='address' size='45' " |
+'<br />Address:<br /><input type="text" name="address" size="45" ' |
+"value='"+clienthref+"' /><br /><center><input type='submit' " |
+'value="'+clienthref+'" /><br /><center><input type="submit" ' |
+"value='Save' /> <input type='button' value='Close (no save)' " |
+'value="Save" /> <input type="button" value="Close" ' |
+"onclick='javascript:window.close();' /><\\/center><\\/td>" |
+'onclick="javascript:window.close();" /></center></td>' |
+"<\\/tr><\\/table><\\/form><\\/center>" |
+'</tr></table></form></center>' |
+'$end_page_bookmark' ); |
+'$end_page_bookmark' ); |
bmquery.document.close(); |
bmquery.document.close(); |
} |
} |
Line 1527 sub hidden_button_check {
|
Line 1664 sub hidden_button_check {
|
sub roles_selector { |
sub roles_selector { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my $now = time; |
my $now = time; |
my (%courseroles,%seccount,%gotnosection); |
my (%courseroles,%seccount); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my $role_selector; |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
Line 1542 sub roles_selector {
|
Line 1679 sub roles_selector {
|
} |
} |
} |
} |
if ($is_cc) { |
if ($is_cc) { |
my %adv_roles = |
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); |
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1); |
|
foreach my $role (keys(%adv_roles)) { |
|
my ($urole,$usec) = split(/:/,$role); |
|
if (!$gotnosection{$urole}) { |
|
$seccount{$urole} ++; |
|
$gotnosection{$urole} = 1; |
|
} |
|
if (ref($courseroles{$urole}) eq 'ARRAY') { |
|
if ($usec ne '') { |
|
if (!grep(/^Q$usec\E$/,@{$courseroles{$urole}})) { |
|
push(@{$courseroles{$urole}},$usec); |
|
$seccount{$urole} ++; |
|
} |
|
} |
|
} else { |
|
@{$courseroles{$urole}} = (); |
|
if ($usec ne '') { |
|
$seccount{$urole} ++; |
|
push(@{$courseroles{$urole}},$usec); |
|
} |
|
} |
|
} |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); |
|
@{$courseroles{'st'}} = (); |
|
if (keys(%sections_count) > 0) { |
|
push(@{$courseroles{'st'}},keys(%sections_count)); |
|
} |
|
} else { |
} else { |
|
my %gotnosection; |
foreach my $item (keys(%env)) { |
foreach my $item (keys(%env)) { |
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
my $role = $1; |
my $role = $1; |
Line 1619 sub roles_selector {
|
Line 1730 sub roles_selector {
|
} |
} |
$role_selector .= '</select>'."\n". |
$role_selector .= '</select>'."\n". |
'<input type="hidden" name="destinationurl" value="'. |
'<input type="hidden" name="destinationurl" value="'. |
$ENV{'REQUEST_URI'}.'" />'."\n". |
&HTML::Entities::encode($ENV{'REQUEST_URI'},'"<>&').'" />'."\n". |
'<input type="hidden" name="gotorole" value="1" />'."\n". |
'<input type="hidden" name="gotorole" value="1" />'."\n". |
'<input type="hidden" name="selectrole" value="" />'."\n". |
'<input type="hidden" name="selectrole" value="" />'."\n". |
'<input type="hidden" name="switch" value="1" />'."\n". |
'<input type="hidden" name="switch" value="1" />'."\n". |
Line 1628 sub roles_selector {
|
Line 1739 sub roles_selector {
|
return $role_selector; |
return $role_selector; |
} |
} |
|
|
|
sub get_all_courseroles { |
|
my ($cdom,$cnum,$courseroles,$seccount) = @_; |
|
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) { |
|
return; |
|
} |
|
my ($result,$cached) = |
|
&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum); |
|
if (defined($cached)) { |
|
if (ref($result) eq 'HASH') { |
|
if ((ref($result->{'roles'}) eq 'HASH') && |
|
(ref($result->{'seccount'}) eq 'HASH')) { |
|
%{$courseroles} = %{$result->{'roles'}}; |
|
%{$seccount} = %{$result->{'seccount'}}; |
|
return; |
|
} |
|
} |
|
} |
|
my %gotnosection; |
|
my %adv_roles = |
|
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1); |
|
foreach my $role (keys(%adv_roles)) { |
|
my ($urole,$usec) = split(/:/,$role); |
|
if (!$gotnosection{$urole}) { |
|
$seccount->{$urole} ++; |
|
$gotnosection{$urole} = 1; |
|
} |
|
if (ref($courseroles->{$urole}) eq 'ARRAY') { |
|
if ($usec ne '') { |
|
if (!grep(/^\Q$usec\E$/,@{$courseroles->{$urole}})) { |
|
push(@{$courseroles->{$urole}},$usec); |
|
$seccount->{$urole} ++; |
|
} |
|
} |
|
} else { |
|
@{$courseroles->{$urole}} = (); |
|
if ($usec ne '') { |
|
$seccount->{$urole} ++; |
|
push(@{$courseroles->{$urole}},$usec); |
|
} |
|
} |
|
} |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']); |
|
@{$courseroles->{'st'}} = (); |
|
if (keys(%sections_count) > 0) { |
|
push(@{$courseroles->{'st'}},keys(%sections_count)); |
|
$seccount->{'st'} = scalar(keys(%sections_count)); |
|
} |
|
my $rolehash = { |
|
'roles' => $courseroles, |
|
'seccount' => $seccount, |
|
}; |
|
&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash); |
|
return; |
|
} |
|
|
sub jump_to_role { |
sub jump_to_role { |
my ($cdom,$cnum,$seccount,$courseroles) = @_; |
my ($cdom,$cnum,$seccount,$courseroles) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
Line 1659 sub jump_to_role {
|
Line 1825 sub jump_to_role {
|
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n"; |
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n"; |
} |
} |
} |
} |
my $output = <<"END"; |
return <<"END"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
//<![CDATA[ |
function adhocRole(roleitem) { |
function adhocRole(roleitem) { |
$js |
$js |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
Line 1731 function retrieveIndex(item) {
|
Line 1898 function retrieveIndex(item) {
|
} |
} |
return -1; |
return -1; |
} |
} |
|
// ]]> |
|
|
</script> |
</script> |
END |
END |
return $output; |
|
} |
} |
|
|
|
|