|
version 1.256, 2009/04/04 20:06:43
|
version 1.257, 2009/05/06 16:19:50
|
|
Line 384 sub selectbox {
|
Line 384 sub selectbox {
|
| my $selout="\n".&Apache::lonhtmlcommon::row_title($title) |
my $selout="\n".&Apache::lonhtmlcommon::row_title($title) |
| .'<select name="'.$name.'">'; |
.'<select name="'.$name.'">'; |
| foreach (@idlist) { |
foreach (@idlist) { |
| $selout.='<option value=\''.$_.'\''; |
$selout.='<option value="'.$_.'"'; |
| if ($_ eq $value) { |
if ($_ eq $value) { |
| $selout.=' selected>'.&{$functionref}($_).'</option>'; |
$selout.=' selected="selected"'; |
| } |
} |
| else {$selout.='>'.&{$functionref}($_).'</option>';} |
$selout.='>'.&{$functionref}($_).'</option>'; |
| } |
} |
| $selout.='</select>'.&Apache::lonhtmlcommon::row_closure(); |
$selout.='</select>'.&Apache::lonhtmlcommon::row_closure(); |
| return $selout; |
return $selout; |
|
Line 1401 END
|
Line 1401 END
|
| (&Apache::loncommon::source_copyrightids)); |
(&Apache::loncommon::source_copyrightids)); |
| # $intr_scrout.=&text_with_browse_field('Source Custom Distribution File','sourcerights',$metadatafields{'sourcerights'},'rights'); |
# $intr_scrout.=&text_with_browse_field('Source Custom Distribution File','sourcerights',$metadatafields{'sourcerights'},'rights'); |
| my $uctitle=&mt('Obsolete'); |
my $uctitle=&mt('Obsolete'); |
| my $obsolete_checked=($metadatafields{'obsolete'})?' checked="checked" ':''; |
my $obsolete_checked=($metadatafields{'obsolete'})?' checked="checked"':''; |
| $intr_scrout.="\n".&Apache::lonhtmlcommon::row_title($uctitle) |
$intr_scrout.="\n".&Apache::lonhtmlcommon::row_title($uctitle) |
| .'<input type="checkbox" name="obsolete"'.$obsolete_checked.' />' |
.'<input type="checkbox" name="obsolete"'.$obsolete_checked.' />' |
| .&Apache::lonhtmlcommon::row_closure(1); |
.&Apache::lonhtmlcommon::row_closure(1); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher