[BACK]Return to lonrequestcourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.84 and 1.86

version 1.84, 2014/05/19 15:59:55 version 1.86, 2015/03/26 14:16:11
Line 172  sub handler { Line 172  sub handler {
                 if ($can_request{'textbook'}) {                  if ($can_request{'textbook'}) {
                     &process_textbook_request($r,$dom,$action,\%domdefs,\%domconfig,\%can_request);                      &process_textbook_request($r,$dom,$action,\%domdefs,\%domconfig,\%can_request);
                 } else {                  } else {
                     &textbook_request_disabled($r,$dom,\%can_request);                      &textbook_request_disabled($r,$dom,$action,\%can_request);
                 }                  }
             } elsif ($action eq 'display') {              } elsif ($action eq 'display') {
                my ($uname,$udom,$result,$warning) = &domcoord_display($dom);                 my ($uname,$udom,$result,$warning) = &domcoord_display($dom);
Line 194  sub handler { Line 194  sub handler {
                 if ($can_request{'textbook'}) {                  if ($can_request{'textbook'}) {
                     &print_textbook_form($r,$dom,\@incdoms,\%domdefs,$domconfig{'requestcourses'},\%can_request);                      &print_textbook_form($r,$dom,\@incdoms,\%domdefs,$domconfig{'requestcourses'},\%can_request);
                 } else {                  } else {
                     &textbook_request_disabled($r,$dom,\%can_request);                      &textbook_request_disabled($r,$dom,$action,\%can_request);
                 }                  }
             }              }
             return OK;              return OK;
Line 476  sub get_breadcrumbs { Line 476  sub get_breadcrumbs {
                     }                      }
                 }                  }
             }              }
             for (my $i=0; $i<@{$states->{$action}}; $i++) {              if (ref($states->{$action}) eq 'ARRAY') {
                 if ($$state eq $states->{$action}[$i]) {                  for (my $i=0; $i<@{$states->{$action}}; $i++) {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      if ($$state eq $states->{$action}[$i]) {
                        {text=>"$trail->{$$state}"});  
                     $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');  
                     last;  
                 } else {  
                     if (($$state eq 'process') || ($$state eq 'removal') || ($$state eq 'reqauthor')) {  
                         &Apache::lonhtmlcommon::add_breadcrumb(                          &Apache::lonhtmlcommon::add_breadcrumb(
                             { href => '/adm/requestcourse',                             {text=>"$trail->{$$state}"});
                               text => "$trail->{$states->{$action}[$i]}",                          $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
                             }                          last;
                         );  
                     } else {                      } else {
                         &Apache::lonhtmlcommon::add_breadcrumb(                          if (($$state eq 'process') || ($$state eq 'removal') || ($$state eq 'reqauthor')) {
                               &Apache::lonhtmlcommon::add_breadcrumb(
                                   { href => '/adm/requestcourse',
                                     text => "$trail->{$states->{$action}[$i]}",
                                   }
                              );
                           } else {
                               &Apache::lonhtmlcommon::add_breadcrumb(
      { href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')",       { href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')",
        text => "$trail->{$states->{$action}[$i]}", }         text => "$trail->{$states->{$action}[$i]}", }
                        );                             );
                    }                          }
                }                      }
            }                  }
               }
         } else {          } else {
             &Apache::lonhtmlcommon::add_breadcrumb(              &Apache::lonhtmlcommon::add_breadcrumb(
                     {text=>'Pick Action'});                      {text=>'Pick Action'});
Line 3668  sub process_request { Line 3670  sub process_request {
                                             $dom,$crstype,$limit,\$message);                                              $dom,$crstype,$limit,\$message);
         } elsif ($val eq 'validate') {          } elsif ($val eq 'validate') {
             my ($inststatuslist,$validationchk,$validation,%custominfo);              my ($inststatuslist,$validationchk,$validation,%custominfo);
               if (ref($details) eq 'HASH') {
                   if ($details->{'clonecrs'}) {
                       $custominfo{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
                   }
               }
             if (@inststatuses > 0) {              if (@inststatuses > 0) {
                 $inststatuslist = join(',',@inststatuses);                  $inststatuslist = join(',',@inststatuses);
             }              }
Line 3760  sub process_request { Line 3767  sub process_request {
                       &mt('Your request is being processed; this page will update when processing is complete.').                        &mt('Your request is being processed; this page will update when processing is complete.').
                       '</div>');                        '</div>');
             $r->rflush();              $r->rflush();
               if (ref($details) eq 'HASH') {
                   if ($details->{'clonecrs'}) {
                       $customitems{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
                   }
               }
             my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,              my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
                                           'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,                                            'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
                                           \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,                                            \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,
Line 5014  ENDSCRIPT Line 5026  ENDSCRIPT
   
 }  }
   
   sub textbook_request_disabled {
       my ($r,$dom,$action,$can_request) = @_;
       if (ref($can_request) eq 'HASH') {
           if ($action eq 'process') {
               unless ((scalar(keys(%{$can_request})) == 1)) {
                   &Apache::lonhtmlcommon::add_breadcrumb(
                      { href => '/adm/requestcourse',
                        text => 'Pick action',
                      });
               }
           }
       }
       $r->print(&header('Course Request'));
       &Apache::lonhtmlcommon::add_breadcrumb({text=>'Course Request'});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests').
                 '<div>'.
                 '<p class="LC_info">'.&mt('You do not have privileges to request creation of textbook courses.').'</p>');
       if (ref($can_request) eq 'HASH') {
           if (scalar(keys(%{$can_request})) > 1) {
               $r->print('<a href="/adm/requestcourse">'.&mt('Go back').'</a>');
            }
       }
       $r->print('</div>'.
                 &Apache::loncommon::end_page());
       return;
   }
   
 sub startContentScreen {  sub startContentScreen {
     my ($r,$mode)=@_;      my ($r,$mode)=@_;
     $r->print("\n".'<ul class="LC_TabContentBigger" id="textbookreq">'."\n");      $r->print("\n".'<ul class="LC_TabContentBigger" id="textbookreq">'."\n");
Removed from v.1.84  
changed lines
  Added in v.1.86

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>