version 1.141, 2006/07/06 22:51:34
|
version 1.145, 2006/07/21 08:59:30
|
Line 1270 returns: nothing
|
Line 1270 returns: nothing
|
# if ($bug ne '') { |
# if ($bug ne '') { |
# $icons .= &Apache::loncommon::help_open_bug($bug); |
# $icons .= &Apache::loncommon::help_open_bug($bug); |
# } |
# } |
if ($helplink ne 'nohelp') { |
if ($faq ne '' || $component_help ne '' || $bug ne '') { |
$icons .= &Apache::loncommon::help_open_menu($component, |
$icons .= &Apache::loncommon::help_open_menu($component, |
$component_help, |
$component_help, |
$faq,$bug); |
$faq,$bug); |
} |
} |
if ($icons ne '') { |
|
$Str .= $icons.' '; |
|
} |
|
# |
# |
$Str .= $links.'</td>'; |
$Str .= $links.'</td>'; |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td class="'.$css_class.'_component">'. |
$Str .= '<td class="'.$css_class.'_component">'. |
&mt($component).'</td>'; |
&mt($component); |
|
if ($icons ne '') { |
|
$Str .= ' '.$icons; |
|
} |
|
$Str .= '</td>'; |
} |
} |
$Str .= '</tr></table>'."\n"; |
$Str .= '</tr></table>'."\n"; |
# |
# |
Line 1361 returns: nothing
|
Line 1362 returns: nothing
|
# needs that are not accommodated by the *_select_row() routines. |
# needs that are not accommodated by the *_select_row() routines. |
|
|
sub start_pick_box { |
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"; |
my $output = <<"END"; |
<table width="$table_width" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"> |
<table $css_class> |
<tr> |
|
<td> |
|
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> |
|
<tr> |
|
<td> |
|
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
|
END |
END |
return $output; |
return $output; |
} |
} |
Line 1377 END
|
Line 1377 END
|
sub end_pick_box { |
sub end_pick_box { |
my $output = <<"END"; |
my $output = <<"END"; |
</table> |
</table> |
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
END |
END |
return $output; |
return $output; |
} |
} |
|
|
sub row_title { |
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"; |
my $output = <<"ENDONE"; |
<tr> |
<tr class="LC_pick_box_row"> |
<td width="$col_width" bgcolor="$tablecolor"> |
<td $css_title_class> |
<table width="$col_width" border="0" cellpadding="8" cellspacing="0"> |
$title: |
<tr> |
|
<td align="right"><b>$title:</b> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
</td> |
<td width="100%" valign="top"> |
<td $css_value_class> |
<table width="100%" border="0" cellpadding="8" cellspacing="0"> |
|
<tr> |
|
ENDONE |
ENDONE |
return $output; |
return $output; |
} |
} |
|
|
sub row_closure { |
sub row_closure { |
|
my ($no_separator) =@_; |
my $output = <<"ENDTWO"; |
my $output = <<"ENDTWO"; |
</tr> |
|
</table> |
|
</td> |
</td> |
</tr> |
</tr> |
|
ENDTWO |
|
if (!$no_separator) { |
|
$output .= <<"ENDTWO"; |
<tr> |
<tr> |
<td width="100%" colspan="2" bgcolor="#000000"> |
<td colspan="2" class="LC_pick_box_separator"> |
<img src="/adm/lonMisc/blackdot.gif" /><br /> |
|
</td> |
</td> |
</tr> |
</tr> |
ENDTWO |
ENDTWO |
|
} |
return $output; |
return $output; |
} |
} |
|
|
sub role_select_row { |
sub role_select_row { |
my ($roles,$col_width,$tablecolor,$title) = @_; |
my ($roles,$title,$css_class) = @_; |
my $output; |
my $output; |
if (defined($title)) { |
if (defined($title)) { |
$output = &row_title($col_width,$tablecolor,$title); |
$output = &row_title($title,$css_class); |
} |
} |
$output .= qq| <td valign="top"> |
$output .= qq| |
<select name="roles" multiple >\n|; |
<select name="roles" multiple >\n|; |
foreach my $role (@$roles) { |
foreach my $role (@$roles) { |
my $plrole; |
my $plrole; |
Line 1438 sub role_select_row {
|
Line 1433 sub role_select_row {
|
} |
} |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
} |
} |
$output .= qq| </select> |
$output .= qq| </select>\n|; |
</td>\n|; |
|
if (defined($title)) { |
if (defined($title)) { |
$output .= &row_closure(); |
$output .= &row_closure(); |
} |
} |
Line 1447 sub role_select_row {
|
Line 1441 sub role_select_row {
|
} |
} |
|
|
sub course_select_row { |
sub course_select_row { |
my ($col_width,$tablecolor,$title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, |
my $output = &row_title($col_width,$tablecolor,$title); |
$css_class) = @_; |
$output .= " <td>\n"; |
my $output = &row_title($title,$css_class); |
$output .= qq| |
$output .= qq| |
<script type="text/javascript" language="Javascript" > |
<script type="text/javascript"> |
function coursePick (formname) { |
function coursePick (formname) { |
for (var i=0; i<formname.coursepick.length; i++) { |
for (var i=0; i<formname.coursepick.length; i++) { |
if (formname.coursepick[i].value == 'category') { |
if (formname.coursepick[i].value == 'category') { |
Line 1523 sub course_select_row {
|
Line 1517 sub course_select_row {
|
$output .= '</tr></table><br />'; |
$output .= '</tr></table><br />'; |
} |
} |
} |
} |
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."'".','."'".'dccourse'."'".','."'".'dcdomain'."'".','."'".'coursedesc'."','','1'".')" />'.&mt('Pick specific course(s):').' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br /></td>'."\n"; |
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."'".','."'".'dccourse'."'".','."'".'dcdomain'."'".','."'".'coursedesc'."','','1'".')" />'.&mt('Pick specific course(s):').' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n"; |
$output .= &row_closure(); |
$output .= &row_closure(); |
return $output; |
return $output; |
} |
} |
|
|
sub status_select_row { |
sub status_select_row { |
my ($types,$col_width,$tablecolor,$title) = @_; |
my ($types,$title,$css_class) = @_; |
my $output; |
my $output; |
if (defined($title)) { |
if (defined($title)) { |
$output = &row_title($col_width,$tablecolor,$title); |
$output = &row_title($title,$css_class,'LC_pick_box_select'); |
} |
} |
$output .= qq| <td valign="top"> |
$output .= qq| |
<select name="types" multiple>\n|; |
<select name="types" multiple>\n|; |
foreach my $status_type (sort(keys(%{$types}))) { |
foreach my $status_type (sort(keys(%{$types}))) { |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>'; |
} |
} |
$output .= qq| </select> |
$output .= qq| </select>\n|; |
</td>\n|; |
|
if (defined($title)) { |
if (defined($title)) { |
$output .= &row_closure(); |
$output .= &row_closure(); |
} |
} |
Line 1548 sub status_select_row {
|
Line 1541 sub status_select_row {
|
} |
} |
|
|
sub email_default_row { |
sub email_default_row { |
my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_; |
my ($authtypes,$title,$descrip,$css_class) = @_; |
my $output = &row_title($col_width,$tablecolor,$title); |
my $output = &row_title($title,$css_class); |
my @rowcols = ('#eeeeee','#dddddd'); |
my @rowcols = ('#eeeeee','#dddddd'); |
$output .= ' <td>'.$descrip; |
$output .= $descrip. |
$output .= &start_pick_box(''); |
&Apache::loncommon::start_data_table(). |
$output .= ' <tr bgcolor="'.$tablecolor.'"> |
&Apache::loncommon::start_data_table_header_row(). |
<td><b>'.&mt('Authentication Method').'</b></td><td align="right"><b>'.&mt('Username -> e-mail conversion').'</b></td> |
'<th>'.&mt('Authentication Method').'</th>'. |
</tr>'."\n"; |
'<th align="right">'.&mt('Username -> e-mail conversion').'</th>'."\n". |
|
&Apache::loncommon::end_data_table_header_row(); |
my $rownum = 0; |
my $rownum = 0; |
foreach my $auth (sort(keys(%{$authtypes}))) { |
foreach my $auth (sort(keys(%{$authtypes}))) { |
my ($userentry,$size); |
my ($userentry,$size); |
my $rowiter = $rownum%2; |
|
if ($auth =~ /^krb/) { |
if ($auth =~ /^krb/) { |
$userentry = ''; |
$userentry = ''; |
$size = 25; |
$size = 25; |
Line 1567 sub email_default_row {
|
Line 1560 sub email_default_row {
|
$userentry = 'username@'; |
$userentry = 'username@'; |
$size = 15; |
$size = 15; |
} |
} |
$output .= '<tr bgcolor="'.$rowcols[$rowiter].'"><td> '.$$authtypes{$auth}.'</td><td align="right">'.$userentry.'<input type="text" name="'.$auth.'" size="'.$size.'" /></td></tr>'; |
$output .= &Apache::loncommon::start_data_table_row(). |
$rownum ++; |
'<td> '.$$authtypes{$auth}.'</td>'. |
|
'<td align="right">'.$userentry. |
|
'<input type="text" name="'.$auth.'" size="'.$size.'" /></td>'. |
|
&Apache::loncommon::end_data_table_row(); |
} |
} |
$output .= &end_pick_box(); |
$output .= &Apache::loncommon::end_data_table(); |
$output .= " <br /></td>\n"; |
|
$output .= &row_closure(); |
$output .= &row_closure(); |
return $output; |
return $output; |
} |
} |
|
|
|
|
sub submit_row { |
sub submit_row { |
my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_; |
my ($title,$cmd,$submit_text,$css_class) = @_; |
my $output = &row_title($col_width,$tablecolor,$title); |
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
$output .= qq| |
$output .= qq| |
<td width="100%" valign="top" align="right"> |
|
<br /> |
<br /> |
<input type="hidden" name="command" value="$cmd" /> |
<input type="hidden" name="command" value="$cmd" /> |
<input type="submit" value="$submit_text"/> |
<input type="submit" value="$submit_text"/> |
<br /><br /> |
<br /><br /> |
</td>\n|; |
\n|; |
return $output; |
return $output; |
} |
} |
|
|