| '. ''. &valout($value,$type,1).' |
| '); $cnt++; if ($cnt==3) { $r->print(" | ||
|
Select All Select Common Only |
Add Problem Dates
Add Content Dates Add Discussion Settings Add Visibilities Add Part Parameters | Unselect All | '); $r->print('
| '.&mt('Select Parameters to View').' | '. &mt('Select Parts to View').' |
|---|---|
| '); &parmmenu($r,$allparms,$pscat,$keyorder); $r->print(' | '); &partmenu($r,$allparts,$psprt); $r->print(' |
\n".&mt("Full Name").": ".
$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.
"
\n".&mt('ID').": ".$name{'id'}.'
'; } @usersgroups = &Apache::lonnet::get_users_groups( $udom,$uname,$env{'request.course.id'}); if (@usersgroups > 0) { unless (grep(/^\Q$cgroup\E$/,@usersgroups)) { $cgroup = $usersgroups[0]; } } } } unless ($csec) { $csec=''; } unless ($cgroup) { $cgroup=''; } # --------------------------------------------------------- Get all assessments &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris, \%keyorder); $mapp{'0.0'} = ''; $symbp{'0.0'} = ''; # ---------------------------------------------------------- Anything to store? if ($env{'form.pres_marker'}) { my @markers=split(/\&\&\&/,$env{'form.pres_marker'}); my @values=split(/\&\&\&/,$env{'form.pres_value'}); my @types=split(/\&\&\&/,$env{'form.pres_type'}); for (my $i=0;$i<=$#markers;$i++) { $message.=&storeparm(split(/\&/,$markers[$i]), $values[$i], $types[$i], $uname,$udom,$csec,$cgroup); } # ---------------------------------------------------------------- Done storing $message.='
| '); &levelmenu($r,\%alllevs,$parmlev); if ($parmlev ne 'general') { $r->print(' | '); &mapmenu($r,\%allmaps,$pschp,\%maptitles); $r->print(' | '); } $r->print('
'.$message.'
'); $r->print('| '); $r->print(' | '.&mt('Any User').' | '); if ($uname) { if (@usersgroups > 1) { $userspan ++; } $r->print(''); $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom | "); } my %lt=&Apache::lonlocal::texthash( 'pie' => "Parameter in Effect", 'csv' => "Current Session Value", 'at' => 'at', 'rl' => "Resource Level", 'ic' => 'in Course', 'aut' => "Assessment URL and Title", 'type' => 'Type', 'emof' => "Enclosing Map or Folder", 'part' => 'Part', 'pn' => 'Parameter Name', 'def' => 'default', 'femof' => 'from Enclosing Map or Folder', 'gen' => 'general', 'foremf' => 'for Enclosing Map or Folder', 'fr' => 'for Resource' ); $r->print(<$lt{'csv'} ($csuname $lt{'at'} $csudom) |
|||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| $lt{'ic'} | $lt{'rl'} | $lt{'ic'} | ENDTABLETWO if ($csec) { $r->print("". &mt("in Section")." $csec | "); } if ($cgroup) { $r->print("". &mt("in Group")." $cgroup | "); } $r->print(<||||||||||||||||||||||||||||||||||
| $lt{'aut'} | $lt{'type'} | $lt{'emof'} | $lt{'part'} | $lt{'pn'} | $lt{'gen'} | $lt{'foremf'} | $lt{'def'} | $lt{'femof'} | $lt{'fr'} | ENDTABLEHEADFOUR if ($csec) { $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | '); } if ($cgroup) { $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | '); } if ($uname) { if (@usersgroups > 1) { $r->print(''.&mt('Control by other group?').' | '); } $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | '); } $r->print('|||||||||||||||||||
| '.
join(' / ',split(/\//,$uri)).
' '. "$title"); if ($thistitle) { $r->print(' ('.$thistitle.')'); } $r->print(' | ');
$r->print(''.$typep{$rid}. ' | '); $r->print(''.$maptitles{$mapp{$rid}}.' | '); foreach (&keysinorder_bytype(\%name,\%keyorder)) { unless ($firstrow) { $r->print('||||||||||||||||||||||||||||||||||||
| '.&mt('Parameter Name').' | '); $r->print(''.&mt('Default Value').' | '); $r->print(''.&mt('Parameter in Effect').' |
|---|---|---|
| '.&mt('Parameter Name').' | '); $r->print(''.&mt('Default Value').' | '); $r->print(''.&mt('Parameter in Effect').' |
|---|---|---|
| '); &levelmenu($r,\%alllevs,$parmlev); if ($parmlev ne 'general') { $r->print(' | '); &mapmenu($r,\%allmaps,$pschp,\%maptitles); $r->print(' | '); } $r->print('
| '); &parmmenu($r,\%allparms,\@pscat,\%keyorder); $r->print(' |
|
'. ($foundkeys?'':&mt('There are no parameters.')).'
'. &Apache::loncommon::end_page()); } sub clean_parameters { my ($r) = @_; my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; my $start_page=&Apache::loncommon::start_page('Clean Parameters'); my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Clean'); $r->print(<'. ''. '
'. &Apache::loncommon::end_page()); } sub parse_key { my ($key) = @_; my %data; my ($middle,$part,$name)= ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); $data{'scope_type'} = 'all'; if ($middle=~/^\[(.*)\]/) { $data{'scope'} = $1; if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) { $data{'scope_type'} = 'user'; $data{'scope'} = [$1,$2]; } else { #FIXME check for group scope $data{'scope_type'} = 'section'; } $middle=~s/^\[(.*)\]//; } $middle=~s/\.+$//; $middle=~s/^\.+//; $data{'realm_type'}='all'; if ($middle=~/^(.+)\_\_\_\(all\)$/) { $data{'realm'} = $1; $data{'realm_type'} = 'folder'; $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'}); ($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'}); &Apache::lonnet::logthis($1." siad ". $data{'realm_exists'} ); } elsif ($middle) { $data{'realm'} = $middle; $data{'realm_type'} = 'symb'; $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'}); my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'}); $data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url); } $data{'parameter_part'} = $part; $data{'parameter_name'} = $name; return %data; } ################################################## ################################################## =pod =item check_cloners Checks if new users included in list of allowed cloners are valid users. Replaces supplied list with cleaned list containing only users with valid usernames and domains. Inputs: $clonelist, $oldcloner where $clonelist is ref to array of requested cloners, and $oldcloner is ref to array of currently allowed cloners. Returns: string - comma separated list of requested cloners (username:domain) who do not exist in system. =item change_clone Modifies the list of courses a user can clone (stored in the user's environment.db file), called when a change is made to the list of users allowed to clone a course. Inputs: $action,$cloner where $action is add or drop, and $cloner is identity of user for whom cloning ability is to be changed in course. =cut ################################################## ################################################## sub extract_cloners { my ($clonelist,$allowclone) = @_; if ($clonelist =~ /,/) { @{$allowclone} = split/,/,$clonelist; } else { $$allowclone[0] = $clonelist; } } sub check_cloners { my ($clonelist,$oldcloner) = @_; my ($clean_clonelist,$disallowed); my @allowclone = (); &extract_cloners($$clonelist,\@allowclone); foreach my $currclone (@allowclone) { if (!grep/^$currclone$/,@$oldcloner) { my ($uname,$udom) = split/:/,$currclone; if ($uname && $udom) { if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') { $disallowed .= $currclone.','; } else { $clean_clonelist .= $currclone.','; } } } else { $clean_clonelist .= $currclone.','; } } if ($disallowed) { $disallowed =~ s/,$//; } if ($clean_clonelist) { $clean_clonelist =~ s/,$//; } $$clonelist = $clean_clonelist; return $disallowed; } sub change_clone { my ($clonelist,$oldcloner) = @_; my ($uname,$udom); my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $clone_crs = $cnum.':'.$cdom; if ($cnum && $cdom) { my @allowclone; &extract_cloners($clonelist,\@allowclone); foreach my $currclone (@allowclone) { if (!grep/^$currclone$/,@$oldcloner) { ($uname,$udom) = split/:/,$currclone; if ($uname && $udom) { unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') { my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable'); if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) { if ($currclonecrs{'cloneable'} eq '') { $currclonecrs{'cloneable'} = $clone_crs; } else { $currclonecrs{'cloneable'} .= ','.$clone_crs; } &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname); } } } } } foreach my $oldclone (@$oldcloner) { if (!grep/^$oldclone$/,@allowclone) { ($uname,$udom) = split/:/,$oldclone; if ($uname && $udom) { unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') { my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable'); my %newclonecrs = (); if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) { if ($currclonecrs{'cloneable'} =~ /,/) { my @currclonecrs = split/,/,$currclonecrs{'cloneable'}; foreach (@currclonecrs) { unless ($_ eq $clone_crs) { $newclonecrs{'cloneable'} .= $_.','; } } $newclonecrs{'cloneable'} =~ s/,$//; } else { $newclonecrs{'cloneable'} = ''; } &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname); } } } } } } } ################################################## ################################################## =pod =item * header Output html header for page =cut ################################################## ################################################## sub header { return &Apache::loncommon::start_page('Parameter Manager'); } ################################################## ################################################## sub print_main_menu { my ($r,$parm_permission)=@_; # $r->print(<'; $menu_html.=''; if (exists($menu_item->{'help'})) { $menu_html.= &Apache::loncommon::help_open_topic($menu_item->{'help'}); } $menu_html.='
'.$/; } $r->print($menu_html); return; } ### Set portfolio metadata sub output_row { my ($r, $field_name, $field_text, $added_flag) = @_; my $output; my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; if (!defined($options)) { $options = 'active,stuadd'; $values = ''; } if (!($options =~ /deleted/)) { my @options= ( ['active', 'Show to student'], ['stuadd', 'Provide text area for students to type catalog information'], ['choices','Provide choices for students to select from']); # ['onlyone','Student may select only one choice']); if ($added_flag) { push @options,['deleted', 'Delete Metadata Field']; } $output = &Apache::loncommon::start_data_table_row(); $output .= '| '); $r->print(' | '); $r->print(''); $r->print(''); $r->print(''); $r->print($$fields{$key}.' |