version 1.206, 2009/01/03 19:34:21
|
version 1.208, 2009/02/10 12:12:13
|
Line 452 sub display_directory {
|
Line 452 sub display_directory {
|
$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />'; |
$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />'; |
} |
} |
if ($can_modify) { |
if ($can_modify) { |
my $cat='<img class="LC_icon" alt="'.&mt('Catalog Information'). |
my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'"/>'; |
'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />'; |
# src="'.#&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />'; |
my %anchor_fields = ( |
my %anchor_fields = ( |
'rename' => $filename, |
'rename' => $filename, |
currentpath => $current_path |
currentpath => $current_path |
Line 1572 sub domains_row {
|
Line 1572 sub domains_row {
|
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_; |
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_; |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then, |
'domains'); |
'domains'); |
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'. |
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple">'. |
' <option value="">'.&mt('Please select').'</option>'; |
' <option value="">'.&mt('Please select').'</option>'; |
if ($status eq 'old') { |
if ($status eq 'old') { |
my $content = $$access_controls{$item}; |
my $content = $$access_controls{$item}; |
Line 1716 sub role_selectors {
|
Line 1716 sub role_selectors {
|
'group' => $groups, |
'group' => $groups, |
); |
); |
foreach my $item ('role','access','section','group') { |
foreach my $item ('role','access','section','group') { |
$output .= '<td><select name="'.$item.$longid.'" multiple="true" size="4">'."\n"; |
$output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4">'."\n"; |
foreach my $entry (@{$allitems{$item}}) { |
foreach my $entry (@{$allitems{$item}}) { |
if ($caller eq 'display') { |
if ($caller eq 'display') { |
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && |
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && |