+
+
+
+
+
+
+END
+ return $output;
+}
+
+sub end_pick_box {
+ my $output = <<"END";
+
+ |
+
+
+ |
+
+
+END
+ return $output;
+}
+
+sub row_title {
+ my ($col_width,$tablecolor,$title) = @_;
+ my $output = <<"ENDONE";
+
+
+
+ |
+
+
+
+ENDONE
+ return $output;
+}
+
+sub row_closure {
+ my $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|
+
+ | \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";
+ $output .= qq|
+
+ |;
+ my $courseform=''.&Apache::loncommon::selectcourse_link
+ ($formname,'pickcourse','pickdomain','coursedesc').'';
+ if ($totcodes > 0) {
+ $output .= ''.&mt('All courses');
+ my $numtitles = @$codetitles;
+ if ($numtitles > 0) {
+ $output .= ' '.&mt('Pick courses by category:').' ';
+ $output .= ''.$$codetitles[0].' '."\n".
+ ' | ';
+ for (my $i=1; $i<$numtitles; $i++) {
+ $output .= ''.$$codetitles[$i].' '."\n".
+ ''."\n".
+ ' | ';
+ }
+ $output .= '
';
+ }
+ }
+ $output .= ''.&mt('Pick specific course(s):').' '.$courseform.' selected.
| '."\n";
+ $output .= &row_closure();
+ return $output;
+}
+
+sub status_select_row {
+ my ($types,$col_width,$tablecolor,$title) = @_;
+ my $output = &row_title($col_width,$tablecolor,$title);
+ $output .= qq|
+
+ | \n|;
+ $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 .= &row_closure();
+ return $output;
+}
+
+
+sub submit_row {
+ my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_;
+ my $output .= &row_title($col_width,$tablecolor,$title);
+ $output .= qq|
+
+
+
+
+
+ | \n|;
+ return $output;
+}
1;