voxforge.org
VoxForge Dev
Home · Read · Listen · Forums · Dev · Downloads · About

Changeset 2208

Show
Ignore:
Timestamp:
05/15/07 23:57:17 (2 years ago)
Author:
kmaclean
Message:

draft Collaboration2.pm

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • Trunk/WebGUI/Asset/Wobject/Collaboration2.pm

    r2207 r2208  
    388388                } 
    389389                for (my $count=$randomPromptNumber; $count < ($randomPromptNumber + $number_of_promptlines); $count++) { 
    390                         push (@prompts_out, $prompts[$count] . "</br>"); 
     390                        push (@prompts_out, "<br>" . $prompts[$count] . "</br>"); 
    391391                } 
    392392                        return ("@prompts_out");  
    …… 
    395395        }        
    396396}  
    397  
    398397#------------------------------------------------------------------- 
    399 sub WebGUI::Asset::Post::www_edit { 
     398sub WebGUI::Asset::Post::definition { 
     399        my $class = shift; 
     400        my $session = shift; 
     401        my $definition = shift; 
     402        my $i18n = WebGUI::International->new($session,"Asset_Post"); 
     403        push(@{$definition}, { 
     404                assetName=>$i18n->get('assetName'), 
     405                icon=>'post.gif', 
     406                tableName=>'Post', 
     407                className=>'WebGUI::Asset::Post', 
     408                properties=>{ 
     409                        storageId => { 
     410                                fieldType=>"image", 
     411                                defaultValue=>undef 
     412                                }, 
     413                        threadId => { 
     414                                noFormPost=>1, 
     415                                fieldType=>"hidden", 
     416                                defaultValue=>undef 
     417                                }, 
     418                        dateSubmitted => { 
     419                                noFormPost=>1, 
     420                                fieldType=>"hidden", 
     421                                defaultValue=>$session->datetime->time() 
     422                                }, 
     423                        dateUpdated => { 
     424                                fieldType=>"hidden", 
     425                                defaultValue=>$session->datetime->time() 
     426                                }, 
     427                        username => { 
     428                                fieldType=>"hidden", 
     429                                defaultValue=>$session->form->process("visitorUsername") || $session->user->profileField("alias") || $session->user->username 
     430                                }, 
     431                        rating => { 
     432                                noFormPost=>1, 
     433                                fieldType=>"hidden", 
     434                                defaultValue=>undef 
     435                                }, 
     436                        views => { 
     437                                noFormPost=>1, 
     438                                fieldType=>"hidden", 
     439                                defaultValue=>undef 
     440                                }, 
     441                        contentType => { 
     442                                fieldType=>"contentType", 
     443                                defaultValue=>"mixed" 
     444                                }, 
     445                        userDefined1 => { 
     446                                fieldType=>"HTMLArea", 
     447                                defaultValue=>getNewPromptLines() 
     448                                }, 
     449                        userDefined2 => { 
     450                                fieldType=>"HTMLArea", 
     451                                defaultValue=>undef 
     452                                }, 
     453                        userDefined3 => { 
     454                                fieldType=>"HTMLArea", 
     455                                defaultValue=>undef 
     456                                }, 
     457                        userDefined4 => { 
     458                                fieldType=>"HTMLArea", 
     459                                defaultValue=>undef 
     460                                }, 
     461                        userDefined5 => { 
     462                                fieldType=>"HTMLArea", 
     463                                defaultValue=>undef 
     464                                }, 
     465                        content => { 
     466                                fieldType=>"HTMLArea", 
     467                                defaultValue=>undef 
     468                                } 
     469                        }, 
     470                }); 
     471                # !!!!!! 
     472        #return $class->SUPER::definition($session,$definition); 
     473        return $class->WebGUI::Asset::definition($session,$definition); 
     474                # !!!!!! 
     475} 
     476 
     477#------------------------------------------------------------------- 
     478#sub WebGUI::Asset::Post::www_edit { 
     479sub skip { 
    400480        my $self = shift; 
    401481        my (%var, $content, $title, $synopsis); 
    402          
     482        # !!!!!! 
     483        my $userDefined1; 
     484        # !!!!!! 
    403485        my $i18n = WebGUI::International->new($self->session); 
     486        #################################################################################### 
     487        # new post 
    404488        if ($self->session->form->process("func") eq "add") { # new post 
    405489                $var{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getParent->getUrl}) 
    …… 
    418502                $var{'isNewPost'} = 1; 
    419503        # !!!!!! 
    420                 #$content = $self->session->form->process("content"); 
    421         $content = getNewPromptLines();          
     504                $content = $self->session->form->process("content"); 
     505                #my $prompts = WebGUI::HTML::makeParameterSafe(getNewPromptLines()); 
     506        #$self->update({userDefined1=>"ken one more try"});   # can't update an object that has not been created yet ...         
     507        $userDefined1 = getNewPromptLines(); 
     508                #$content = $userDefined1;              #works! 
     509                 
     510                #$var{'userDefined1'}  = $userDefined1; # does not work 
     511        #$var{'userDefined1.form'}  
     512        #    = WebGUI::Form::text($self->session, { 
     513                #           name    => "userDefined", 
     514                #           value   => $userDefined1, 
     515                #       }); 
    422516                # !!!!!! 
    423517                $title = $self->session->form->process("title"); 
    424518                $synopsis = $self->session->form->process("synopsis"); 
     519        #################################################################################### 
     520        # new reply 
    425521                if ($self->session->form->process("class","className") eq "WebGUI::Asset::Post") { # new reply 
    426522                        $self->{_thread} = $self->getParent->getThread; 
    …… 
    442538                                value=>$self->session->form->process("subscribe") 
    443539                                }); 
     540        #################################################################################### 
     541        # new thread 
    444542                } elsif ($self->session->form->process("class","className") eq "WebGUI::Asset::Post::Thread") { # new thread 
    445543                        return $self->session->privilege->insufficient() unless ($self->getThread->getParent->canPost); 
    …… 
    462560                } 
    463561                $content .= "\n\n".$self->session->user->profileField("signature") if ($self->session->user->profileField("signature") && !$self->session->form->process("content")); 
     562        #################################################################################### 
     563        # edit 
    464564        } else { # edit 
    465565                return $self->session->privilege->insufficient() unless ($self->canEdit); 
    …… 
    486586                $title = $self->session->form->process('title') || $self->getValue("title"); 
    487587                $synopsis = $self->session->form->process('synopsis') || $self->getValue("synopsis"); 
     588        # !!!!!! 
     589        #my $userDefined1 = $self->getValue('userDefined1'); 
     590        # $var{'userDefined1.form'}  
     591        #    = WebGUI::Form::text($self->session, { 
     592            #               name    => "userDefined1", 
     593                #           value   => $userDefined1, 
     594                #       }); 
     595                # !!!!!!                 
    488596        } 
     597        #################################################################################### 
     598        # all 
    489599        $var{'archive.form'} = WebGUI::Form::yesNo($self->session, { 
    490600                name=>"archive" 
    …… 
    507617                value => $self->session->form->process('visitorName') || $self->getValue("visitorName") 
    508618                }); 
     619        # !!!!!! 
    509620        for my $x (1..5) { 
    510                 my $userDefinedValue  
    511             = $self->session->form->process("userDefined".$x)  
    512             || $self->getValue("userDefined".$x) 
    513             ; 
    514                 $var{'userDefined'.$x}  = $userDefinedValue; 
     621        # !!!!!!         
     622                my      $userDefinedValue  
     623                    = $self->session->form->process("userDefined".$x)  
     624                    || $self->getValue("userDefined".$x) 
     625                    ; 
     626                $var{'userDefined'.$x}  = $userDefinedValue;     
     627         
    515628        $var{'userDefined'.$x.'.form'}  
    516629            = WebGUI::Form::text($self->session, { 
    …… 
    589702 
    590703 
     704 
    5917051; 
©2005-2008 VoxForge