'.
- '';
+ $css_class ||= 'LC_breadcrumbs';
+ my $Str = "\n".'';
#
# Make the faq and bug data cascade
my $faq = '';
@@ -1163,13 +1256,22 @@ returns: nothing
if (defined($_->{'target'}) && $_->{'target'} ne '') {
$result .= 'target="'.$_->{'target'}.'" ';
}
- $result .='title="'.&mt($_->{'title'}).'">'.
- &mt($_->{'text'}).'';
+ if ($_->{'no_mt'}) {
+ $result .='title="'.$_->{'title'}.'">'.
+ $_->{'text'}.'';
+ } else {
+ $result .='title="'.&mt($_->{'title'}).'">'.
+ &mt($_->{'text'}).'';
+ }
$result;
} @Crumbs
);
$links .= '->' if ($links ne '');
- $links .= ''.&mt($last->{'text'}).' ';
+ if ($last->{'no_mt'}) {
+ $links .= ''.$last->{'text'}.' ';
+ } else {
+ $links .= ''.&mt($last->{'text'}).' ';
+ }
#
my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));
@@ -1182,18 +1284,21 @@ returns: nothing
# if ($bug ne '') {
# $icons .= &Apache::loncommon::help_open_bug($bug);
# }
- if ($helplink ne 'nohelp') {
- $icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);
+ if ($faq ne '' || $component_help ne '' || $bug ne '') {
+ $icons .= &Apache::loncommon::help_open_menu($component,
+ $component_help,
+ $faq,$bug);
}
- if ($icons ne '') {
- $Str .= $icons.' ';
- }
#
- $Str .= $links.' ';
+ $Str .= $links.'';
#
if (defined($component)) {
- $Str .= ''.
- ''.&mt($component).' ';
+ $Str .= ''.
+ &mt($component);
+ if ($icons ne '') {
+ $Str .= ' '.$icons;
+ }
+ $Str .= ' ';
}
$Str .= '
'."\n";
#
@@ -1229,7 +1334,7 @@ returns: nothing
# row2
# row3 ... etc.
# &submit_row(0
-# &end_pickbox()
+# &end_pick_box()
#
# where row1, row 2 etc. are chosen from &role_select_row,&course_select_row,
# &status_select_row and &email_default_row
@@ -1246,7 +1351,7 @@ returns: nothing
#
# In general a &submit_row() call should proceed the call to &end_pick_box(),
# as this routine adds a button for form submission.
-# &submit_row(0 does not require a &row_closure after it.
+# &submit_row() does not require a &row_closure after it.
#
# &start_pick_box() creates a bounding table with 1-pixel wide black border.
# rows should be placed between calls to &start_pick_box() and &end_pick_box.
@@ -1271,15 +1376,14 @@ returns: nothing
# needs that are not accommodated by the *_select_row() routines.
sub start_pick_box {
- my ($table_width) = @_;
+ my ($css_class) = @_;
+ if (defined($css_class)) {
+ $css_class = 'class="'.$css_class.'"';
+ } else {
+ $css_class= 'class="LC_pick_box"';
+ }
my $output = <<"END";
-
-
-
-
-
-
-
+
END
return $output;
}
@@ -1287,77 +1391,96 @@ END
sub end_pick_box {
my $output = <<"END";
-
-
-
-
-
-
END
return $output;
}
sub row_title {
- my ($col_width,$tablecolor,$title) = @_;
+ my ($title,$css_title_class,$css_value_class) = @_;
+ $css_title_class ||= 'LC_pick_box_title';
+ $css_title_class = 'class="'.$css_title_class.'"';
+
+ $css_value_class ||= 'LC_pick_box_value';
+ $css_value_class = 'class="'.$css_value_class.'"';
+
my $output = <<"ENDONE";
-
-
-
+
+
+ $title:
-
-
-
+
ENDONE
return $output;
}
sub row_closure {
- my $output .= <<"ENDTWO";
-
-
+ my ($no_separator) =@_;
+ my $output = <<"ENDTWO";
+ENDTWO
+ if (!$no_separator) {
+ $output .= <<"ENDTWO";
-
-
ENDTWO
+ }
return $output;
}
sub role_select_row {
- my ($roles,$col_width,$tablecolor,$title) = @_;
- my $output = &row_title($col_width,$tablecolor,$title);
- $output .= qq|
+ my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;
+ my $output;
+ if (defined($title)) {
+ $output = &row_title($title,$css_class);
+ }
+ $output .= qq|
\n|;
- foreach (@$roles) {
- my $plrole=&Apache::lonnet::plaintext($_);
- $output .= ' '.$plrole.' ';
+ foreach my $role (@$roles) {
+ my $plrole;
+ if ($role eq 'ow') {
+ $plrole = &mt('Course Owner');
+ } elsif ($role eq 'cr') {
+ if ($show_separate_custom) {
+ if ($cdom ne '' && $cnum ne '') {
+ my %course_customroles = &course_custom_roles($cdom,$cnum);
+ foreach my $crrole (sort(keys(%course_customroles))) {
+ my ($plcrrole) = ($crrole =~ m|^cr/[^/]+/[^/]+/(.+)$|);
+ $output .= ' '.$plcrrole.
+ ' ';
+ }
+ }
+ } else {
+ $plrole = &mt('Custom Role');
+ }
+ } else {
+ $plrole=&Apache::lonnet::plaintext($role);
+ }
+ if (($role ne 'cr') || (!$show_separate_custom)) {
+ $output .= ' '.$plrole.' ';
+ }
+ }
+ $output .= qq| \n|;
+ if (defined($title)) {
+ $output .= &row_closure();
}
- $output .= qq|
- \n|;
- $output .= &row_closure();
return $output;
}
sub course_select_row {
- my ($col_width,$tablecolor,$title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;
- my $output = &row_title($col_width,$tablecolor,$title);
- $output .= " \n";
+ my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,
+ $css_class) = @_;
+ my $output = &row_title($title,$css_class);
$output .= qq|
-
|;
my $courseform=''.&Apache::loncommon::selectcourse_link
- ($formname,'pickcourse','pickdomain','coursedesc').' ';
+ ($formname,'pickcourse','pickdomain','coursedesc','',1).'';
+ $output .= ''.$$codetitles[0].''."\n".
+ '" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n".
'
'."\n";
+ $output .= '
+ my ($types,$title,$css_class) = @_;
+ my $output;
+ if (defined($title)) {
+ $output = &row_title($title,$css_class,'LC_pick_box_select');
+ }
+ $output .= qq|
\n|;
- foreach my $status_type (sort keys (%{$types})) {
+ foreach my $status_type (sort(keys(%{$types}))) {
$output .= ' '.$$types{$status_type}.' ';
}
- $output .= qq|
- \n|;
- $output .= &row_closure();
+ $output .= qq| \n|;
+ if (defined($title)) {
+ $output .= &row_closure();
+ }
return $output;
}
sub email_default_row {
- my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_;
- my $output = &row_title($col_width,$tablecolor,$title);
- my @rowcols = ('#eeeeee','#dddddd');
- $output .= ' '.$descrip.'
-
- \n";
+ $output .= &Apache::loncommon::end_data_table();
$output .= &row_closure();
return $output;
}
sub submit_row {
- my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_;
- my $output .= &row_title($col_width,$tablecolor,$title);
+ my ($title,$cmd,$submit_text,$css_class) = @_;
+ my $output = &row_title($title,$css_class,'LC_pick_box_submit');
$output .= qq|
-
\n|;
+ \n|;
+ return $output;
+}
+
+sub course_custom_roles {
+ my ($cdom,$cnum) = @_;
+ my %returnhash=();
+ my %coursepersonnel=&Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
+ foreach my $person (sort(keys(%coursepersonnel))) {
+ my ($role) = ($person =~ /^([^:]+):/);
+ my ($end,$start) = split(/:/,$coursepersonnel{$person});
+ if ($end == -1 && $start == -1) {
+ next;
+ }
+ if ($role =~ m|^cr/[^/]+/[^/]+/[^/]|) {
+ $returnhash{$role} ++;
+ }
+ }
+ return %returnhash;
+}
+
+
+##############################################
+##############################################
+
+# echo_form_input
+#
+# Generates html markup to add form elements from the referrer page
+# as hidden form elements (values encoded) in the new page.
+#
+# Intended to support two types of use
+# (a) to allow backing up to earlier pages in a multi-page
+# form submission process using a breadcrumb trail.
+#
+# (b) to allow the current page to be reloaded with form elements
+# set on previous page to remain unchanged. An example would
+# be where the a page containing a dynamically-built table of data is
+# is to be redisplayed, with only the sort order of the data changed.
+#
+# Inputs:
+# 1. Reference to array of form elements in the submitted form on
+# the referrer page which are to be excluded from the echoed elements.
+#
+# 2. Reference to array of regular expressions, which if matched in the
+# name of the form element n the referrer page will be omitted from echo.
+#
+# Outputs: A scalar containing the html markup for the echoed form
+# elements (all as hidden elements, with values encoded).
+
+
+sub echo_form_input {
+ my ($excluded,$regexps) = @_;
+ my $output = '';
+ foreach my $key (keys(%env)) {
+ if ($key =~ /^form\.(.+)$/) {
+ my $name = $1;
+ my $match = 0;
+ if ((!@{$excluded}) || (!grep/^$name$/,@{$excluded})) {
+ if (defined($regexps)) {
+ if (@{$regexps} > 0) {
+ foreach my $regexp (@{$regexps}) {
+ if ($name =~ /\Q$regexp\E/) {
+ $match = 1;
+ last;
+ }
+ }
+ }
+ }
+ if (!$match) {
+ if (ref($env{$key})) {
+ foreach my $value (@{$env{$key}}) {
+ $value = &HTML::Entities::encode($value,'<>&"');
+ $output .= '= 0) {
+ return true;
+ }
+ return false;
+ }
+}
+END
+ return $scripttag;
+}
+
+##############################################
+##############################################
+
+# javascript_window_dims
+#
+# Generates javascript to get the dimensions of the user's browser window.
+
+sub javascript_window_dims {
+ my $scripttag .= <<'END';
+function getDimensions(width,height) {
+ width.value = getWindowWidth();
+ height.value = getWindowHeight();
+ return;
+}
+
+function getWindowWidth() {
+ var width = 0;
+ if( document.documentElement && document.documentElement.clientWidth ) {
+ width = document.documentElement.clientWidth;
+ }
+ else if( document.body && document.body.clientWidth ) {
+ width = document.body.clientWidth;
+ }
+ else if( window.innerWidth ) {
+ width = window.innerWidth - 18;
+ }
+ return width;
+}
+
+function getWindowHeight() {
+ var height = 0;
+ if( document.documentElement && document.documentElement.clientHeight ) {
+ height = document.documentElement.clientHeight;
+ }
+ else if( document.body && document.body.clientHeight ) {
+ height = document.body.clientHeight;
+ }
+ else if( window.innerHeight ) {
+ height = window.innerHeight - 18;
+ }
+ return height;
+}
+
+END
+ return $scripttag;
+}
1;
__END__