version 1.402, 2006/06/26 23:32:56
|
version 1.407, 2006/06/29 16:03:39
|
Line 2796 Inputs:
|
Line 2796 Inputs:
|
=item * $no_inline_link, if true and in remote mode, don't show the |
=item * $no_inline_link, if true and in remote mode, don't show the |
'Switch To Inline Menu' link |
'Switch To Inline Menu' link |
|
|
|
|
=back |
=back |
|
|
Returns: A uniform header for LON-CAPA web pages. |
Returns: A uniform header for LON-CAPA web pages. |
Line 3148 table#LC_top_nav, table#LC_menubuttons {
|
Line 3147 table#LC_top_nav, table#LC_menubuttons {
|
background: $pgbg; |
background: $pgbg; |
border: 2px; |
border: 2px; |
border-collapse: separate; |
border-collapse: separate; |
|
padding: 0px; |
} |
} |
|
|
table#LC_title_bar, table#LC_breadcrumbs, table#LC_nav_location, |
table#LC_title_bar, table#LC_breadcrumbs, table#LC_nav_location, |
Line 3160 table#LC_title_bar.LC_with_remote {
|
Line 3160 table#LC_title_bar.LC_with_remote {
|
background: $pgbg; |
background: $pgbg; |
font-family: $sans; |
font-family: $sans; |
border-collapse: collapse; |
border-collapse: collapse; |
|
padding: 0px; |
} |
} |
|
|
table#LC_title_bar td { |
table#LC_title_bar td { |
Line 3199 table#LC_menubuttons img, table#LC_menub
|
Line 3200 table#LC_menubuttons img, table#LC_menub
|
table#LC_top_nav td { |
table#LC_top_nav td { |
background: $tabbg; |
background: $tabbg; |
border: 0px; |
border: 0px; |
|
font-size: small; |
} |
} |
table#LC_top_nav td a, div#LC_top_nav a { |
table#LC_top_nav td a, div#LC_top_nav a { |
color: $font; |
color: $font; |
Line 3604 Returns a uniform complete <head>..</hea
|
Line 3606 Returns a uniform complete <head>..</hea
|
|
|
Inputs: $title - optional title for the page |
Inputs: $title - optional title for the page |
$head_extra - optional extra HTML to put inside the <head> |
$head_extra - optional extra HTML to put inside the <head> |
|
|
=back |
=back |
|
|
=cut |
=cut |
Line 3717 Inputs: $args - additional optio
|
Line 3720 Inputs: $args - additional optio
|
a html attribute |
a html attribute |
frameset -> if true will start with a <frameset> |
frameset -> if true will start with a <frameset> |
rather than <body> |
rather than <body> |
=back |
|
|
|
=cut |
=cut |
|
|
Line 3842 sub simple_error_page {
|
Line 3844 sub simple_error_page {
|
|
|
=pod |
=pod |
|
|
=over 4 |
=item * &get_users_function() |
|
|
=item get_users_function |
|
|
|
Used by &bodytag to determine the current users primary role. |
Used by &bodytag to determine the current users primary role. |
Returns either 'student','coordinator','admin', or 'author'. |
Returns either 'student','coordinator','admin', or 'author'. |
Line 3871 sub get_users_function {
|
Line 3871 sub get_users_function {
|
|
|
=pod |
=pod |
|
|
=item check_user_status |
=item * &check_user_status |
|
|
Determines current status of supplied role for a |
Determines current status of supplied role for a |
specific user. Roles can be active, previous or future. |
specific user. Roles can be active, previous or future. |
Line 3925 sub check_user_status {
|
Line 3925 sub check_user_status {
|
|
|
=pod |
=pod |
|
|
=item get_sections |
=item * &get_sections() |
|
|
Determines all the sections for a course including |
Determines all the sections for a course including |
sections with students and sections containing other roles. |
sections with students and sections containing other roles. |
Line 3986 sub get_sections {
|
Line 3986 sub get_sections {
|
############################################### |
############################################### |
|
|
=pod |
=pod |
|
|
=item get_course_users |
=item * &get_course_users() |
|
|
Retrieves usernames:domains for users in the specified course |
Retrieves usernames:domains for users in the specified course |
with specific role(s), and access status. |
with specific role(s), and access status. |
|
|
Line 4011 Entries for end, start, section and stat
|
Line 4011 Entries for end, start, section and stat
|
of the possibility of multiple values for non-student roles. |
of the possibility of multiple values for non-student roles. |
|
|
=cut |
=cut |
|
|
############################################### |
############################################### |
|
|
sub get_course_users { |
sub get_course_users { |
my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata) = @_; |
my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata) = @_; |
my %idx = (); |
my %idx = (); |
Line 5173 sub course_type {
|
Line 5173 sub course_type {
|
if (!defined($cid)) { |
if (!defined($cid)) { |
$cid = $env{'request.course.id'}; |
$cid = $env{'request.course.id'}; |
} |
} |
if (defined($env{'course.'.$cid.'type'})) { |
if (defined($env{'course.'.$cid.'.type'})) { |
return $env{'course.'.$cid.'type'}; |
return $env{'course.'.$cid.'.type'}; |
} else { |
} else { |
return 'Course'; |
return 'Course'; |
} |
} |
} |
} |
|
|
|
sub group_term { |
|
my $crstype = &course_type(); |
|
my %names = ( |
|
'Course' => 'group', |
|
'Group' => 'team', |
|
); |
|
return $names{$crstype}; |
|
} |
|
|
sub icon { |
sub icon { |
my ($file)=@_; |
my ($file)=@_; |
my $curfext = (split(/\./,$file))[-1]; |
my $curfext = (split(/\./,$file))[-1]; |