version 1.148, 2006/08/06 17:23:56
|
version 1.149, 2006/08/08 19:36:54
|
Line 66 sub group_form_data {
|
Line 66 sub group_form_data {
|
# receives a file name and path stub from username/userfiles/portfolio/ |
# receives a file name and path stub from username/userfiles/portfolio/ |
# returns an anchor tag consisting encoding filename and currentpath |
# returns an anchor tag consisting encoding filename and currentpath |
sub make_anchor { |
sub make_anchor { |
my ($url, $filename, $current_path, $current_mode, $field_name, |
my ($url, $anchor_fields, $inner_text) = @_; |
$continue_select) = @_; |
if ($$anchor_fields{'continue'} ne 'true') {$$anchor_fields{'continue'} = 'false'}; |
if ($continue_select ne 'true') {$continue_select = 'false'}; |
my $anchor = '<a href="'.$url.'?'; |
my $anchor = '<a href="'.$url.'?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&continue='.$continue_select.'&fieldname='.$field_name; |
foreach my $field_name (keys(%$anchor_fields)) { |
|
$anchor .= $field_name.'='.$$anchor_fields{$field_name}.'&'; |
|
} |
|
$anchor =~ s\&$\\; |
$anchor .= &group_args(); |
$anchor .= &group_args(); |
$anchor .= '">'.$filename.'</a>'; |
$anchor .= '">'.$inner_text.'</a>'; |
return $anchor; |
return $anchor; |
} |
} |
|
|
Line 129 sub display_common {
|
Line 132 sub display_common {
|
TABLE |
TABLE |
} |
} |
my @tree = split (/\//,$current_path); |
my @tree = split (/\//,$current_path); |
$r->print('<span class="LC_current_location">'.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"}).'/'); |
my %anchor_fields = (); |
|
%anchor_fields = ( |
|
'selectfile' => $port_path, |
|
'currentpath' => '/', |
|
'mode' => $env{"form.mode"}, |
|
'fieldname' => $env{"form.fieldname"}, |
|
'continue' => $env{"form.continue"} |
|
); |
|
$r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/'); |
if (@tree > 1){ |
if (@tree > 1){ |
my $newCurrentPath = ''; |
my $newCurrentPath = ''; |
for (my $i = 1; $i< @tree; $i++){ |
for (my $i = 1; $i< @tree; $i++){ |
$newCurrentPath .= $tree[$i].'/'; |
$newCurrentPath .= $tree[$i].'/'; |
$r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"}).'/'); |
my %anchor_fields = (); |
|
%anchor_fields = ( |
|
'selectfile' => $tree[$i], |
|
'currentpath' => '/', |
|
'mode' => $env{"form.mode"}, |
|
'fieldname' => $env{"form.fieldname"}, |
|
'continue' => $env{"form.continue"} |
|
); |
|
$r->print(&make_anchor($url,\%anchor_fields,$tree[$i]).'/'); |
} |
} |
} |
} |
$r->print('</span>'); |
$r->print('</span>'); |
Line 264 sub display_directory {
|
Line 283 sub display_directory {
|
} |
} |
$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>'); |
$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>'); |
$r->print('<td>Go to ...</td>'); |
$r->print('<td>Go to ...</td>'); |
$r->print('<td>'.$version_flag{$filename}.'</td><td>'.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'</td>'); |
my %anchor_fields = (); |
|
%anchor_fields = ( |
|
'selectfile' => $filename.'/', |
|
'currentpath' => $current_path.$filename.'/', |
|
'mode' => $env{"form.mode"}, |
|
'fieldname' => $env{"form.fieldname"}, |
|
'continue' => $env{"form.continue"} |
|
); |
|
$r->print('<td>'.$version_flag{$filename}.'</td><td>'.&make_anchor($url,\%anchor_fields,$filename.'/').'</td>'); |
$r->print('</tr>'); |
$r->print('</tr>'); |
} else { |
} else { |
my $css_class = 'LC_browser_file'; |
my $css_class = 'LC_browser_file'; |