version 1.89, 2009/11/03 14:32:44
|
version 1.93, 2010/03/08 14:43:46
|
Line 51 sub handler {
|
Line 51 sub handler {
|
($ENV{'QUERY_STRING'},['domainfilter','form','cnumelement', |
($ENV{'QUERY_STRING'},['domainfilter','form','cnumelement', |
'cdomelement','cnameelement','roleelement', |
'cdomelement','cnameelement','roleelement', |
'multiple','type','setroles','fixeddom','cloner']); |
'multiple','type','setroles','fixeddom','cloner']); |
my ($type,$title,$jscript,$multelement,$multiple,$roleelement, |
my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement, |
$lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom); |
$lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom); |
|
|
# Get course type - Course or Community. |
# Get course type - Course or Community. |
Line 75 sub handler {
|
Line 75 sub handler {
|
$submitopener = &processpick(); |
$submitopener = &processpick(); |
$autosubmit = 'process_pick("'.$roledom.'")'; |
$autosubmit = 'process_pick("'.$roledom.'")'; |
} |
} |
|
if ($env{'form.typeelement'} ne '') { |
|
$typeelement = '<input type="hidden" name="typeelement" value="'.$env{'form.typeelement'}.'" />'; |
|
} |
|
|
# if called when a DC is creating a course |
# if called when a DC is creating a course for another user. |
if ($env{'form.form'} eq 'ccrs') { |
if ($env{'form.form'} eq 'ccrs') { |
($cloneruname,$clonerudom) = ($env{'form.cloner'} =~ /^($match_username):($match_domain)$/); |
($cloneruname,$clonerudom) = ($env{'form.cloner'} =~ /^($match_username):($match_domain)$/); |
} |
} |
Line 165 sub handler {
|
Line 168 sub handler {
|
|
|
$r->print(&build_filters($filterlist,$type,$roleelement,$multelement, |
$r->print(&build_filters($filterlist,$type,$roleelement,$multelement, |
$filter,$action,\$numtitles,undef,$cloneruname, |
$filter,$action,\$numtitles,undef,$cloneruname, |
$clonerudom)); |
$clonerudom,$typeelement)); |
} |
} |
|
|
# ---------------------------------------------------------------- Get the data |
# ---------------------------------------------------------------- Get the data |
Line 303 sub display_matched_courses {
|
Line 306 sub display_matched_courses {
|
} |
} |
my $cctitle = &Apache::lonnet::plaintext($ccrole,$type); |
my $cctitle = &Apache::lonnet::plaintext($ccrole,$type); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $dctitle = &Apache::lonnet::plaintext('dc'); |
my $ccrolechk = ' checked="checked" '; |
my $ccrolechk = ' '; |
my $menuchk = ' '; |
my $menuchk = ' checked="checked" '; |
if ($env{'form.prevphase'} ne '') { |
|
$ccrolechk = ' '; |
|
$menuchk = ' checked="checked" '; |
|
} |
|
$r->print( |
$r->print( |
'<fieldset>' |
'<fieldset>' |
.'<legend>'.&mt('Action').'</legend>' |
.'<legend>'.&mt('Action').'</legend>' |
Line 377 sub display_matched_courses {
|
Line 376 sub display_matched_courses {
|
} |
} |
$r->print(&Apache::loncommon::end_data_table_header_row()); |
$r->print(&Apache::loncommon::end_data_table_header_row()); |
} |
} |
|
my %cc_cloneable; |
|
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
|
my ($coord_cloneable,$warning) = |
|
&get_coordinator_cloneable($cloneruname,$clonerudom,$type); |
|
if ($coord_cloneable) { |
|
map {$cc_cloneable{$_} = 1;} split('&',$coord_cloneable); |
|
} |
|
} |
foreach my $description (sort { lc($a) cmp lc($b) } (keys(%by_descrip))) { |
foreach my $description (sort { lc($a) cmp lc($b) } (keys(%by_descrip))) { |
foreach my $course (@{$by_descrip{$description}}) { |
foreach my $course (@{$by_descrip{$description}}) { |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::start_data_table_row()); |
Line 389 sub display_matched_courses {
|
Line 396 sub display_matched_courses {
|
$instcode = $courses{$course}{'inst_code'}; |
$instcode = $courses{$course}{'inst_code'}; |
$ttype = $courses{$course}{'type'}; |
$ttype = $courses{$course}{'type'}; |
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
my $cloners = $courses{$course}{'cloners'}; |
if ($cc_cloneable{$courses{$course}{'cnum'}.':'.$courses{$course}{'domain'}}) { |
if ($cloners ne '') { |
$canclone = 1; |
my @cloneable = split(',',$cloners); |
} |
if (grep(/^\*$/,@cloneable)) { |
unless ($canclone) { |
$canclone = 1; |
my $cloners = $courses{$course}{'cloners'}; |
} |
if ($cloners ne '') { |
if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) { |
my @cloneable = split(',',$cloners); |
$canclone = 1; |
if (grep(/^\*$/,@cloneable)) { |
} |
$canclone = 1; |
if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) { |
} |
$canclone = 1; |
if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) { |
|
$canclone = 1; |
|
} |
|
if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) { |
|
$canclone = 1; |
|
} |
} |
} |
} |
} |
} |
} |
Line 414 sub display_matched_courses {
|
Line 426 sub display_matched_courses {
|
($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course}); |
($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course}); |
push(@owners,&unescape($singleowner)); |
push(@owners,&unescape($singleowner)); |
} |
} |
my $ownerstr = join(', ',@owners); |
my $ownerstr = join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } @owners); |
$r->print('<td>'.&course_chooser($multiple,$cdom,$cnum,$cleandesc,$canclone).'</td>'); |
$r->print('<td>'.&course_chooser($multiple,$cdom,$cnum,$cleandesc,$canclone).'</td>'); |
$r->print('<td>'.$description.'</td>'); |
$r->print('<td>'.$description.'</td>'); |
$r->print('<td>'); |
$r->print('<td>'); |
Line 481 sub display_matched_courses {
|
Line 493 sub display_matched_courses {
|
$env{'form.cnumelement'}.'" />'."\n". |
$env{'form.cnumelement'}.'" />'."\n". |
'<input type="hidden" name="cdomelement" value="'. |
'<input type="hidden" name="cdomelement" value="'. |
$env{'form.cdomelement'}.'" />'."\n"); |
$env{'form.cdomelement'}.'" />'."\n"); |
|
if ($env{'form.typeelement'} ne '') { |
|
$r->print('<input type="hidden" name="typeelement" value="'. |
|
$env{'form.typeelement'}.'" />'."\n"); |
|
|
|
} |
} |
} |
if ((exists($env{'form.fixeddom'})) && ($env{'form.form'} eq 'rules')) { |
if ((exists($env{'form.fixeddom'})) && ($env{'form.form'} eq 'rules')) { |
$r->print('<input type="hidden" name="fixeddom" value="'. |
$r->print('<input type="hidden" name="fixeddom" value="'. |
Line 502 sub multiples_tag {
|
Line 519 sub multiples_tag {
|
|
|
sub build_filters { |
sub build_filters { |
my ($filterlist,$type,$roleelement,$multelement,$filter,$action, |
my ($filterlist,$type,$roleelement,$multelement,$filter,$action, |
$numtitlesref,$caller,$cloneruname,$clonerudom) = @_; |
$numtitlesref,$caller,$cloneruname,$clonerudom,$typeelement) = @_; |
my ($list,$formname,$fixeddom,$codedom,$jscript); |
my ($list,$formname,$fixeddom,$codedom,$jscript); |
$codedom = $env{'request.role.domain'}; |
$codedom = $env{'request.role.domain'}; |
if (defined($env{'form.form'})) { |
if (defined($env{'form.form'})) { |
Line 581 sub build_filters {
|
Line 598 sub build_filters {
|
$filter->{'sincefilter'} = $env{'form.sincefilter'}; |
$filter->{'sincefilter'} = $env{'form.sincefilter'}; |
$filter->{'sincefilter'} =~ s/[^\d-]//g; |
$filter->{'sincefilter'} =~ s/[^\d-]//g; |
if (!$filter->{'sincefilter'}) { $filter->{'sincefilter'}=-1; } |
if (!$filter->{'sincefilter'}) { $filter->{'sincefilter'}=-1; } |
$sincefilterform=&Apache::loncommon::select_form($filter->{'sincefilter'}, |
$sincefilterform=&Apache::loncommon::select_form( |
'sincefilter',('-1'=>'', |
$filter->{'sincefilter'}, |
'86400' => 'today', |
'sincefilter', |
'604800' => 'last week', |
( '-1' => '', |
'2592000' => 'last month', |
'86400' => &mt('today'), |
'7776000' => 'last three months', |
'604800' => &mt('last week'), |
'15552000' => 'last six months', |
'2592000' => &mt('last month'), |
'31104000' => 'last year', |
'7776000' => &mt('last three months'), |
'select_form_order' => |
'15552000' => &mt('last six months'), |
['-1','86400','604800','2592000','7776000', |
'31104000' => &mt('last year'), |
'15552000','31104000'])); |
'select_form_order' => |
|
['-1','86400','604800','2592000','7776000', |
my %lt = ( |
'15552000','31104000'])); |
'cac' => &mt("$type Activity"), |
|
'cde' => &mt("$type Title"), |
my %lt = &Apache::lonlocal::texthash( |
'cdo' => &mt("$type Domain"), |
'cac' => "$type Activity", |
'ins' => &mt('Institutional Code'), |
'cde' => "$type Title", |
'inc' => &mt('Institutional Categorization'), |
'cdo' => "$type Domain", |
'cow' => &mt("$type Owner/Co-owner"), |
'ins' => 'Institutional Code', |
'cop' => &mt("$type Personnel Includes"), |
'inc' => 'Institutional Categorization', |
'cog' => &mt('Type') |
'cow' => "$type Owner/Co-owner", |
|
'cop' => "$type Personnel Includes", |
|
'cog' => 'Type', |
); |
); |
|
|
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
Line 685 sub build_filters {
|
Line 704 sub build_filters {
|
$name_input |
$name_input |
$roleelement |
$roleelement |
$multelement |
$multelement |
|
$typeelement |
|; |
|; |
if ($formname eq 'portform') { |
if ($formname eq 'portform') { |
$output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />'."\n"; |
$output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />'."\n"; |
Line 751 $multelement
|
Line 771 $multelement
|
.&Apache::lonhtmlcommon::row_closure(1); |
.&Apache::lonhtmlcommon::row_closure(1); |
} |
} |
$output .= &Apache::lonhtmlcommon::end_pick_box().'<p>'; |
$output .= &Apache::lonhtmlcommon::end_pick_box().'<p>'; |
my $warning; |
my ($coord_cloneable,$warning); |
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) { |
my $cloneruhome=&Apache::lonnet::homeserver($cloneruname,$clonerudom); |
($coord_cloneable,$warning) = |
my $cc_clone; |
&get_coordinator_cloneable($cloneruname,$clonerudom,$type); |
if ($cloneruhome eq 'no_host') { |
if ($env{'form.form'} eq 'ccrs') { |
$warning = '<div class="LC_error">'.&mt('Intended course owner does not exist'). |
$output .= '<input type="hidden" name="cloner" value="'.$env{'form.cloner'}.'" />'."\n"; |
'</div>'; |
|
} else { |
|
my $ccrole; |
|
if ($type eq 'Community') { |
|
$ccrole = 'co'; |
|
} elsif ($type eq 'Course') { |
|
$ccrole = 'cc'; |
|
} |
|
if ($env{'form.form'} eq 'ccrs') { |
|
$output .= '<input type="hidden" name="cloner" value="'.$env{'form.cloner'}.'" />'."\n"; |
|
} |
|
my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom, |
|
'userroles',['active'], [$ccrole]); |
|
foreach my $key (sort(keys(%ccroles))) { |
|
my ($cnum,$cdom,$role) = split(':',$key); |
|
$cc_clone .= $cdom.':'.$cnum.'&'; |
|
} |
|
$cc_clone =~ s/\&$//; |
|
} |
} |
if ($cc_clone ne '') { |
if ($coord_cloneable) { |
$output .= '<input type="hidden" name="cc_clone" value="'.$cc_clone.'" />'; |
$output .= '<input type="hidden" name="cc_clone" value="'.$coord_cloneable.'" />'; |
} |
} |
} |
} |
$output .= '<input type="hidden" name="updater" value="">'."\n". |
$output .= '<input type="hidden" name="updater" value="">'."\n". |
Line 786 $multelement
|
Line 788 $multelement
|
return $jscript.$warning.$output; |
return $jscript.$warning.$output; |
} |
} |
|
|
|
sub get_coordinator_cloneable { |
|
my ($cloneruname,$clonerudom,$type) = @_; |
|
if (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') { |
|
my $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist'). |
|
'</div>'; |
|
return ('',$warning); |
|
} else { |
|
my ($cc_clone,$ccrole); |
|
if ($type eq 'Community') { |
|
$ccrole = 'co'; |
|
} elsif ($type eq 'Course') { |
|
$ccrole = 'cc'; |
|
} |
|
my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom, |
|
'userroles',['active'], [$ccrole]); |
|
foreach my $key (sort(keys(%ccroles))) { |
|
my ($cnum,$cdom,$role) = split(':',$key); |
|
$cc_clone .= $cdom.':'.$cnum.'&'; |
|
} |
|
$cc_clone =~ s/\&$//; |
|
return ($cc_clone); |
|
} |
|
} |
|
|
sub instcode_selectors { |
sub instcode_selectors { |
my ($codedom,$formname,$officialjs) = @_; |
my ($codedom,$formname,$officialjs) = @_; |
my ($output,@codetitles,%cat_titles,%cat_order,%cat_items); |
my ($output,@codetitles,%cat_titles,%cat_order,%cat_items); |
Line 981 function gochoose(cname,cdom,cdesc) {
|
Line 1007 function gochoose(cname,cdom,cdesc) {
|
} |
} |
ENDSCRIPT |
ENDSCRIPT |
} else { |
} else { |
my $name_code; |
my ($name_code,$type_code); |
if ($env{'form.cnameelement'} ne '') { |
if ($env{'form.cnameelement'} ne '') { |
$name_code = 'opener.document.'.$env{'form.form'}.'.'. |
$name_code = 'opener.document.'.$env{'form.form'}.'.'. |
$env{'form.cnameelement'}.'.value=cdesc;'; |
$env{'form.cnameelement'}.'.value=cdesc;'; |
} |
} |
|
if ($env{'form.typeelement'} ne '') { |
|
$type_code = 'opener.document.'.$env{'form.form'}.'.'. |
|
$env{'form.typeelement'}.'.value=document.courselist.type;'; |
|
} |
|
|
$output .= qq| |
$output .= qq| |
$name_code |
$name_code |
|
$type_code |
opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; |
opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; |
var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; |
var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; |
if (slct.options == undefined) { |
if (slct.options == undefined) { |
Line 1129 Side Effects: None
|
Line 1161 Side Effects: None
|
|
|
=item * |
=item * |
X<build_filters()> |
X<build_filters()> |
B<build_filters($filterlist,$type,$roleelement,$multelement,$filter,$action,$numfiltersref,$caller,$cloneruname,$clonerudom)>: |
B<build_filters($filterlist,$type,$roleelement,$multelement,$filter,$action,$numfiltersref,$caller,$cloneruname,$clonerudom,$typeelem)>: |
|
|
|
|
Input: 7 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values; form action; ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number); caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm). |
Input: 11 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values; form action; ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number); caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm), username and domain of new course owner who wants to clone, $tyepelem |
|
|
Output: 1 - $output - HTML for display of search criteria, and hidden form elements. |
Output: 1 - $output - HTML for display of search criteria, and hidden form elements. |
|
|