version 1.219, 2009/04/14 23:52:07
|
version 1.224, 2009/05/18 17:30:34
|
Line 170 $start_page
|
Line 170 $start_page
|
$swinfo |
$swinfo |
</script> |
</script> |
$navwindow |
$navwindow |
<h1>$msg</h1> |
<p>$msg</p> |
$end_page |
$end_page |
ENDREDIR |
ENDREDIR |
return; |
return; |
Line 444 ENDENTERKEY
|
Line 444 ENDENTERKEY
|
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
{"request.course.id" => $cdom.'_'.$cnum}); |
{"request.course.id" => $cdom.'_'.$cnum}); |
$furl='/adm/roles?tryagain=1'; |
$furl='/adm/roles?tryagain=1'; |
$msg= |
$msg='<p><span class="LC_error">' |
'<h1><span class="LC_error">'. |
.&mt('Could not initialize [_1] at this time.', |
&mt('Could not initialize [_1] at this time.', |
$env{'course.'.$cdom.'_'.$cnum.'.description'}) |
$env{'course.'.$cdom.'_'.$cnum.'.description'}). |
.'</span></p>' |
'</span></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
.'<p>'.&mt('Please try again.').'</p>' |
|
.'<p>'.$ferr.'</p>'; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
Line 533 ENDENTERKEY
|
Line 534 ENDENTERKEY
|
$redirect_url); |
$redirect_url); |
return OK; |
return OK; |
} |
} |
|
if ($role eq 'sc') { |
|
my $redirect_url = '/adm/grades?command=scantronupload'; |
|
&redirect_user($r,&mt('Loading Data Upload Page'), |
|
$redirect_url); |
|
return OK; |
|
} |
} |
} |
} |
} |
} |
} |
Line 546 ENDENTERKEY
|
Line 553 ENDENTERKEY
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $brcrum =[{href=>"/admm/roles",text=>"User Roles"}]; |
my $crumbtext = 'User Roles'; |
|
my $pagetitle = 'My Roles'; |
|
my $recent = &mt('Recent Roles'); |
|
my $show_course=&Apache::loncommon::show_course(); |
|
if ($show_course) { |
|
$crumbtext = 'Courses'; |
|
$pagetitle = 'My Courses'; |
|
$recent = &mt('Recent Courses'); |
|
} |
|
my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}]; |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $start_page=&Apache::loncommon::start_page('My Roles',undef,{bread_crumbs=>$brcrum}); |
my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum}); |
my $standby=&mt('Role selected. Please stand by.'); |
my $standby=&mt('Role selected. Please stand by.'); |
$standby=~s/\n/\\n/g; |
$standby=~s/\n/\\n/g; |
my $noscript='<span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />'; |
my $noscript='<span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />'; |
Line 661 ENDHEADER
|
Line 677 ENDHEADER
|
foreach $envkey (sort keys %env) { |
foreach $envkey (sort keys %env) { |
my $button = 1; |
my $button = 1; |
my $switchserver=''; |
my $switchserver=''; |
my $roletext; |
my ($roletext,$roletext_end); |
my $sortkey; |
my $sortkey; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend); |
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend); |
Line 805 ENDHEADER
|
Line 821 ENDHEADER
|
$twhere=&mt('system wide'); |
$twhere=&mt('system wide'); |
$sortkey=$role.$twhere; |
$sortkey=$role.$twhere; |
} |
} |
$roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit); |
($roletext,$roletext_end) = |
$roletext{$envkey}=$roletext; |
&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain, |
|
$advanced,$tremark,$tbg,$trole,$twhere,$tpstart, |
|
$tpend,$nochoose,$button,$switchserver,$reinit); |
|
$roletext{$envkey}=[$roletext,$roletext_end]; |
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;} |
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;} |
$sortrole{$sortkey}=$envkey; |
$sortrole{$sortkey}=$envkey; |
$roleclass{$envkey}=$ttype; |
$roleclass{$envkey}=$ttype; |
Line 865 ENDHEADER
|
Line 884 ENDHEADER
|
return OK; |
return OK; |
} |
} |
# ----------------------------------------------------------------------- Table |
# ----------------------------------------------------------------------- Table |
unless ((!&Apache::lonmenu::show_course()) || ($nochoose) || ($countactive==1)) { |
unless ((!&Apache::loncommon::show_course()) || ($nochoose) || ($countactive==1)) { |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
} |
} |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
Line 874 ENDHEADER
|
Line 893 ENDHEADER
|
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'}); |
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'}); |
my $output=''; |
my $output=''; |
foreach (sort(keys(%recent_roles))) { |
foreach (sort(keys(%recent_roles))) { |
if (defined($roletext{'user.role.'.$_})) { |
if (ref($roletext{'user.role.'.$_}) eq 'ARRAY') { |
$output.=$roletext{'user.role.'.$_}; |
$output.= &Apache::loncommon::start_data_table_row(). |
|
$roletext{'user.role.'.$_}->[0]. |
|
&Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::continue_data_table_row(). |
|
$roletext{'user.role.'.$_}->[1]. |
|
&Apache::loncommon::end_data_table_row(); |
if ($_ =~ m-dc\./($match_domain)/- |
if ($_ =~ m-dc\./($match_domain)/- |
&& $dcroles{$1}) { |
&& $dcroles{$1}) { |
$output .= &adhoc_roles_row($1,'recent'); |
$output .= &adhoc_roles_row($1,'recent'); |
Line 889 ENDHEADER
|
Line 913 ENDHEADER
|
if ($output) { |
if ($output) { |
$r->print(&Apache::loncommon::start_data_table_empty_row() |
$r->print(&Apache::loncommon::start_data_table_empty_row() |
.'<td align="center" colspan="5">' |
.'<td align="center" colspan="5">' |
.&mt('Recent Roles') |
.$recent |
.'</td>' |
.'</td>' |
.&Apache::loncommon::end_data_table_empty_row() |
.&Apache::loncommon::end_data_table_empty_row() |
); |
); |
Line 1047 sub print_rolerows {
|
Line 1071 sub print_rolerows {
|
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) { |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) { |
if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) { |
if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) { |
if (ref($roletext) eq 'HASH') { |
if (ref($roletext) eq 'HASH') { |
$output.=$roletext->{$sortrole->{$which}}; |
if (ref($roletext->{$sortrole->{$which}}) eq 'ARRAY') { |
|
$output.= &Apache::loncommon::start_data_table_row(). |
|
$roletext->{$sortrole->{$which}}->[0]. |
|
&Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::continue_data_table_row(). |
|
$roletext->{$sortrole->{$which}}->[1]. |
|
&Apache::loncommon::end_data_table_row(); |
|
} |
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) { |
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) { |
if (ref($dcroles) eq 'HASH') { |
if (ref($dcroles) eq 'HASH') { |
if ($dcroles->{$1}) { |
if ($dcroles->{$1}) { |
Line 1195 sub privileges_info {
|
Line 1226 sub privileges_info {
|
|
|
sub build_roletext { |
sub build_roletext { |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit) = @_; |
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit) = @_; |
my $roletext=&Apache::loncommon::start_data_table_row(); |
my ($roletext,$roletext_end); |
my $is_dc=($trolecode =~ m/^dc\./); |
my $is_dc=($trolecode =~ m/^dc\./); |
my $rowspan=($is_dc) ? '' |
my $rowspan=($is_dc) ? '' |
: ' rowspan="2" '; |
: ' rowspan="2" '; |
Line 1239 sub build_roletext {
|
Line 1270 sub build_roletext {
|
$roletext.= |
$roletext.= |
'<td'.$rowspan.' class="'.$tbg.'">'. |
'<td'.$rowspan.' class="'.$tbg.'">'. |
'<input name="'.$buttonname.'" type="button" value="'. |
'<input name="'.$buttonname.'" type="button" value="'. |
&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''. |
&mt('Re-Select').'" onClick="javascript:enterrole(this.form,\''. |
$trolecode."','".$buttonname.'\');" /></td>'; |
$trolecode."','".$buttonname.'\');" /></td>'; |
} |
} |
} |
} |
Line 1250 sub build_roletext {
|
Line 1281 sub build_roletext {
|
$roletext.='<td>'.$trole.'</td>' |
$roletext.='<td>'.$trole.'</td>' |
.'<td>'.$twhere.'</td>' |
.'<td>'.$twhere.'</td>' |
.'<td>'.$tpstart.'</td>' |
.'<td>'.$tpstart.'</td>' |
.'<td>'.$tpend.'</td>' |
.'<td>'.$tpend.'</td>'; |
.&Apache::loncommon::end_data_table_row(); |
|
if (!$is_dc) { |
if (!$is_dc) { |
$roletext.=&Apache::loncommon::continue_data_table_row() |
$roletext_end = '<td colspan="4">'. |
.'<td colspan="4">' |
$tremark.' '. |
.$tremark.' ' |
'</td>'; |
.'</td>' |
|
.&Apache::loncommon::end_data_table_row(); |
|
} |
} |
return $roletext; |
return ($roletext,$roletext_end); |
} |
} |
|
|
sub check_needs_switchserver { |
sub check_needs_switchserver { |
Line 1451 sub coauthorlink {
|
Line 1479 sub coauthorlink {
|
|
|
sub display_cc_role { |
sub display_cc_role { |
my $rolekey = shift; |
my $rolekey = shift; |
my $roletext; |
my ($roletext,$roletext_end); |
my $advanced = $env{'user.adv'}; |
my $advanced = $env{'user.adv'}; |
my $tryagain = $env{'form.tryagain'}; |
my $tryagain = $env{'form.tryagain'}; |
unless ($rolekey =~/^error\:/) { |
unless ($rolekey =~/^error\:/) { |
Line 1474 sub display_cc_role {
|
Line 1502 sub display_cc_role {
|
} |
} |
my $trole = &Apache::lonnet::plaintext('cc',$ttype); |
my $trole = &Apache::lonnet::plaintext('cc',$ttype); |
$twhere.="<br />".&mt('Domain').":".$1; |
$twhere.="<br />".&mt('Domain').":".$1; |
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
($roletext,$roletext_end) = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
} |
} |
} |
} |
return ($roletext); |
return ($roletext,$roletext_end); |
} |
} |
|
|
sub adhoc_roles_row { |
sub adhoc_roles_row { |