version 1.23, 2010/03/30 15:23:51
|
version 1.24, 2010/03/30 16:02:27
|
Line 260 sub display_queued_requests {
|
Line 260 sub display_queued_requests {
|
$formaction = '/adm/createcourse'; |
$formaction = '/adm/createcourse'; |
$namespace = 'courserequestqueue'; |
$namespace = 'courserequestqueue'; |
my $disposition = 'approval'; |
my $disposition = 'approval'; |
|
my $nextphase = 'requestchange'; |
if ($context eq 'pending') { |
if ($context eq 'pending') { |
$disposition = 'pending'; |
$disposition = 'pending'; |
|
$nextphase = 'requestvalidation'; |
} |
} |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition); |
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition); |
$nextelement = '<input type="hidden" name="phase" value="requestchange" />'; |
$nextelement = '<input type="hidden" name="phase" value="'.$nextphase.'" />'; |
} |
} |
my ($output,%queue_by_date); |
my ($output,%queue_by_date); |
if (keys(%requesthash) > 0) { |
if (keys(%requesthash) > 0) { |
Line 322 sub display_queued_requests {
|
Line 324 sub display_queued_requests {
|
$output .= '</div>'; |
$output .= '</div>'; |
} |
} |
if ($context eq 'pending') { |
if ($context eq 'pending') { |
$output .= '<br /><input type="button" name="validationcheck" value="'. |
$output .= '<br /><input type="submit" name="validationcheck" value="'. |
&mt('Validate').'" onclick="javascript:runValidation();" /><br />'."\n". |
&mt('Validate').'" /><br />'."\n". |
'<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>'; |
'<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>'; |
} else { |
} else { |
$output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />'; |
$output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />'; |
Line 1320 sub process_official_reqs {
|
Line 1322 sub process_official_reqs {
|
my ($context,$dom) = @_; |
my ($context,$dom) = @_; |
my $reqsnamespace = 'courserequestqueue'; |
my $reqsnamespace = 'courserequestqueue'; |
my %requesthash = |
my %requesthash = |
&Apache::lonnet::dump_dom($reqsnamespace,$dom,undef,'_pending'); |
&Apache::lonnet::dump_dom($reqsnamespace,$dom,'_pending'); |
my (%newcids,%longroles,%stillpending); |
my (%newcids,%longroles,%stillpending); |
my @courseroles = ('cc','in','ta','ep','ad','st'); |
my @courseroles = ('cc','in','ta','ep','ad','st'); |
foreach my $role (@courseroles) { |
foreach my $role (@courseroles) { |