//
@@ -2938,7 +2469,7 @@ ENDPARMSELSCRIPT
$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
&levelmenu($r,\%alllevs,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure());
- &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
+ &mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
&partmenu($r,\%allparts,\@psprt);
@@ -3024,7 +2555,6 @@ ENDPARMSELSCRIPT
if ($parm_permission->{'edit'}) {
undef($readonly);
}
- $r->print('');
if ($parmlev eq 'full') {
#
@@ -3144,24 +2674,20 @@ ENDTABLEHEADFOUR
my %type= ();
my %default=();
my $uri=&Apache::lonnet::declutter($uris{$rid});
- my $toolsymb;
- if ($uri =~ /ext\.tool$/) {
- $toolsymb = $symbp{$rid};
- }
my $filter=$env{'form.filter'};
foreach (&keysplit($keyp{$rid})) {
my $tempkeyp = $_;
if (grep $_ eq $tempkeyp, @catmarker) {
- my $parmname=&Apache::lonnet::metadata($uri,$_.'.name',$toolsymb);
+ my $parmname=&Apache::lonnet::metadata($uri,$_.'.name');
# We may only want certain parameters listed
if ($filter) {
unless ($filter=~/\Q$parmname\E/) { next; }
}
$name{$_}=$parmname;
- $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part',$toolsymb);
+ $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
- my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display',$toolsymb);
+ my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');
if ($allparms{$name{$_}} ne '') {
my $identifier;
if ($parmdis =~ /(\s*\[Part.*)$/) {
@@ -3173,9 +2699,9 @@ ENDTABLEHEADFOUR
}
unless ($display{$_}) { $display{$_}=''; }
$display{$_}.=' ('.$name{$_}.')';
- $default{$_}=&Apache::lonnet::metadata($uri,$_,$toolsymb);
- $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type',$toolsymb);
- $thistitle=&Apache::lonnet::metadata($uri,$_.'.title',$toolsymb);
+ $default{$_}=&Apache::lonnet::metadata($uri,$_);
+ $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
+ $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
}
}
my $totalparms=scalar keys %name;
@@ -3238,7 +2764,7 @@ ENDTABLEHEADFOUR
#-------------------------------------------- for each map, gather information
my $mapid;
- foreach $mapid (sort { $a <=> $b } keys(%maplist)) {
+ foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
my $maptitle = $maplist{$mapid};
#----------------------- loop through ids and get all parameter types for map
@@ -3260,10 +2786,6 @@ ENDTABLEHEADFOUR
if ($map eq $mapid) {
my $uri=&Apache::lonnet::declutter($uris{$rid});
- my $toolsymb;
- if ($uri =~ /ext\.tool$/) {
- $toolsymb = $symbp{$rid};
- }
# $r->print("Keys: $keyp{$rid}
\n");
#--------------------------------------------------------------------
@@ -3280,8 +2802,8 @@ ENDTABLEHEADFOUR
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";
- $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
- my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
+ $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
+ my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;
if ($parmdis =~ /(\s*\[Part.*)$/) {
@@ -3294,8 +2816,8 @@ ENDTABLEHEADFOUR
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;
- $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
- $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
+ $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
+ $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}
} # end loop through keys
}
@@ -3369,10 +2891,6 @@ ENDTABLEHEADFOUR
my $rid = $_;
my $uri=&Apache::lonnet::declutter($uris{$rid});
- my $toolsymb;
- if ($uri =~ /ext\.tool$/) {
- $toolsymb = $symbp{$rid};
- }
#--------------------------------------------------------------------
# @catmarker contains list of all possible parameters including part #s
@@ -3387,8 +2905,8 @@ ENDTABLEHEADFOUR
$tempkeyp =~ s/_\w+_/_0_/;
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";
- $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
- my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
+ $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
+ my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;
if ($parmdis =~ /(\s*\[Part.*)$/) {
@@ -3401,8 +2919,8 @@ ENDTABLEHEADFOUR
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;
- $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
- $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
+ $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
+ $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}
} # end loop through keys
} # end loop through ids
@@ -3445,7 +2963,6 @@ ENDMAPONE
.''
);
} # end of $parmlev eq general
- $r->print('
');
}
$r->print('');
$r->print(&Apache::loncommon::end_page());
@@ -3527,39 +3044,20 @@ sub storedata {
if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
my $cmd=$1;
my $thiskey=$2;
- next if ($cmd eq 'setipallow' || $cmd eq 'setipdeny' || $cmd eq 'setdeeplink');
my ($tuname,$tudom)=&extractuser($thiskey);
my $tkey=$thiskey;
if ($tuname) {
$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
}
if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {
- my ($data, $typeof, $text, $name, $valchk, $valmatch, $namematch);
+ my ($data, $typeof, $text, $name, $valchk);
if ($cmd eq 'set') {
$data=$env{$key};
- $valmatch = '';
$valchk = $data;
$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified parameter for');
if ($typeof eq 'string_questiontype') {
$name = 'type';
- } elsif ($typeof eq 'string_deeplink') {
- ($name) = ($typeof =~ /^string_(deeplink)$/);
- my $stringmatch = &standard_string_matches($typeof);
- if (ref($stringmatch) eq 'ARRAY') {
- foreach my $item (@{$stringmatch}) {
- if (ref($item) eq 'ARRAY') {
- my ($regexpname,$pattern) = @{$item};
- if ($pattern ne '') {
- if ($data =~ /$pattern/) {
- $valmatch = $regexpname;
- $valchk = '';
- last;
- }
- }
- }
- }
- }
} elsif ($typeof eq 'string_lenient') {
$name = 'lenient';
} elsif ($typeof eq 'string_discussvote') {
@@ -3573,8 +3071,6 @@ sub storedata {
if ($thiskey =~ /\.retrypartial$/) {
$name = 'retrypartial';
}
- } elsif ($typeof eq 'string_tex') {
- $name = 'texdisplay';
}
} elsif ($cmd eq 'datepointer') {
$data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
@@ -3706,7 +3202,7 @@ sub parse_listdata_key {
}
sub listdata {
- my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly,$parmlev)=@_;
+ my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly)=@_;
# Start list output
my $oldsection='';
@@ -3818,7 +3314,6 @@ sub listdata {
$realm=''.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'
('.$1.')';
} elsif ($middle) {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
- next if (($url =~ /\.(page|sequence)$/) && ($parmlev eq 'full') && ($caller eq 'newoverview'));
$realm=''.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'
('.$url.' in '.$map.' id: '.$id.')';
}
if ($sortorder eq 'realmstudent') {
@@ -3889,7 +3384,7 @@ sub listdata {
);
}
} elsif ($thistype eq 'date_interval') {
- $r->print(&date_interval_selector($thiskey,$name,
+ $r->print(&date_interval_selector($thiskey,
$$resourcedata{$thiskey},$readonly));
} elsif ($thistype =~ m/^string/) {
if ($name eq 'availablestudent') {
@@ -3912,9 +3407,8 @@ sub listdata {
sub date_interval_selector {
- my ($thiskey, $pname, $showval, $readonly) = @_;
- my ($result,%skipval);
- my $currval = $showval;
+ my ($thiskey, $showval, $readonly) = @_;
+ my $result;
foreach my $which (['days', 86400, 31],
['hours', 3600, 23],
['minutes', 60, 59],
@@ -3924,62 +3418,10 @@ sub date_interval_selector {
$showval %= $factor;
my %select = ((map {$_ => $_} (0..$max)),
'select_form_order' => [0..$max]);
- if ($currval eq '') {
- unshift(@{$select{'select_form_order'}},'');
- $select{''} = '';
- $amount = '';
- }
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
\%select,'',$readonly);
$result .= ' '.&mt($name);
}
- if ($pname eq 'interval') {
- unless ($skipval{'done'}) {
- my $checkedon = '';
- my $checkedoff = '';
- my $checkedproc = '';
- my $currproctorkey = '';
- my $currprocdisplay = 'hidden';
- my $currdonetext = &mt('Done');
- my $checkedoff = ' checked="checked"';
- if ($currval =~ /^(?:\d+)_done$/) {
- $checkedon = ' checked="checked"';
- } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
- $currdonetext = $1;
- $checkedon = ' checked="checked"';
- } elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
- $currproctorkey = $1;
- $checkedproc = ' checked="checked"';
- $currprocdisplay = 'text';
- } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
- $currdonetext = $1;
- $currproctorkey = $2;
- $checkedproc = ' checked="checked"';
- $currprocdisplay = 'text';
- } elsif ($currval ne '') {
- $checkedoff = ' checked="checked"';
- } else {
- $currdonetext = '';
- }
- my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
- my $disabled;
- if ($readonly) {
- $disabled = ' disabled="disabled"';
- }
- $result .= '
'.&mt('Include "done" button').
- ''.(' 'x2).
- ''.(' 'x2).
- ''.
- '&').'"'.$disabled.' />
'.
- ''.&mt('Button text').': '.
- '&').'"'.$disabled.' />';
- }
- }
unless ($readonly) {
$result .= '';
}
@@ -3990,36 +3432,15 @@ sub date_interval_selector {
sub get_date_interval_from_form {
my ($key) = @_;
my $seconds = 0;
- my $numnotnull = 0;
foreach my $which (['days', 86400],
['hours', 3600],
['minutes', 60],
['seconds', 1]) {
my ($name, $factor) = @{ $which };
if (defined($env{'form.'.$name.'_'.$key})) {
- unless ($env{'form.'.$name.'_'.$key} eq '') {
- $numnotnull ++;
- $seconds += $env{'form.'.$name.'_'.$key} * $factor;
- }
+ $seconds += $env{'form.'.$name.'_'.$key} * $factor;
}
}
- if (($key =~ /\.interval$/) &&
- (($env{'form.done_'.$key} eq '_done') || ($env{'form.done_'.$key} eq '_done_proctor'))) {
- if ($env{'form.done_'.$key.'_buttontext'}) {
- $env{'form.done_'.$key.'_buttontext'} =~ s/\://g;
- $seconds .= '_done:'.$env{'form.done_'.$key.'_buttontext'}.':';
- if ($env{'form.done_'.$key} eq '_done_proctor') {
- $seconds .= '_proctor';
- }
- } else {
- $seconds .= $env{'form.done_'.$key};
- }
- if (($env{'form.done_'.$key} eq '_done_proctor') &&
- ($env{'form.done_'.$key.'_proctorkey'})) {
- $seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};
- }
- }
- return if (!$numnotnull);
return $seconds;
}
@@ -4033,320 +3454,6 @@ sub default_selector {
return '';
}
-sub string_ip_selector {
- my ($thiskey, $showval, $readonly) = @_;
- my %access = (
- allow => [],
- deny => [],
- );
- if ($showval ne '') {
- my @current;
- if ($showval =~ /,/) {
- @current = split(/,/,$showval);
- } else {
- @current = ($showval);
- }
- foreach my $item (@current) {
- if ($item =~ /^\!([\[\]a-zA-Z\.\d\*\-]+)$/) {
- push(@{$access{'deny'}},$1);
- } elsif ($item =~ /^([\[\]a-zA-Z\.\d\*\-]+)$/) {
- push(@{$access{'allow'}},$item);
- }
- }
- }
- if (!@{$access{'allow'}}) {
- @{$access{'allow'}} = ('');
- }
- if (!@{$access{'deny'}}) {
- @{$access{'deny'}} = ('');
- }
- my ($disabled,$addmore);
- if ($readonly) {
- $disabled=' disabled="disabled"';
- } else {
- $addmore = "\n".'';
- }
- my $output = '
-'.&mt('Allow from').' | '.&mt('Deny from').' |
---|
';
- foreach my $acctype ('allow','deny') {
- $output .= '
-
-
- '."\n";
- my $num = 0;
- foreach my $curr (@{$access{$acctype}}) {
- $output .= ' '."\n";
- $num ++;
- }
- $output .= '
- '.$addmore.'
-
- | ';
- }
- $output .= '
-
-
'."\n";
- return $output;
-}
-
-sub string_deeplink_selector {
- my ($thiskey, $showval, $readonly) = @_;
- my (@tables,%values,@current,%titles,%options,%optiontext,%defaults,
- %selectnull,%domlti,%crslti,@possmenus,%components);
- @tables = ('upper','lower');
- %components = (
- upper => ['state','others','listing','scope'],
- lower => ['protect','menus','target','exit'],
- );
- %titles = &Apache::lonlocal::texthash (
- state => 'Access status',
- others => 'Hide other resources',
- listing => 'In Contents and/or Gradebook',
- scope => 'Access scope for link',
- protect => 'Link protection',
- menus => 'Menu Items Displayed',
- target => 'Embedded?',
- exit => 'Exit Tool Button?',
- );
- %options = (
- state => ['only','off','both'],
- others => ['hide','unhide'],
- listing => ['full','absent','grades','details','datestatus'],
- scope => ['res','map','rec'],
- protect => ['none','key','ltid','ltic'],
- menus => ['std','colls'],
- target => ['_self','_top'],
- exit => ['no','yes','url'],
- );
- %optiontext = &Apache::lonlocal::texthash (
- only => 'deep only',
- off => 'deeplink off',
- both => 'regular + deep',
- hide => 'Hidden',
- unhide => 'Unhidden',
- full => 'Listed (linked) in both',
- absent => 'Not listed',
- grades => 'Listed in grades only',
- details => 'Listed (unlinked) in both',
- datestatus => 'Listed (unlinked) inc. status in both',
- res => 'resource only',
- map => 'enclosing map/folder',
- rec => 'recursive map/folder',
- none => 'not in use',
- key => 'key access',
- ltic => 'LTI access (course)',
- ltid => 'LTI access (domain)' ,
- std => 'Standard (all menus)',
- colls => 'Numbered collection',
- _self => 'Embedded',
- _top => 'Not embedded',
- no => 'Not in use',
- yes => 'In use, no URL redirect',
- url => 'In use, redirect to URL',
- );
- %selectnull = &Apache::lonlocal::texthash (
- ltic => 'Select Launcher',
- ltid => 'Select Launcher',
- colls => 'Select',
- );
- if ($showval =~ /,/) {
- %values=();
- @current = split(/,/,$showval);
- ($values{'state'}) = ($current[0] =~ /^(only|off|both)$/);
- ($values{'others'}) = ($current[1] =~ /^(hide|unhide)$/);
- ($values{'listing'}) = ($current[2] =~ /^(full|absent|grades|details|datestatus)$/);
- ($values{'scope'}) = ($current[3] =~ /^(res|map|rec)$/);
- ($values{'protect'}) = ($current[4] =~ /^(key:[a-zA-Z\d_.!\@#\$%^&*()+=-]+|ltic:\d+|ltid:\d+)$/);
- ($values{'menus'}) = ($current[5] =~ /^(\d+)$/);
- ($values{'target'}) = ($current[6] =~ /^(_self|_top)$/);
- ($values{'exit'}) = ($current[7] =~ /^((?:(?:yes|url)(?:|\:[^:;"',]+))|no)$/);
- } else {
- $defaults{'state'} = 'off',
- $defaults{'others'} = 'unhide',
- $defaults{'listing'} = 'full';
- $defaults{'scope'} = 'res';
- $defaults{'protect'} = 'none';
- $defaults{'menus'} = '0';
- $defaults{'target'} = '_top';
- $defaults{'exit'} = 'yes';
- }
- my $disabled;
- if ($readonly) {
- $disabled=' disabled="disabled"';
- }
- my %courselti =
- &Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'},
- $env{'course.'.$env{'request.course.id'}.'.domain'},
- 'provider');
- foreach my $item (keys(%courselti)) {
- if (ref($courselti{$item}) eq 'HASH') {
- $crslti{$item} = $courselti{$item}{'name'};
- }
- }
- my %lti =
- &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
- 'linkprot');
- foreach my $item (keys(%lti)) {
- if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
- $domlti{$item} = $lti{$item}{'name'};
- }
- }
- if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
- foreach my $item (split(/;/,$env{'course.'.$env{'request.course.id'}.'.menucollections'})) {
- my ($num,$value) = split(/\%/,$item);
- if ($num =~ /^\d+$/) {
- push(@possmenus,$num);
- }
- }
- }
-
- my $output = '';
- foreach my $table ('upper','lower') {
- next unless (ref($components{$table}) eq 'ARRAY');
- $output .= ''."\n";
- if ($table eq 'upper') {
- $output .= '
';
- }
- }
- return $output;
-}
-
-{
-
my %strings =
(
'string_yesno'
@@ -4374,35 +3481,8 @@ my %strings =
=> [['yes','Yes'],
['notended','Yes, unless discussion ended'],
['no','No']],
- 'string_ip'
- => [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],
- ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],
- 'string_deeplink'
- => [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],
- 'string_tex'
- => [['tth', 'tth (TeX to HTML)'],
- ['mathjax', 'MathJax']],
);
-my %stringmatches = (
- 'string_ip'
- => [['_allowfrom_','[^\!]+'],
- ['_denyfrom_','\!']],
- 'string_deeplink'
- => [['on','^(only|off|both)\,(hide|unhide)\,(full|absent|grades|details|datestatus)\,(res|map|rec)\,(none|key\:\w+|ltic\:\d+|ltid\:\d+)\,(\d+|)\,_(self|top),(yes|url|no)(|:[^:;\'",]+)$']],
- );
-
-my %stringtypes = (
- type => 'string_questiontype',
- lenient => 'string_lenient',
- retrypartial => 'string_yesno',
- discussvote => 'string_discussvote',
- examcode => 'string_examcode',
- acc => 'string_ip',
- deeplink => 'string_deeplink',
- texdisplay => 'string_tex',
- );
-
sub standard_string_options {
my ($string_type) = @_;
if (ref($strings{$string_type}) eq 'ARRAY') {
@@ -4411,14 +3491,6 @@ sub standard_string_options {
return;
}
-sub standard_string_matches {
- my ($string_type) = @_;
- if (ref($stringmatches{$string_type}) eq 'ARRAY') {
- return $stringmatches{$string_type};
- }
- return;
-}
-
sub string_selector {
my ($thistype, $thiskey, $showval, $name, $readonly) = @_;
@@ -4449,12 +3521,6 @@ sub string_selector {
}
}
}
-
- if ($thistype eq 'string_ip') {
- return &string_ip_selector($thiskey,$showval,$readonly);
- } elsif ($thistype eq 'string_deeplink') {
- return &string_deeplink_selector($thiskey,$showval,$readonly);
- }
my ($result,$disabled);
@@ -4509,55 +3575,6 @@ sub string_selector {
return $result;
}
-sub oldversion_warning {
- my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
- my $desc;
- my %stringtypes = (
- type => 'string_questiontype',
- lenient => 'string_lenient',
- retrypartial => 'string_yesno',
- discussvote => 'string_discussvote',
- examcode => 'string_examcode',
- );
- if (exists($stringtypes{$name})) {
- if ($name eq 'examcode') {
- $desc = $value;
- } elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
- foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
- next unless (ref($possibilities) eq 'ARRAY');
- my ($parmval, $description) = @{ $possibilities };
- if ($parmval eq $value) {
- $desc = $description;
- last;
- }
- }
- }
- } elsif (($name eq 'printstartdate') || ($name eq 'printenddate')) {
- my $now = time;
- if ($value =~ /^\d+$/) {
- if ($name eq 'printstartdate') {
- if ($value > $now) {
- $desc = &Apache::lonlocal::locallocaltime($value);
- }
- } elsif ($name eq 'printenddate') {
- if ($value < $now) {
- $desc = &Apache::lonlocal::locallocaltime($value);
- }
- }
- }
- }
- my $standard_name = &standard_parameter_names($name);
- return ''.
- &mt('[_1] was [_2]not[_3] set to [_4].',
- $standard_name,'','','"'.$desc.'"').'
'.
- &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
- $cmajor.'.'.$cminor,$chostname,
- $needsrelease).
- '
';
-}
-
-}
-
#
# Shift all start and end dates by $shift
#
@@ -4631,10 +3648,6 @@ sub newoverview {
'.
&Apache::lonhtmlcommon::resize_scrollbox_js('params')."\n".
&showhide_js()."\n".
- &validateparms_js()."\n".
- &ipacc_boxes_js()."\n".
- &done_proctor_js()."\n".
- &deeplink_js()."\n".
'// ]]>
';
@@ -4643,7 +3656,7 @@ sub newoverview {
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
$r->print($start_page.$breadcrumbs);
$r->print(<
+