version 1.112, 2005/10/04 19:59:15
|
version 1.118, 2005/11/15 20:46:40
|
Line 1246 returns: nothing
|
Line 1246 returns: nothing
|
# |
# |
# In general a &submit_row() call should proceed the call to &end_pick_box(), |
# In general a &submit_row() call should proceed the call to &end_pick_box(), |
# as this routine adds a button for form submission. |
# 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. |
# &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. |
# rows should be placed between calls to &start_pick_box() and &end_pick_box. |
Line 1317 ENDONE
|
Line 1317 ENDONE
|
} |
} |
|
|
sub row_closure { |
sub row_closure { |
my $output .= <<"ENDTWO"; |
my $output = <<"ENDTWO"; |
</tr> |
</tr> |
</table> |
</table> |
</td> |
</td> |
Line 1333 ENDTWO
|
Line 1333 ENDTWO
|
|
|
sub role_select_row { |
sub role_select_row { |
my ($roles,$col_width,$tablecolor,$title) = @_; |
my ($roles,$col_width,$tablecolor,$title) = @_; |
my $output = &row_title($col_width,$tablecolor,$title); |
my $output; |
|
if (defined($title)) { |
|
$output = &row_title($col_width,$tablecolor,$title); |
|
} |
$output .= qq| <td> |
$output .= qq| <td> |
<select name="roles" multiple >\n|; |
<select name="roles" multiple >\n|; |
foreach (@$roles) { |
foreach my $role (@$roles) { |
my $plrole=&Apache::lonnet::plaintext($_); |
my $plrole; |
$output .= ' <option value="'.$_.'">'.$plrole.'</option>'; |
if ($role eq 'ow') { |
|
$plrole = &mt('Course Owner'); |
|
} else { |
|
$plrole=&Apache::lonnet::plaintext($role); |
|
} |
|
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
} |
} |
$output .= qq| </select> |
$output .= qq| </select> |
</td>\n|; |
</td>\n|; |
$output .= &row_closure(); |
if (defined($title)) { |
|
$output .= &row_closure(); |
|
} |
return $output; |
return $output; |
} |
} |
|
|
Line 1354 sub course_select_row {
|
Line 1364 sub course_select_row {
|
<script type="text/javascript" language="Javascript" > |
<script type="text/javascript" language="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') { |
|
courseSet(''); |
|
} |
if (!formname.coursepick[i].checked) { |
if (!formname.coursepick[i].checked) { |
if (formname.coursepick[i].value == 'category') { |
|
courseSet(''); |
|
} |
|
if (formname.coursepick[i].value == 'specific') { |
if (formname.coursepick[i].value == 'specific') { |
formname.coursetotal.value = 0; |
formname.coursetotal.value = 0; |
formname.courselist = ''; |
formname.courselist = ''; |
Line 1365 sub course_select_row {
|
Line 1375 sub course_select_row {
|
} |
} |
} |
} |
} |
} |
|
function setPick (formname) { |
|
for (var i=0; i<formname.coursepick.length; i++) { |
|
if (formname.coursepick[i].value == 'category') { |
|
formname.coursepick[i].checked = true; |
|
} |
|
formname.coursetotal.value = 0; |
|
formname.courselist = ''; |
|
} |
|
} |
</script> |
</script> |
|; |
|; |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
($formname,'pickcourse','pickdomain','coursedesc').'</b>'; |
($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>'; |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses'); |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses'); |
my $numtitles = @$codetitles; |
my $numtitles = @$codetitles; |
Line 1376 sub course_select_row {
|
Line 1395 sub course_select_row {
|
$output .= '<br /><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />'; |
$output .= '<br /><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />'; |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
'<select name="'.$$codetitles[0]. |
'<select name="'.$$codetitles[0]. |
'" onChange="courseSet('."'$$codetitles[0]'".')">'."\n". |
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n". |
' <option value="-1" />Select'."\n"; |
' <option value="-1" />Select'."\n"; |
my @items = (); |
my @items = (); |
my @longitems = (); |
my @longitems = (); |
if ($$idlist{$$codetitles[0]} =~ /","/) { |
if ($$idlist{$$codetitles[0]} =~ /","/) { |
@items = split/","/,$$idlist{$$codetitles[0]}; |
@items = split(/","/,$$idlist{$$codetitles[0]}); |
} else { |
} else { |
$items[0] = $$idlist{$$codetitles[0]}; |
$items[0] = $$idlist{$$codetitles[0]}; |
} |
} |
if (defined($$idlist_titles{$$codetitles[0]})) { |
if (defined($$idlist_titles{$$codetitles[0]})) { |
if ($$idlist_titles{$$codetitles[0]} =~ /","/) { |
if ($$idlist_titles{$$codetitles[0]} =~ /","/) { |
@longitems = split/","/,$$idlist_titles{$$codetitles[0]}; |
@longitems = split(/","/,$$idlist_titles{$$codetitles[0]}); |
} else { |
} else { |
$longitems[0] = $$idlist_titles{$$codetitles[0]}; |
$longitems[0] = $$idlist_titles{$$codetitles[0]}; |
} |
} |
Line 1414 sub course_select_row {
|
Line 1433 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('."'".'rolefilter'."'".','."'".'dccourse'."'".','."'".'dcdomain'."'".','."'".'coursedesc'."',''".')" />'.&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 /></td>'."\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,$col_width,$tablecolor,$title) = @_; |
my $output = &row_title($col_width,$tablecolor,$title); |
my $output; |
|
if (defined($title)) { |
|
$output = &row_title($col_width,$tablecolor,$title); |
|
} |
$output .= qq| <td> |
$output .= qq| <td> |
<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> |
</td>\n|; |
</td>\n|; |
$output .= &row_closure(); |
if (defined($title)) { |
|
$output .= &row_closure(); |
|
} |
return $output; |
return $output; |
} |
} |
|
|
Line 1437 sub email_default_row {
|
Line 1461 sub email_default_row {
|
my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_; |
my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_; |
my $output = &row_title($col_width,$tablecolor,$title); |
my $output = &row_title($col_width,$tablecolor,$title); |
my @rowcols = ('#eeeeee','#dddddd'); |
my @rowcols = ('#eeeeee','#dddddd'); |
$output .= ' <td>'.$descrip.' |
$output .= ' <td>'.$descrip; |
<table> |
$output .= &start_pick_box(''); |
<tr> |
$output .= ' <tr bgcolor="'.$tablecolor.'"> |
<td><b>'.&mt('Authentication Method').'</b></td><td> </td><td> </td><td><b>'.&mt('Username -> e-mail conversion').'</b></td> |
<td><b>'.&mt('Authentication Method').'</b></td><td align="right"><b>'.&mt('Username -> e-mail conversion').'</b></td> |
</tr>'."\n"; |
</tr>'."\n"; |
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; |
my $rowiter = $rownum%2; |
if ($auth =~ /^krb/) { |
if ($auth =~ /^krb/) { |
Line 1453 sub email_default_row {
|
Line 1477 sub email_default_row {
|
$userentry = 'username@'; |
$userentry = 'username@'; |
$size = 15; |
$size = 15; |
} |
} |
$output .= '<tr rowcolor="'.$rowcols[$rowiter].'"><td> '.$$authtypes{$auth}.'</td><td> </td><td align="right">'.$userentry.'</td><td><input type="text" name="'.$auth.'" size="'.$size.'" /></td></tr>'; |
$output .= '<tr bgcolor="'.$rowcols[$rowiter].'"><td> '.$$authtypes{$auth}.'</td><td align="right">'.$userentry.'<input type="text" name="'.$auth.'" size="'.$size.'" /></td></tr>'; |
$rownum ++; |
$rownum ++; |
} |
} |
$output .= " </table> |
$output .= &end_pick_box(); |
</td>\n"; |
$output .= " <br /></td>\n"; |
$output .= &row_closure(); |
$output .= &row_closure(); |
return $output; |
return $output; |
} |
} |
Line 1465 sub email_default_row {
|
Line 1489 sub email_default_row {
|
|
|
sub submit_row { |
sub submit_row { |
my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_; |
my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_; |
my $output .= &row_title($col_width,$tablecolor,$title); |
my $output = &row_title($col_width,$tablecolor,$title); |
$output .= qq| |
$output .= qq| |
<td width="100%" valign="top" align="right"> |
<td width="100%" valign="top" align="right"> |
<br /> |
<br /> |