in reply to Re^4: how to make dependent drop down in perl script (missing header)
in thread how to make dependent drop down in perl script

Please find the below code : 
 
 my %folderMapFinal;
     #print $q->header;
    #print "Content-type: text/plain\n\n";
    print "Content-type: text/html\n\n";
foreach my $folderMap (sort keys %folderhash) {
%folderMapFinal =$folderMap;
printf "%-8s %s\n\n", $folderMap, $folderhash{$folderMap};
}


    $q->div( { -class => "text" }, "Folder Name* : ",

    #my $defaultVal ='0',
    $q->popup_menu( -name=>'foldernameval', -id=> 'folder_name_id',
                      -onChange => 'getReportName()',
                      -type=>'dropdown',
                      #-values=> \%folderhash,
                      -values=> \%folderMapFinal,
                      #-default=>$defaultVal,
                      -default=>['0'],
                    ),
    $q->hidden( -name => ('folder_name', -id=> 'h_folder_name_id', -va
+lue => '' )),
    #$q->a( { -href => "signoff.cgi?rm=view_report&fId=3", -onClick =>
+ 'setFolderNameId()',  -title => "Populate Report Name" }, "Populate 
+Report Name" ),
    ),$q->end_div,

    $q->br,
    $q->br,

    $q->div( { -class => "text" }, "Report Name* : ",


    $q->popup_menu( -name=>'reportnameval', -id=> 'report_name_id',
                     -onchange => 'setReportId()',
                      -type=>'dropdown',
                      -values=> \%reportHash,
                      -default=>['0'],
                    ),
    $q->hidden( -name => ('report_name', -id=> 'h_report_name_id', -va
+lue => '' )),
    #$q->a( { -href => " ", -onClick => 'setFolderNameIdInURL()',  -ti
+tle => "Populate Report Name" }, " Click here to Populate Report Name
+" ),


    ),$q->end_div,

[download]
  • Comment on Re^5: how to make dependent drop down in perl script (missing header)
  • Download Code

Replies are listed 'Best First'.
Re^6: how to make dependent drop down in perl script (missing header)
by marto (Cardinal) on May 01, 2023 at 14:25 UTC

    Not an SSCCE, no output shown, as requested a couple of times already.

[reply]

      Sorry, Now showing the output in below : 

      
[Mon May  1 09:23:22 2023] signoff.cgi: BEGIN failed--compilation abor
+ted at /v/region/na/appl/msim/imasg_env/data/imasgdev/bin/notify/sign
+OffPageOnDev/cgi/signoff.cgi line 22, <DATA> line 275.
[Mon May  1 09:23:30 2023] signoff.cgi: Global symbol "%folderMapFinal
+" requires explicit package name at ..//signoff.pm line 695, <DATA> l
+ine 275.
[Mon May  1 09:23:30 2023] signoff.cgi: Global symbol "%folderMapFinal
+" requires explicit package name at ..//signoff.pm line 707, <DATA> l
+ine 275.
[Mon May  1 09:23:30 2023] signoff.cgi: Compilation failed in require 
+at /v/region/na/appl/msim/imasg_env/data/imasgdev/bin/notify/signOffP
+ageOnDev/cgi/signoff.cgi line 22, <DATA> line 275.
[Mon May  1 09:23:30 2023] signoff.cgi: BEGIN failed--compilation abor
+ted at /v/region/na/appl/msim/imasg_env/data/imasgdev/bin/notify/sign
+OffPageOnDev/cgi/signoff.cgi line 22, <DATA> line 275.
 FROM DATE :  AND ToDate :
FLAG VLAUE IS :  AND FID VLAUE IS : 0
TO DATE from Hidden ******* :  AND TO DATE from Hidden*********:
TO DATE form URL ******* :  AND TO DATE from URL *********:
**IF BLOCK----------FOLDER ID IS BLANK :
META GROUP COUNT IS :  AND META GROUP IS  :
 FROM DATE :  AND ToDate :
FLAG VLAUE IS :  AND FID VLAUE IS : 0
TO DATE from Hidden ******* :  AND TO DATE from Hidden*********:
TO DATE form URL ******* :  AND TO DATE from URL *********:
**IF BLOCK----------FOLDER ID IS BLANK :
META GROUP COUNT IS :  AND META GROUP IS  :
 FROM DATE :  AND ToDate :
FLAG VLAUE IS :  AND FID VLAUE IS : 0
TO DATE from Hidden ******* :  AND TO DATE from Hidden*********:
TO DATE form URL ******* :  AND TO DATE from URL *********:
**IF BLOCK----------FOLDER ID IS BLANK :
META GROUP COUNT IS :  AND META GROUP IS  :
 FROM DATE :  AND ToDate :
FLAG VLAUE IS :  AND FID VLAUE IS : 0
TO DATE from Hidden ******* :  AND TO DATE from Hidden*********:
TO DATE form URL ******* :  AND TO DATE from URL *********:
**IF BLOCK----------FOLDER ID IS BLANK :
INSIDE FOR LOOP FOR FOLDERMAP
INSIDE FOR LOOP FOR FOLDERMAP
INSIDE FOR LOOP FOR FOLDERMAP
INSIDE FOR LOOP FOR FOLDERMAP
INSIDE FOR LOOP FOR FOLDERMAP
INSIDE FOR LOOP FOR FOLDERMAP
META GROUP COUNT IS :  AND META GROUP IS  :
 FROM DATE :  AND ToDate :
FLAG VLAUE IS :  AND FID VLAUE IS : 0
TO DATE from Hidden ******* :  AND TO DATE from Hidden*********:
TO DATE form URL ******* :  AND TO DATE from URL *********:

      [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom