--- loncom/auth/lonroles.pm 2003/09/17 18:16:39 1.71
+++ loncom/auth/lonroles.pm 2003/12/30 22:45:59 1.81
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.71 2003/09/17 18:16:39 albertel Exp $
+# $Id: lonroles.pm,v 1.81 2003/12/30 22:45:59 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,11 +51,12 @@ use Apache::File();
use Apache::lonmenu;
use Apache::loncommon;
use Apache::lonannounce;
+use Apache::lonlocal;
sub redirect_user {
my ($r,$title,$url,$msg) = @_;
$msg = $title if (! defined($msg));
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);
$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig();
@@ -76,6 +77,17 @@ ENDREDIR
return;
}
+sub authorbombs {
+ my ($uname,$udom)=@_;
+ my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
+ foreach (keys %bombs) {
+ if ($_=~/^$udom\/$uname\//) {
+ return '';
+ }
+ }
+ return '';
+}
+
sub handler {
my $r = shift;
@@ -130,7 +142,7 @@ sub handler {
# student attempts to register a new key
} else {
# print form to enter a new key
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);
$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig();
@@ -164,7 +176,7 @@ ENDENTERKEY
'request.role.adv' => $tadv,
'request.role.domain' => $cdom,
'request.course.sec' => $csec);
- my $msg='Entering course ...';
+ my $msg=&mt('Entering course ...');
if (($cnum) && ($role ne 'ca')) {
my ($furl,$ferr)=
@@ -183,7 +195,9 @@ ENDENTERKEY
"request.course.id" => $cdom.'_'.$cnum);
$furl='/adm/roles?tryagain=1';
$msg=
- '
Could not initialize course at this time.
Please try again.
'.$ferr;
+ ''.
+ &mt('Could not initialize course at this time.').
+ '
'.&mt('Please try again.').'
'.$ferr;
}
# Check to see if the user is a CC entering a course
@@ -199,7 +213,7 @@ ENDENTERKEY
}
#
# Send the user to the course they selected
- &redirect_user($r,'Entering Course',
+ &redirect_user($r,&mt('Entering Course'),
$furl,$msg);
return OK;
}
@@ -215,7 +229,7 @@ ENDENTERKEY
$redirect_url .= $1;
}
$redirect_url .= '/';
- &redirect_user($r,'Entering Construction Space',
+ &redirect_user($r,&mt('Entering Construction Space'),
$redirect_url);
return OK;
}
@@ -227,7 +241,7 @@ ENDENTERKEY
# =============================================================== No Roles Init
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);
$r->send_http_header;
return OK if $r->header_only;
@@ -235,7 +249,7 @@ ENDENTERKEY
my $swinfo=&Apache::lonmenu::rawconfig();
my $bodytag=&Apache::loncommon::bodytag('User Roles');
my $helptag=&Apache::loncommon::help_open_topic
- ("General_Intro","Click here for help");
+ ("General_Intro",&mt("Click here for help"));
$r->print(<
@@ -274,34 +288,35 @@ ENDHEADER
} else {
if ($ENV{'user.error.msg'}) {
$r->print(
- 'You need to choose another user role or '.
- 'enter a specific course for this function
');
+ ''.
+ &mt('You need to choose another user role or enter a specific course for this function').'
');
}
}
# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {
if ($advanced) {
- $r->print("Assigned User Roles
\n");
+ $r->print("".&mt('Assigned User Roles')."
\n");
} else {
- $r->print("Sorry ...
\nThis resource might be part of");
+ $r->print("".&mt('Sorry ...')."
\n".
+ &mt('This resource might be part of'));
if ($ENV{'request.course.id'}) {
- $r->print(' another');
+ $r->print(&mt(' another'));
} else {
- $r->print(' a certain');
+ $r->print(&mt(' a certain'));
}
- $r->print(' course.