version 1.2, 2009/08/04 20:15:50
|
version 1.3, 2009/08/05 12:46:44
|
Line 112 sub handler {
|
Line 112 sub handler {
|
} |
} |
} |
} |
|
|
|
my %trail = ( |
|
crstype => 'Pick Action', |
|
codepick => 'Pick Category', |
|
courseinfo => 'Information', |
|
enrollment => 'Enrollment', |
|
personnel => 'Personnel', |
|
review => 'Review', |
|
process => 'Result', |
|
); |
|
|
my $page = 0; |
my $page = 0; |
|
my $crumb; |
if (defined($action)) { |
if (defined($action)) { |
my $done = 0; |
my $done = 0; |
my $i=0; |
my $i=0; |
Line 125 sub handler {
|
Line 136 sub handler {
|
$i++; |
$i++; |
} |
} |
} |
} |
|
for (my $i=0; $i<@{$states{$action}}; $i++) { |
|
if ($state eq $states{$action}[$i]) { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{text=>"$trail{$state}"}); |
|
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); |
|
last; |
|
} else { |
|
if (($state eq 'process') && ($i > 0)) { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{href=>"javascript:backPage(document.requestcrs,'$states{$action}[0]')", |
|
text=>"$trail{$states{$action}[$i]}"}); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{href=>"javascript:backPage(document.requestcrs,'$states{$action}[$i]')", |
|
text=>"$trail{$states{$action}[$i]}"}); |
|
} |
|
} |
|
} |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{text=>'Pick Action'}); |
|
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests'); |
} |
} |
|
|
my %can_request; |
my %can_request; |
Line 132 sub handler {
|
Line 165 sub handler {
|
if ($action eq 'new') { |
if ($action eq 'new') { |
if ($canreq) { |
if ($canreq) { |
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, |
|
$crumb); |
} else { |
} else { |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
$loaditems); |
$loaditems,$crumb); |
} |
} |
} else { |
} else { |
$r->print(&header('Course Requests'). |
$r->print(&header('Course Requests').$crumb. |
'<div class="LC_warning">'. |
'<div class="LC_warning">'. |
&mt('You do not have privileges to request creation of courses.'). |
&mt('You do not have privileges to request creation of courses.'). |
'</div>'.&Apache::loncommon::end_page()); |
'</div>'.&Apache::loncommon::end_page()); |
} |
} |
} elsif ($action eq 'view') { |
} elsif ($action eq 'view') { |
&print_request_status($jscript,$loaditems); |
&print_request_status($jscript,$loaditems,$crumb); |
} elsif ($action eq 'log') { |
} elsif ($action eq 'log') { |
&print_request_logs($jscript,$loaditems); |
&print_request_logs($jscript,$loaditems,$crumb); |
} else { |
} else { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 160 sub header {
|
Line 194 sub header {
|
$jscript.'</script>'."\n"; |
$jscript.'</script>'."\n"; |
} |
} |
if ($loaditems) { |
if ($loaditems) { |
$loaditems = {'add_entries' => $loaditems,}; |
$loaditems = {'add_entries' => $loaditems,}; |
} |
return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$loaditems); |
return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$loaditems); |
} else { |
|
return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra); |
|
} |
} |
} |
|
|
sub form_elements { |
sub form_elements { |
Line 331 sub check_can_request {
|
Line 367 sub check_can_request {
|
} |
} |
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$can_request,$states,$dom,$jscript,$loaditems) = @_; |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; |
my $onchange; |
my $onchange; |
unless ($env{'form.interface'} eq 'textual') { |
unless ($env{'form.interface'} eq 'textual') { |
$onchange = 1; |
$onchange = 1; |
Line 415 END
|
Line 451 END
|
|
|
END |
END |
|
|
$r->print(&header('Course Requests',$js.$jscript,$loaditems). |
$r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb. |
'<p><div>'. |
'<div>'. |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_title('Domain'). |
&Apache::lonhtmlcommon::row_title('Domain'). |
Line 457 END
|
Line 493 END
|
} |
} |
|
|
sub request_administration { |
sub request_administration { |
my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems) = @_; |
my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb) = @_; |
my $js; |
my $js; |
if (($action eq 'new') || ($action eq 'view')) { |
if (($action eq 'new') || ($action eq 'view')) { |
$js = <<END; |
$js = <<END; |
Line 478 END
|
Line 514 END
|
unless (($state eq 'review') || ($state eq 'process')) { |
unless (($state eq 'review') || ($state eq 'process')) { |
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom); |
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom); |
} |
} |
$r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra)); |
$r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb); |
if ($state eq 'review') { |
if ($state eq 'review') { |
&print_review($r,$state,$dom); |
&print_review($r,$state,$dom); |
} elsif ($state eq 'process') { |
} elsif ($state eq 'process') { |
Line 487 END
|
Line 523 END
|
&print_request_form($r,$action,$state,$page,$states,$dom); |
&print_request_form($r,$action,$state,$page,$states,$dom); |
} |
} |
} elsif ($action eq 'view') { |
} elsif ($action eq 'view') { |
$r->print(&header('Manage course requests',$js.$jscript,$loaditems)); |
$r->print(&header('Manage course requests',$js.$jscript,$loaditems).$crumb); |
} elsif ($action eq 'log') { |
} elsif ($action eq 'log') { |
$r->print(&coursereq_log('View request log',$jscript,$loaditems)); |
$r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |