--- loncom/interface/loncoursequeueadmin.pm	2012/08/14 15:45:06	1.30
+++ loncom/interface/loncoursequeueadmin.pm	2014/01/08 17:18:11	1.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests
 #
-# $Id: loncoursequeueadmin.pm,v 1.30 2012/08/14 15:45:06 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.42 2014/01/08 17:18:11 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,6 +70,14 @@ described at http://www.lon-capa.org.
 
 =item process_official_reqs()
 
+=item is_active_author()
+
+=item author_prompt()
+
+=item reqauthor_check()
+
+=item process_reqauthor()
+
 =back
 
 =cut
@@ -101,16 +109,16 @@ sub send_selfserve_notification {
     } elsif ($context eq 'domainmanagers') {
         $rawsubj = 'Course/Community requests reviewed';
         push(@rawmsg,{
-                      mt  => 'Course/Community creation requests in the following domain: [_1] have been reviewed.',
+                      mt  => 'Course/Community creation requests in the following domain: "[_1]" have been reviewed.',
                       args => ["\n$contextdesc"],
                      });
         if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});
         }
     } elsif ($context eq 'authormanagers') {
-        $rawsubj = 'Authoring space requests reviewed';
+        $rawsubj = 'Authoring Space requests reviewed';
         push(@rawmsg,{
-                      mt  => 'Authoring requests in the following domain: [_1] have been reviewed.',
+                      mt  => 'Authoring requests in the following domain: "[_1]" have been reviewed.',
                       args => ["\n$contextdesc"],
                      });
         if (ref($textstr) eq 'ARRAY') {
@@ -170,14 +178,14 @@ sub send_selfserve_notification {
                      },
                      {
                       mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Course and community creation -> Approve or reject requests[_3]to display a list of pending requests, which you can either approve or reject.',
-                      args => ["\n","\n\n  ","\n\n"],
+                      args => ["\n","\n\n","\n\n"],
                      });
     } elsif ($context eq 'selfenrollreq') {
         $rawsubj = 'Self-enrollment request';
         if ($crstype eq 'community') {
-            $msgtxt = 'Enrollment in the following community: [_1] was requested by [_2] on [_3].'
+            $msgtxt = 'Enrollment in the following community: [_1]was requested by [_2] on [_3].'
         } else {
-            $msgtxt = 'Enrollment in the following course: [_1] was requested by [_2] on [_3].'
+            $msgtxt = 'Enrollment in the following course: [_1]was requested by [_2] on [_3].'
         }
         push(@rawmsg,{
                       mt  => $msgtxt,
@@ -195,20 +203,19 @@ sub send_selfserve_notification {
                       args => ["  \n\n","\n"],
                      });
     } elsif ($context eq 'authorreq') {
-        $rawsubj = 'Authoring space request to review';
-        $msgtxt = 'Assignment of an author role in the [_1] domain[_2] was requested by [_3] on [_4].';
+        $rawsubj = 'Authoring Space request to review';
+        $msgtxt = 'Assignment of an author role in the [_1] domain[_2]was requested by [_3] on [_4].';
         push(@rawmsg,{
                       mt  => $msgtxt,
                       args => [$contextdesc,"\n",$textstr,$timestamp],
                      },
                      {
-                      mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users -> Authoring space reqests[_3]to display a list of pending requests, which you can either approve or reject.',
+                      mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users -> Authoring Space requests[_3]to display a list of pending requests, which you can either approve or reject.',
                       args => ["\n","\n\n  ","\n\n"],
                      });
-
     } elsif ($context eq 'requestauthor') {
-        $rawsubj = 'Authoring space request';
-        $msgtxt = 'Your request for an authoring space requested on [_1]has been reviewed by a Domain Coordinator.';
+        $rawsubj = 'Authoring Space request';
+        $msgtxt = 'Your request for an Authoring Space requested on [_1]has been reviewed by a Domain Coordinator.';
         push(@rawmsg,{
                       mt  => $msgtxt,
                       args => [$timestamp."\n"],
@@ -216,6 +223,21 @@ sub send_selfserve_notification {
         if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});
         }
+    } elsif ($context eq 'uniquecode') {
+        $rawsubj = 'Course Identifier';
+        if (ref($textstr) eq 'ARRAY') {
+            push(@rawmsg,@{$textstr});
+        }
+    } elsif ($context eq 'queuedcrsreq') {
+        $rawsubj = 'Course Request Queued';
+        if (ref($textstr) eq 'ARRAY') {
+            push(@rawmsg,@{$textstr});
+        }
+    } elsif ($context eq 'createdcrsreq') {
+        $rawsubj = 'Course Creation Information';
+        if (ref($textstr) eq 'ARRAY') {
+            push(@rawmsg,@{$textstr});
+        }
     }
     my @to_notify = split(/,/,$notifylist);
     my $numsent = 0;
@@ -362,7 +384,7 @@ sub display_queued_requests {
                            '<p>'.&mt('Requests are validated against institutional data to confirm that the requestor is an instructor of record.').'<br />'.
                            &mt('Validation is attempted when the request is submitted.').' '.&mt('If unvalidated, the request will be held in a queue.').' '.&mt('Validation of pending requests is automatically repeated daily.').'</p>';
             } elsif ($context eq 'requestauthor') {
-                $output .= '<h3>'.&mt('Requests for authoring space queued pending approval by a Domain Coordinator').'</h3>';
+                $output .= '<h3>'.&mt('Requests for Authoring Space queued pending approval by a Domain Coordinator').'</h3>';
             } else {
                 $output .= '<h3>'.&mt('Course/Community requests queued pending approval by a Domain Coordinator').'</h3>';
             } 
@@ -375,7 +397,7 @@ sub display_queued_requests {
             } elsif ($context eq 'pending') {
                 $output .= &mt('There are currently no requests for official courses awaiting validation.');
             } elsif ($context eq 'requestauthor') {
-                $output .= &mt('There are currently no requests for authoring space awaiting approval.');
+                $output .= &mt('There are currently no requests for Authoring Space awaiting approval.');
             } elsif ($context eq 'domain') {
                 $output .= &mt('There are currently no course or community requests awaiting approval.');
             }
@@ -427,6 +449,7 @@ sub build_queue_display {
                         official   => 'Official course',
                         unofficial => 'Unofficial course',
                         community  => 'Community',
+                        textbook   => 'Textbook course',
                     );
         $output .= '<th>'.&mt('Type').'</th>'.
                    '<th>'.&mt('Date requested').'</th>'.
@@ -525,15 +548,15 @@ sub update_request_queue {
         @processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
         @rejections,@rejectionerrors,@nopermissions,%courseroles,@toremove,
         %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,
-        $firsturl);
+        $firsturl,$uniquecode,%codes);
     my $count=0;
     while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {
-        if (@course[0] =~ /^\d+:.*/) {
-            push(@approvals,@course[0]);
-        } elsif (@course[0] =~ /^later:.*/) {
+        if ($course[0] =~ /^\d+:.*/) {
+            push(@approvals,$course[0]);
+        } elsif ($course[0] =~ /^later:.*/) {
             #decide later
         } else {
-            push(@rejections,@course[0]);
+            push(@rejections,$course[0]);
         }
         $count+=1;
     }
@@ -576,14 +599,14 @@ sub update_request_queue {
         my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
         $firsturl = &course_portal_url($domconfiguser,$cdom);
         $approvedmsg = [{
-                            mt => 'Your request for authoring space has been approved.',
+                            mt => 'Your request for Authoring Space has been approved.',
                         },
                         {
                             mt   => 'Visit [_1] to log-in and select your author role',
                             args => [$firsturl],
                         }];
         $rejectedmsg =  [{
-                            mt => 'Your request for authoring space has not been approved.',
+                            mt => 'Your request for Authoring Space has not been approved.',
                         }];
         $domdesc = &Apache::lonnet::domain($cdom);
     } else {
@@ -775,10 +798,20 @@ sub update_request_queue {
                                                      $ownerdom,$ownername);
                         if ((ref($history{'details'}) eq 'HASH') && 
                             ($history{'disposition'} eq $queue)) {
-                            my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);
-                            my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,
-                                                      \$newusermsg,\$addresult,\$enrollcount,
-                                                      \$response,\$keysmsg,\%domdefs,$longroles);
+                            my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code,%customitems);
+                            my $fullname = '';
+                            my $inprocess = &Apache::lonnet::auto_crsreq_update($cdom,$cnum,$crstype,'process',$ownername,
+                                                                                $ownerdom,$fullname,$coursedesc);
+                            if (ref($inprocess) eq 'HASH') {
+                                foreach my $key (keys(%{$inprocess})) {
+                                    if (exists($history{'details'}{$key})) { 
+                                        $customitems{$key} = $history{'details'}{$key};
+                                    }
+                                }
+                            }
+                            my ($result,$postprocess) = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,
+                                                        \$newusermsg,\$addresult,\$enrollcount,
+                                                        \$response,\$keysmsg,\%domdefs,$longroles,\$code,\%customitems);
                             if ($result eq 'created') {
                                 if ($crstype eq 'community') {
                                     $approvedmsg = $approvalmsg{'community'};
@@ -790,6 +823,25 @@ sub update_request_queue {
                                     if (ref($approvedmsg->[1]) eq 'HASH') {
                                         $approvedmsg->[1]->{'args'} = [$firsturl];
                                     }
+                                    if ($code) {
+                                        push(@{$approvedmsg},
+                                            {
+                                              mt   => 'Students can automatically select your course by entering this code: [_1]',
+                                              args => [$code],
+                                            });
+                                        $codes{$cnum} = $code;
+                                    }
+                                    if (ref($postprocess) eq 'HASH') {
+                                        if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {
+                                            foreach my $item (@{$postprocess->{'createdmsg'}}) {
+                                                if (ref($item) eq 'HASH') {
+                                                    if ($item->{'mt'} ne '') {
+                                                        push(@{$approvedmsg},$item);
+                                                    }
+                                                }
+                                            }
+                                        }
+                                    }
                                 }
                                 push(@completed,$cnum);
                                 
@@ -998,7 +1050,7 @@ sub update_request_queue {
                                                  $approvedlist,$rejectedlist,$crstype);
                 }
             } elsif ($context eq 'requestauthor') {
-                $chgmsg = "'Action was taken on the following authoring space requests by [_1].',$namelink";
+                $chgmsg = "'Action was taken on the following Authoring Space requests by [_1].',$namelink";
                 if (@completed) {
                     $approvedlist = join("\n",@completed);
                     $output .= '<p>'.&mt('The following requests were approved:').'<ul>';
@@ -1039,6 +1091,9 @@ sub update_request_queue {
                         }
                         my $syllabuslink =
                             &Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);
+                        if ($codes{$cnum}) {
+                            $syllabuslink .= &mt('Unique code: [_1]',$codes{$cnum});
+                        }
                         $output .= '<li>'.$syllabuslink.'</li>';
                     }
                     $output .= '</ul></p>';
@@ -1073,7 +1128,7 @@ sub update_request_queue {
             }
             $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {
-            $output .= '<p>'.&mt('Authoring space requests from the following users were deleted because one already exists:').'<ul>';
+            $output .= '<p>'.&mt('Authoring Space requests from the following users were deleted because one already exists:').'<ul>';
             foreach my $uname (@existing) {
                 my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
@@ -1126,7 +1181,7 @@ sub update_request_queue {
             }
             $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {
-            $output .= '<p>'.&mt('The following authoring space requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>';
+            $output .= '<p>'.&mt('The following Authoring Space requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>';
             foreach my $uname (@invalidusers) {
                 my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
@@ -1158,7 +1213,7 @@ sub update_request_queue {
             }
             $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {
-            $output .= '<p>'.&mt('The following requests could not be processed because the requestor does not have rights to request an authoring space:').'<ul>';
+            $output .= '<p>'.&mt('The following requests could not be processed because the requestor does not have rights to request an Authoring Space:').'<ul>';
             foreach my $uname (@nopermissions) {
                 my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
@@ -1248,7 +1303,7 @@ sub update_request_queue {
             }
             $output .= '</ul></p>';
         } else {
-            $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'<ul>';
+            $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>';
             foreach my $cnum (@warn_dels) {
                 my $showcourse;
                 if (ref($requesthash{$cnum.'_'.$queue})) {
@@ -1300,13 +1355,22 @@ sub get_student_counts {
 
 sub course_creation {
     my ($dom,$cnum,$context,$details,$logmsg,$newusermsg,$addresult,$enrollcount,$output,
-        $keysmsg,$domdefs,$longroles) =  @_;
+        $keysmsg,$domdefs,$longroles,$coderef,$customhash) =  @_;
     unless ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH') && 
             (ref($longroles) eq 'HASH')) {
         return 'error: Invalid request';
     }
     my ($result,$ownername,$ownerdom);
     my $crstype = $details->{'crstype'};
+    my $coursedesc = $details->{'cdescr'};
+    my %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],$dom);
+    if (ref($domconfig{'requestcourses'}) eq 'HASH') {
+        if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
+            if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {
+                $details->{'uniquecode'} = 1;
+            }
+        }
+    }
     if ($context eq 'domain') {
         $ownername = $details->{'owner'};
         $ownerdom  = $details->{'domain'};
@@ -1314,6 +1378,7 @@ sub course_creation {
         $ownername = $env{'user.name'};
         $ownerdom  = $env{'user.domain'};
     }
+    my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);
     my $owneremail;
     my %emails = &Apache::loncommon::getemails($ownername,$ownerdom);
     foreach my $email ('permanentemail','critnotification','notification') {
@@ -1323,19 +1388,26 @@ sub course_creation {
     my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);
     my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',
                   \%reqdetails,$longroles,$logmsg,$newusermsg,$addresult,
-                  $enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype);
+                  $enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype,$coderef);
+    my $postprocess;
     if ($cid eq "/$dom/$cnum") {
         $result = 'created';
+        my $code;
+        if (ref($coderef)) {
+            $code = $$coderef;
+        }
+        $postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,
+                                                           $ownerdom,$fullname,$coursedesc,$code,$customhash);
     } else {
         $result = 'error: '.$cid;
     }
-    return $result;
+    return ($result,$postprocess);
 }
 
 sub build_batchcreatehash {
     my ($dom,$context,$details,$owneremail,$domdefs) = @_;
     my %batchhash;
-    my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};
+    my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users uniquecode};
     if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
         my $emailenc = &escape($owneremail);
         my $owner = $details->{'owner'}.':'.$details->{'domain'};
@@ -1344,6 +1416,9 @@ sub build_batchcreatehash {
         }
         $batchhash{'title'} = $details->{'cdescr'};
         $batchhash{'coursecode'} = $details->{'instcode'};
+        if ($domdefs->{'officialcredits'} || $domdefs->{'unofficialcredits'}) {
+            $batchhash{'defaultcredits'} = $details->{'defaultcredits'};
+        }
         $batchhash{'emailenc'} = $emailenc;
         $batchhash{'adds'} = $details->{'autoadds'};
         $batchhash{'drops'} = $details->{'autodrops'};
@@ -1352,6 +1427,12 @@ sub build_batchcreatehash {
         if ($details->{'crstype'} eq 'community') {
             $batchhash{'crstype'} = 'Community';
         } else {
+            if ($details->{'crstype'} eq 'textbook') {
+                if ($details->{'clonecrs'} && $details->{'clonedom'}) {
+                    my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});
+                    $batchhash{'textbook'} = $clonedfrom{'description'};
+                }
+            }
             $batchhash{'crstype'} = 'Course';
         }
         my ($owner_firstname,$owner_lastname);
@@ -1462,7 +1543,7 @@ sub get_processtype {
         } else {
             my %alltasks;
             if (($isadv) && ($settings{'_LC_adv'} ne '')) {
-                $val = $settings{$crstype}{'_LC_adv'};
+                $val = $settings{'_LC_adv'};
                 @{$inststatuses} = ('_LC_adv_');
             } else {
                 if ($userenv{'inststatus'} ne '') {
@@ -1548,7 +1629,7 @@ sub queued_selfenrollment {
     }
     if (keys(%reqs_by_date)) {
         unless ($notitle) {
-            $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
+            $output .= '<br /><b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
         }
         $output .= &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().
@@ -1688,8 +1769,21 @@ sub process_official_reqs {
                 }
                 $reqstatus = $disposition;
                 if ($disposition eq 'process') {
-                    my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);
-                    my $result = &course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);
+                    my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);
+                    my %customitems;
+                    my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);
+                    my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$ownername,
+                                                                        $ownerdom,$fullname,$cdescr);
+                    if (ref($inprocess) eq 'HASH') {
+                        foreach my $key (keys(%{$inprocess})) {
+                            if (exists($history{'details'}{$key})) {
+                                $customitems{$key} = $history{'details'}{$key};
+                            }
+                        }
+                    }
+                    my ($result,$postprocess) = 
+                        &course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,
+                                         \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,\$code,\%customitems);
                     if ($result eq 'created') {
                         $disposition = 'created';
                         $reqstatus = 'created';
@@ -1713,6 +1807,17 @@ sub process_official_reqs {
                                     mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.'
                                  }];
                             my $sender = $dcname.':'.$dcdom;
+                            if (ref($postprocess) eq 'HASH') {
+                                if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {
+                                    foreach my $item (@{$postprocess->{'createdmsg'}}) {
+                                        if (ref($item) eq 'HASH') {
+                                             if ($item->{'mt'} ne '') {
+                                                 push(@{$approvedmsg},$item);
+                                             }
+                                        }
+                                    }
+                                }
+                            }
                             &send_selfserve_notification($owner,$approvedmsg,
                                                          $cid,$cdescr,$now,
                                                          $beneficiary,$sender,
@@ -1781,6 +1886,142 @@ sub process_official_reqs {
         }
     }
     return $output;
+}
+
+sub is_active_author {
+    if ($env{'user.role.au./'.$env{'user.domain'}.'/'} =~ /^(\d*)\.(\d*)$/) {
+        if ((!$1 || $1 < time) &&
+            (!$2 || $2 > time)) {
+            return 1;
+        }
+    }
+}
+
+sub author_prompt {
+    my ($is_active_author,$offer_author);
+    if ($env{'environment.canrequest.author'}) {
+        unless (&is_active_author()) {
+            unless (&reqauthor_check() =~ /^approval:\d+$/) {
+                $offer_author = 1;
+            }
+        }
+    }
+    return $offer_author;
+}
+
+sub reqauthor_check {
+    my $queued = $env{'environment.requestauthorqueued'};
+    my %reqauthor = &Apache::lonnet::get('requestauthor',['author_status','author'],
+                                         $env{'user.domain'},$env{'user.name'});
+    my $reqstatus = $reqauthor{'author_status'};
+    if (($reqstatus eq '' && $queued ne '') ||
+        ($env{'environment.requestauthorqueued'} !~ /^\Q$reqstatus\E/)) {
+        if (ref($reqauthor{'author'}) eq 'HASH') {
+            $queued = $reqstatus.':'.$reqauthor{'author'}{'timestamp'};
+        } else {
+            undef($queued);
+        }
+        &Apache::lonnet::appenv({'environment.requestauthorqueued' => $queued});
+    }
+    return $queued;
+}
+
+sub process_reqauthor {
+    my ($dispositionref,$updateref) = @_;
+    if (&is_active_author()) {
+        return '<span class="LC_warning">'.
+                &mt('An Authoring Space has already been assigned to you.').'<br />'.
+                &mt('Please select the Author role from your [_1]roles page[_2].','<a href="/adm/roles">',
+                '</a>').'</span>';
+    }
+    unless ($env{'environment.canrequest.author'}) {
+        return '<span class="LC_warning">'.
+                &mt('You do not currently have rights to request an Authoring Space.').'<br />'.
+                &mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">',
+                '</a>').'</span>';
+    }
+    my $queued = &reqauthor_check();
+    if ($queued =~ /^approval:(\d+)$/) {
+        my $timestamp = $1;
+        return '<span class="LC_info">'.
+               &mt('A request for Authoring Space submitted on [_1] is awaiting approval',
+               &Apache::lonlocal::locallocaltime($timestamp)).
+               '</span>';
+    } elsif ($queued =~ /^approved:(\d+)$/) {
+        my $timestamp = $1;   
+        my %roleshash = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',
+                                                      ['active'],['au'],[$env{'user.domain'}]);
+        if (keys(%roleshash) > 0) {
+            return '<span class="LC_info">'.
+                   &mt('A request for Authoring Space submitted on [_1] has been approved.',
+                   &Apache::lonlocal::locallocaltime($timestamp)).
+                   '</span>';
+        }
+    }
+    my ($output,@inststatuses,%domconfig);
+    %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],
+                                          $env{'user.domain'});
+    my $val = &get_processtype('requestauthor',$env{'user.name'},$env{'user.domain'},
+                               $env{'user.adv'},$env{'user.domain'},undef,
+                               \@inststatuses,\%domconfig);
+    my $now = time;
+    if ($val eq 'automatic') {
+        my $start = $now-1;
+        if (&Apache::lonnet::assignrole($env{'user.domain'},$env{'user.name'},'/'.$env{'user.domain'}.'/',
+                                        'au',undef,$start,undef,undef,'requestauthor') eq 'ok') {
+            $output = '<span class="LC_info">'.
+                      &mt('Access to Authoring Space has been activated').'</span><br />';
+                      &Apache::lonroles::update_session_roles();
+            &Apache::lonnet::appenv({'user.update.time'  => $now});
+            if (ref($updateref)) {
+                $$updateref = $now;
+            }
+            if (ref($dispositionref)) {
+                $$dispositionref = 'created';
+            }
+        } else {
+            $output = '<span class="LC_info">'.
+                      &mt('An error occurred while activating your access to Authoring Space');
+        }
+    } elsif ($val eq 'approval') {
+        my $domconfiguser = &Apache::lonnet::get_domainconfiguser($env{'user.domain'});
+        if (&Apache::lonnet::put('requestauthorqueue',{ $env{'user.name'}.'_'.$val => $now },
+                                 $env{'user.domain'},$domconfiguser) eq 'ok') {
+            my %userrequest = (
+                author => {
+                            timestamp   => $now,
+                            status      => $val,
+                          },
+                author_status => $val,
+            );
+            my $req_notifylist;
+            if (ref($domconfig{'requestauthor'}) eq 'HASH') {
+                if (ref($domconfig{'requestauthor'}{'notify'}) eq 'HASH') {
+                    my $req_notifylist = $domconfig{'requestauthor'}{'notify'}{'approval'};
+                    if ($req_notifylist) {
+                        my $fullname = &Apache::loncommon::plainname($env{'user.name'},
+                                                                     $env{'user.domain'});
+                        my $sender = $env{'user.name'}.':'.$env{'user.domain'};
+                        my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
+                        &send_selfserve_notification($req_notifylist,
+                                                     "$fullname ($env{'user.name'}:$env{'user.domain'})",
+                                                     undef,$domdesc,$now,'authorreq',$sender);
+                    }
+                }
+            }
+            my $userresult =
+                &Apache::lonnet::put('requestauthor',\%userrequest,$env{'user.domain'},$env{'user.name'});
+            $output = '<span class="LC_info">'.
+                      &mt('Your request for Authoring Space has been submitted for approval.').
+                      '</span>';
+            &Apache::lonnet::appenv({'environment.requestauthorqueued' => $val.':'.$now});
+        } else {
+            $output = '<span class="LC_info">'.
+                      &mt('An error occurred saving your request for Authoring Space.').
+                      '</span>';
+        }
+    }
+    return $output;
 }
 
 1;