Gallery: Allow specification of location when uploading ZIP archives (RFE 11502)

This commit is contained in:
kimd 2010-05-02 20:47:13 +02:00
parent 1c70821a6f
commit 95e9e52389
6 changed files with 66 additions and 12 deletions

View file

@ -988,6 +988,12 @@ sub www_addArchive {
name => "keywords",
value => ( $form->get("keywords") ),
});
$var->{ form_location }
= WebGUI::Form::Text( $session, {
name => "location",
value => ( $form->get("location") ),
});
$var->{ form_friendsOnly }
= WebGUI::Form::yesNo( $session, {
@ -1019,6 +1025,7 @@ sub www_addArchiveSave {
my $pb = WebGUI::ProgressBar->new($session);
my $properties = {
keywords => $form->get("keywords"),
location => $form->get("location"),
friendsOnly => $form->get("friendsOnly"),
};

View file

@ -250,6 +250,10 @@ our $HELP = {
name => 'form_keywords',
description => 'helpvar form_keywords',
},
{
name => 'form_location',
description => 'helpvar form_location',
},
{
name => 'form_friendsOnly',
description => 'helpvar form_friendsOnly',

View file

@ -277,6 +277,11 @@ our $I18N = {
message => 'The keywords for the files being uploaded.',
lastUpdated => 0,
},
'helpvar form_location' => {
message => 'The location for the files being uploaded.',
lastUpdated => 0,
},
'helpvar form_friendsOnly' => {
message => 'Should the file be friends only?',
@ -451,7 +456,13 @@ our $I18N = {
lastUpdated => 0,
context => 'Label for the "keywords" field of the Add Archive page',
},
'addArchive location' => {
message => 'Location',
lastUpdated => 0,
context => 'Label for the "location" field of the Add Archive page',
},
'addArchive friendsOnly' => {
message => 'Friends Only',
lastUpdated => 0,