oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed bug 654227

Browse source
This commit is contained in:
JT Smith 2002-12-17 04:42:12 +00:00
parent d241598851
commit 82c84b7000
12 changed files with 47 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Operation/Collateral.pm
View file

@ -431,7 +431,7 @@ sub www_listCollateral {
where collateralFolderId=$folderId");
$output .= '<tr><td colspan="5" class="tableData"><a href="'.WebGUI::URL::page('op=listCollateral&fid='
.$parent.'&pn=1')
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0">'
.'"><img src="'.$session{config}{extrasURL}.'/smallAttachment.gif" border="0">'
.'&nbsp;'.WebGUI::International::get(542).'</a></td></tr>';
}
$sth = WebGUI::SQL->read("select collateralFolderId, name, description from collateralFolder
@ -439,7 +439,7 @@ sub www_listCollateral {
while ($data = $sth->hashRef) {
$output .= '<tr><td class="tableData"><a href="'.WebGUI::URL::page('op=listCollateral&fid='
.$data->{collateralFolderId}.'&pn=1')
.'"><img src="'.$session{config}{extras}.'/smallAttachment.gif" border="0">'
.'"><img src="'.$session{config}{extrasURL}.'/smallAttachment.gif" border="0">'
.'&nbsp;'.$data->{name}.'</a></td><td class="tableData" colspan="4">'.$data->{description}.'</td></tr>';
}
$sth->finish;

5
lib/WebGUI/Operation/International.pm
View file

@ -171,11 +171,10 @@ sub www_editInternationalMessageSave {
#-------------------------------------------------------------------
sub www_editLanguage {
my ($output, $slash, $dir, @files, $file, %data, $f, %options);
my ($output, $dir, @files, $file, %data, $f, %options);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
tie %data, 'Tie::CPHash';
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$dir = $session{config}{webguiRoot}.$slash."www".$slash."extras".$slash."toolbar";
$dir = $session{config}{extrasPath}.$session{os}{slash}."toolbar";
opendir (DIR,$dir) or WebGUI::ErrorHandler::warn("Can't open toolbar directory!");
@files = readdir(DIR);
foreach $file (@files) {

2
lib/WebGUI/Operation/Page.pm
View file

@ -129,7 +129,7 @@ sub _traversePageTree {
my ($a, $b, %page, %wobject, $output, $depth, $i, $spacer);
tie %page, 'Tie::CPHash';
tie %wobject, 'Tie::CPHash';
$spacer = '<img src="'.$session{config}{extras}.'/spacer.gif" width=12>';
$spacer = '<img src="'.$session{config}{extrasURL}.'/spacer.gif" width=12>';
for ($i=1;$i<=$_[1];$i++) {
$depth .= $spacer;
}