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

updates to the file pile

Browse source
This commit is contained in:
JT Smith 2004-12-29 19:36:51 +00:00
parent 990cd43035
commit 330d3afb23
6 changed files with 257 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/File/Image.pm
View file

@ -198,7 +198,7 @@ sub view {
my $self = shift;
my $storage = WebGUI::Storage->get($self->get("storageId"));
my %var = %{$self->get};
$var{controls} = $toolbar;
$var{controls} = $self->getToolbar;
$var{fileUrl} = $storage->getUrl($self->get("filename"));
$var{fileIcon} = $storage->getFileIconUrl($self->get("filename"));
$var{thumbnail} = $storage->getUrl("thumb-".$self->get("filename"));

63
lib/WebGUI/Asset/FilePile.pm
View file

@ -21,6 +21,7 @@ use WebGUI::Icon;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Storage;
use WebGUI::TabForm;
use WebGUI::Template;
use WebGUI::Utility;
@ -80,7 +81,7 @@ sub edit {
-label=>WebGUI::International::get(940),
-uiLevel=>6
);
$tabform->addTab("privileges",WebGUI::International::get(107),6);
$tabform->addTab("security",WebGUI::International::get(107),6);
$tabform->getTab("security")->dateTime(
-name=>"startDate",
-label=>WebGUI::International::get(497),
@ -129,45 +130,27 @@ sub edit {
-excludeGroups=>[1,7],
-uiLevel=>6
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
);
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"Upload File"
WebGUI::Style::setScript($session{config}{extrasURL}.'/FileUploadControl.js',{type=>"text/javascript"});
my $uploadControl = '<div id="fileUploadControl"> </div>
<script>
var images = new Array();
';
opendir(DIR,$session{config}{extrasPath}.'/fileIcons');
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
unless ($file eq "." || $file eq "..") {
my $ext = $file;
$ext =~ s/(.*?)\.gif/$1/;
$uploadControl .= 'images["'.$ext.'"] = "'.$session{config}{extrasURL}.'/fileIcons/'.$file.'";'."\n";
}
}
$uploadControl .= 'var uploader = new FileUploadControl("fileUploadControl", images);
uploader.addRow();
</script>';
$tabform->getTab("properties")->readOnly(
-label=>"Upload Files",
-value=>$uploadControl
);
return $self->getAdminConsole->render($tabform->print,"Add a Pile of Files");
}

4
lib/WebGUI/Macro/AdminBar.pm
View file

@ -104,8 +104,8 @@ foreach my $link (@{$session{asset}->getAssetAdderLinks}) {
# $hash{$acParams->{url}} = $acParams->{title} if ($acParams->{canUse});
# $acParams = WebGUI::AdminConsole->getAdminFunction("groups");
# $hash{$acParams->{url}} = $acParams->{title} if ($acParams->{canUse});
# $acParams = WebGUI::AdminConsole->getAdminFunction("assets");
# $hash{$acParams->{url}} = $acParams->{title} if ($acParams->{canView});
$acParams = WebGUI::AdminConsole->getAdminFunction("assets");
$hash{$acParams->{url}} = $acParams->{title} if ($acParams->{canUse});
%hash = sortHash(%hash);
%hash = (