version 1.133, 2003/10/10 16:56:16
|
version 1.135, 2003/11/17 20:56:30
|
Line 518 sub print_td {
|
Line 518 sub print_td {
|
$r->print('</td>'."\n"); |
$r->print('</td>'."\n"); |
} |
} |
|
|
sub get_env_multiple { |
|
my ($name) = @_; |
|
my @values; |
|
if (defined($ENV{$name})) { |
|
# exists is it an array |
|
if (ref($ENV{$name})) { |
|
@values=@{ $ENV{$name} }; |
|
} else { |
|
$values[0]=$ENV{$name}; |
|
} |
|
} |
|
return(@values); |
|
} |
|
|
|
=pod |
=pod |
|
|
=item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes. |
=item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes. |
Line 693 sub assessparms {
|
Line 679 sub assessparms {
|
$udom=$ENV{'form.udom'}; |
$udom=$ENV{'form.udom'}; |
unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } |
unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } |
|
|
my @pscat=&get_env_multiple('form.pscat'); |
my @pscat=&Apache::loncommon::get_env_multiple('form.pscat'); |
my $pschp=$ENV{'form.pschp'}; |
my $pschp=$ENV{'form.pschp'}; |
my @psprt=&get_env_multiple('form.psprt'); |
my @psprt=&Apache::loncommon::get_env_multiple('form.psprt'); |
if (!@psprt) { $psprt[0]='0'; } |
if (!@psprt) { $psprt[0]='0'; } |
my $showoptions=$ENV{'form.showoptions'}; |
my $showoptions=$ENV{'form.showoptions'}; |
|
|
Line 1301 ENDTABLEHEADFOUR
|
Line 1287 ENDTABLEHEADFOUR
|
my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':''); |
my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':''); |
$r->print(<<ENDMAPONE); |
$r->print(<<ENDMAPONE); |
<center><h4> |
<center><h4> |
<font color="red">Set Defaults for All Resources in $foldermap<br /> |
Set Defaults for All Resources in $foldermap<br /> |
<i>$showtitle</i><br /> |
<font color="red"><i>$showtitle</i></font><br /> |
Specifically for |
Specifically for |
ENDMAPONE |
ENDMAPONE |
if ($uname) { |
if ($uname) { |
Line 1310 ENDMAPONE
|
Line 1296 ENDMAPONE
|
('firstname','middlename','lastname','generation', 'id')); |
('firstname','middlename','lastname','generation', 'id')); |
my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' |
my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' |
.$name{'lastname'}.' '.$name{'generation'}; |
.$name{'lastname'}.' '.$name{'generation'}; |
$r->print(&mt("User")." <i>$uname \($person\) </i> ". |
$r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ". |
&mt('in')." \n"); |
&mt('in')." \n"); |
} else { |
} else { |
$r->print("<i>".&mt('all').'</i> '.&mt('users in')." \n"); |
$r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n"); |
} |
} |
|
|
if ($csec) {$r->print(&mt("Section")." <i>$csec</i> ". |
if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ". |
&mt('of')." \n")}; |
&mt('of')." \n")}; |
|
|
$r->print("<i>$coursename</i><br />"); |
$r->print("<font color=\"red\"><i>$coursename</i></font><br />"); |
$r->print("</font></h4>\n"); |
$r->print("</h4>\n"); |
#---------------------------------------------------------------- print table |
#---------------------------------------------------------------- print table |
$r->print('<p><table border="2">'); |
$r->print('<p><table border="2">'); |
$r->print('<tr><th>'.&mt('Parameter Name').'</th>'); |
$r->print('<tr><th>'.&mt('Parameter Name').'</th>'); |
Line 1384 ENDMAPONE
|
Line 1370 ENDMAPONE
|
my $setdef=&mt("Set Defaults for All Resources in Course"); |
my $setdef=&mt("Set Defaults for All Resources in Course"); |
$r->print(<<ENDMAPONE); |
$r->print(<<ENDMAPONE); |
<center><h4>$setdef |
<center><h4>$setdef |
<font color="red"> |
<font color="red"><i>$coursename</i></font><br /> |
<i>$coursename</i><br /> |
|
ENDMAPONE |
ENDMAPONE |
if ($uname) { |
if ($uname) { |
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
('firstname','middlename','lastname','generation', 'id')); |
('firstname','middlename','lastname','generation', 'id')); |
my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' |
my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' |
.$name{'lastname'}.' '.$name{'generation'}; |
.$name{'lastname'}.' '.$name{'generation'}; |
$r->print(" ".&mt("User")." <i>$uname \($person\) </i> \n"); |
$r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n"); |
} else { |
} else { |
$r->print("<i>".&mt("ALL")."</i> ".&mt("USERS")." \n"); |
$r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n"); |
} |
} |
|
|
if ($csec) {$r->print(&mt("Section")." <i>$csec</i>\n")}; |
if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")}; |
$r->print("</font></h4>\n"); |
$r->print("</h4>\n"); |
#---------------------------------------------------------------- print table |
#---------------------------------------------------------------- print table |
$r->print('<p><table border="2">'); |
$r->print('<p><table border="2">'); |
$r->print('<tr><th>'.&mt('Parameter Name').'</th>'); |
$r->print('<tr><th>'.&mt('Parameter Name').'</th>'); |