version 1.10, 2002/09/17 15:32:46
|
version 1.13, 2003/02/20 14:34:59
|
Line 438 sub StatusOptions {
|
Line 438 sub StatusOptions {
|
$Str .= '</select>'."\n"; |
$Str .= '</select>'."\n"; |
} |
} |
|
|
|
|
|
######################################################## |
|
######################################################## |
|
|
|
=pod |
|
|
|
=item &MultipleSectionSelect() |
|
|
|
Inputs: |
|
|
|
=over 4 |
|
|
|
=item $sections A references to an array containing the names of all the |
|
sections used in a class. |
|
|
|
=item $selectedSections A reference to an array containing the names of the |
|
currently selected sections. |
|
|
|
=back |
|
|
|
Returns: a string containing HTML for a multiple select box for |
|
selecting sections of a course. |
|
|
|
The form element name is 'Section'. @$sections is sorted prior to output. |
|
|
|
=cut |
|
|
|
######################################################## |
|
######################################################## |
sub MultipleSectionSelect { |
sub MultipleSectionSelect { |
my ($sections,$selectedSections)=@_; |
my ($sections,$selectedSections)=@_; |
|
|
my $Str = ''; |
my $Str = ''; |
$Str .= '<select name="Section" multiple="true" size="4">'."\n"; |
$Str .= '<select name="Section" multiple="true" size="4">'."\n"; |
|
|
foreach (@$sections) { |
foreach (sort @$sections) { |
$Str .= '<option'; |
$Str .= '<option'; |
foreach my $selected (@$selectedSections) { |
foreach my $selected (@$selectedSections) { |
if($_ eq $selected) { |
if($_ eq $selected) { |
Line 454 sub MultipleSectionSelect {
|
Line 483 sub MultipleSectionSelect {
|
$Str .= '>'.$_.'</option>'."\n"; |
$Str .= '>'.$_.'</option>'."\n"; |
} |
} |
$Str .= '</select>'."\n"; |
$Str .= '</select>'."\n"; |
|
|
return $Str; |
return $Str; |
} |
} |
|
|
|
######################################################## |
|
######################################################## |
|
|
|
=pod |
|
|
|
=item &Title() |
|
|
|
Inputs: $pageName a string containing the name of the page to be sent |
|
to &Apache::loncommon::bodytag. |
|
|
|
Returns: string containing being <html> and complete <head> and <title> |
|
as well as a <script> to focus the current window and change its width |
|
and height to 500. Why? I do not know. If you find out, please update |
|
this documentation. |
|
|
|
=cut |
|
|
|
######################################################## |
|
######################################################## |
sub Title { |
sub Title { |
my ($pageName)=@_; |
my ($pageName)=@_; |
|
|
Line 471 sub Title {
|
Line 519 sub Title {
|
return $Str; |
return $Str; |
} |
} |
|
|
|
######################################################## |
|
######################################################## |
|
|
=pod |
=pod |
|
|
=item &CreateTableHeadings() |
=item &CreateHeadings() |
|
|
This function generates the column headings for the chart. |
This function generates the column headings for the chart. |
|
|
Line 498 $Str: A formatted string of the table co
|
Line 549 $Str: A formatted string of the table co
|
|
|
=cut |
=cut |
|
|
|
######################################################## |
|
######################################################## |
sub CreateHeadings { |
sub CreateHeadings { |
my ($data,$keyID,$headings,$displayString,$format)=@_; |
my ($data,$keyID,$headings,$displayString,$format)=@_; |
my $Str=''; |
my $Str=''; |
Line 524 sub CreateHeadings {
|
Line 577 sub CreateHeadings {
|
return $Str; |
return $Str; |
} |
} |
|
|
|
######################################################## |
|
######################################################## |
|
|
=pod |
=pod |
|
|
=item &FormatStudentInformation() |
=item &FormatStudentInformation() |
Line 553 $Str: Formatted string.
|
Line 609 $Str: Formatted string.
|
|
|
=cut |
=cut |
|
|
|
######################################################## |
|
######################################################## |
sub FormatStudentInformation { |
sub FormatStudentInformation { |
my ($data,$name,$keyID,$displayString,$format)=@_; |
my ($data,$name,$keyID,$displayString,$format)=@_; |
my $Str=''; |
my $Str=''; |
Line 577 sub FormatStudentInformation {
|
Line 635 sub FormatStudentInformation {
|
return $Str; |
return $Str; |
} |
} |
|
|
|
######################################################## |
|
######################################################## |
|
|
# Create progress |
# Create progress |
sub Create_PrgWin { |
sub Create_PrgWin { |
my ($r, $title, $heading)=@_; |
my ($r, $title, $heading)=@_; |