version 1.75, 2014/01/05 10:55:35
|
version 1.77, 2014/04/09 10:50:07
|
Line 1549 sub print_request_form {
|
Line 1549 sub print_request_form {
|
if ($result eq 'created') { |
if ($result eq 'created') { |
my $role = 'au'; |
my $role = 'au'; |
my $spec = "$role./$env{'form.showdom'}/"; |
my $spec = "$role./$env{'form.showdom'}/"; |
push(@links,&mt('Enter your authoring space with role: [_1]', |
push(@links,&mt('Enter your Authoring Space with role: [_1]', |
'<a href="/adm/roles?selectrole=1&'.$spec.'=1">'. |
'<a href="/adm/roles?selectrole=1&'.$spec.'=1">'. |
&Apache::lonnet::plaintext($role).'</a>')); |
&Apache::lonnet::plaintext($role).'</a>')); |
} |
} |
Line 1624 sub print_request_form {
|
Line 1624 sub print_request_form {
|
|
|
sub print_author_prompt { |
sub print_author_prompt { |
my ($r,$action,$cnum,$showdom,$crstype,$storeresult) = @_; |
my ($r,$action,$cnum,$showdom,$crstype,$storeresult) = @_; |
$r->print('<h3>'.&mt('Access to authoring space').'</h3>'. |
$r->print('<h3>'.&mt('Access to Authoring Space').'</h3>'. |
'<p>'. |
'<p>'. |
&mt('Although assessment items can be created directly inside a course, such items only use part of the assessment capabilities of LON-CAPA.'). |
&mt('Although assessment items can be created directly inside a course, such items only use part of the assessment capabilities of LON-CAPA.'). |
'<br />'. |
'<br />'. |
&mt('By contrast, items created in authoring space, then imported into a course, can use all of the features of the assessment engine.').'</p>'. |
&mt('By contrast, items created in Authoring Space, then imported into a course, can use all of the features of the assessment engine.').'</p>'. |
'<p>'.&mt('Request authoring space access now?'). |
'<p>'.&mt('Request Authoring Space access now?'). |
'<span class="LC_nobreak"> '. |
'<span class="LC_nobreak"> '. |
'<label><input type="radio" name="requestauthor" value="1" />'.&mt('Yes').'</label>'. |
'<label><input type="radio" name="requestauthor" value="1" />'.&mt('Yes').'</label>'. |
(' 'x2). |
(' 'x2). |
Line 3800 sub process_request {
|
Line 3800 sub process_request {
|
$env{'user.domain'},$fullname,$env{'form.cdescr'}); |
$env{'user.domain'},$fullname,$env{'form.cdescr'}); |
if ((ref($postprocess) eq 'HASH') && |
if ((ref($postprocess) eq 'HASH') && |
((ref($postprocess->{'queuedmsg'}) eq 'HASH') || ($postprocess->{'queuedweb'}))) { |
((ref($postprocess->{'queuedmsg'}) eq 'HASH') || ($postprocess->{'queuedweb'}))) { |
my $recipient = $env{'user.name'}.':'.$env{'user.domain'}; |
¬ification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess); |
$output .= ¬ification_information($disposition,$recipient,$dom,$cnum,$now,undef,$postprocess); |
|
} |
} |
} |
} |
} |
} |
Line 3994 sub notification_information {
|
Line 3993 sub notification_information {
|
if (scalar(@{$addmsg}) > 0) { |
if (scalar(@{$addmsg}) > 0) { |
&Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,undef, |
&Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,undef, |
$env{'form.cdescr'},$now, |
$env{'form.cdescr'},$now, |
'queuedreq',$sender); |
'queuedcrsreq',$sender); |
} |
} |
} |
} |
} |
} |
Line 4043 sub notification_information {
|
Line 4042 sub notification_information {
|
} |
} |
} |
} |
if (scalar(@{$addmsg}) > 0) { |
if (scalar(@{$addmsg}) > 0) { |
my $type = 'createdreq'; |
my $type = 'createdcrsreq'; |
if ($code) { |
if ($code) { |
$type = 'uniquecode'; |
$type = 'uniquecode'; |
} |
} |