August 2015 - dancer-users - lists.preshweb.co.uk

Getting Value of nested hash attributes -- HASH confusion
by Richard Reina 31 Aug '15

31 Aug '15

I have to following template that lists table data with a checkbox to the left and a text area to the right -- special thanks to Andrew for helping me figure out the HTML. The data comes from: my $q = "SELECT c.ID AS ID, u.screenname AS SNAME, a.name AS ANAME, a.descrip AS DESCRIP, c.season AS SSN, c.year AS YR, ch.name AS CHNAME FROM challenge c, accomp_type a, usuario u, jugador j, charity ch WHERE c.ACC_TYPE_ID=a.ID AND ch.ID=c.CHAR_ID AND c.PLR_ID=j.ID AND j.USER_ID=u.ID"; my $Chlngs = $dbh->selectall_hashref( $q, 'ID' ); <div class="container" style="margin-top:20px;"> <div class="row"> <div class="col-xs-12"> <form role="form" action="openchallenges" method="POST"> <h3 class="text-center">Open To Do</h3> <div class="well" style="max-height: 300px;overflow: auto;"> <ul class="list-group fancy-list-items">  <table style="width:100%"> <% FOREACH ID IN Chlngs.keys.sort %> <tr class="list-group-item"> <td width="5"> <input type="checkbox" name="<% Chlngs.$ ID.NAME %>"</input> </td> <td width="70"><% Chlngs.$ID.SNAME %></td> <td width="75"><% Chlngs.$ID.ANAME %></td> <td width="35"><% Chlngs.$ID.SSN %></td> <td width="35"><% Chlngs.$ID.YR %></td> <td width="250"><% Chlngs.$ID.CHNAME %></td> <td width="550"><% Chlngs.$ID.DESCRIP %></td> <td><input type="text" name="<% Chlngs.$ID.ID %>" size="8" </td> <% END %> </tr> </ul> </table> </div> <hr class="colorgraph"> <div class="row"> <div class="col-xs-12 col-md-12"><input type="submit" value="Submit" class="btn btn-primary btn-block btn-lg"></div> </form> </div> </div> </div> However, after getting the template to work I am once again stumped in how to capture the value of the dynamically named hash ref -- specifically the second one from the text box. I have tried various permutations below -- some of which were very graciously provided to me in an earlier similar thread -- but all seem to only give me either a hash reference, the value of ID or this error when I place the number 7 into the text field: Can't use string ("7") as a HASH ref while "strict refs" in use at /home/richard/Dancer2/MyApp/bin/../lib/MyApp.pm line 463. my $input_hash; foreach my $key ( keys %$Chlngs ) { print "Checking Chlgs: " . $key . " for value.\n"; if ( param( $key ) ) { # paramter has value #$input_hash->{ $key } = $Chlngs->{ $key }; $input_hash->{ $key } = param( $key ); #print $key, $input_hash->{ $key }, "\n"; #print %{ $input_hash->{1} }; print $input_hash->{1}{ID}, "\n"; # $sth->execute($PLR_ID, $key, $input_hash->{Season}, $input_hash->{Year}, $input_hash->{CharID}); } } Thanks for any help. Richard

2 2

Migrating CGI.pm-based code to Dancer2
by Amelia Ireland 31 Aug '15

31 Aug '15

Hi Warren, Thank you for your response! *Warren Young* wyml at etr-usa.com <dancer-users%40dancer.pm?Subject=Re%3A%20%5Bdancer-users%5D%20Migrating%20CGI.pm-based%20code%20to%20Dancer2&In-Reply-To=%3CFA02293B-5F0E-4ADA-ABDA-DC3861003948%40etr-usa.com%3E> wrote: > On Aug 31, 2015, at 2:11 PM, Amelia Ireland <aireland at lbl.gov > <http://lists.preshweb.co.uk/mailman/listinfo/dancer-users>> wrote: > > > > > * 1) The old code is written in a "print as you go" form. * When I ran > into the same situation in my code base, I handled it like this: > my $html = “SOme stuff…”; > $html .= “More stuff…”; > …repeat until done :) … > return $html; > The tricky bit comes in translating things like this: > print “Some “, $rather, “ complicated “, code(); > You either end up replacing all the commas with dots or: > $html .= sprintf “Some “, …etc. > I'm doing that on a small scale where possible, but unfortunately the size and unfamiliarity of the codebase (I've only been working with it a couple of months) make this a daunting prospect. :-( Capturing STDOUT feels like a dirty solution--I'd much sooner the app returned data that could be used to populate templates--but it's really the only viable option at the moment. > > * 2) I'm converting the PSGI env into a CGI object using CGI::PSGI; apart > from HTTP headers, is there anything else I need to take care of? * I > wouldn’t keep trying to hold onto CGI. Dancer’s always-on route-based > processing method is quite different from CGI’s model. > Trying to program Dancer in a CGI-like fashion might make some things a > bit quicker to translate, but I think you’ll eat that savings up in areas > that don’t map easily, and in difficulty of understanding the final version > as it keeps jumping between the CGI and Dancer abstractions. I'd love to dispatch the CGI-based code elsewhere, but it's a big codebase and the cgi-based code is in production use, so my changes have to maintain compatibility with the existing cgi scripts. New code is written in the Dancer2 paradigm and the old code has a Dancer2 wrapper that handles authentication, sessions, etc. I'm hoping to convert my coworkers to Dancer2 once they see how neat and easy it is in comparison to CGI.pm... Amelia.

2 1

Migrating CGI.pm-based code to Dancer2
by Amelia Ireland 31 Aug '15

31 Aug '15

Hello all, I'm attempting to merge an old CGI.pm-based code base into a Dancer2-powered app, and I have some questions. I had been running the old code using Plack::App::CGIBin to mount the .cgi files, but there is now enough code shared between the two that I am ready to merge the two. The shared code currently runs some preflight checks, and then parses the query params to figure out the correct modules to load and subroutine to dispatch. 1) The old code is written in a "print as you go" form. My initial idea was to capture the STDOUT, but unfortunately the code includes some hacks to keep the browser connection open when running long processes (rather than forking a child process and periodically checking on its process, using an event loop, etc.). There's lots of code like this: print "<p>Launching lengthy process...</p>"; my $data = do_something_that_takes_ages_here(); print "<p>Finished part one of lengthy process. Starting phase two!</p>"; I'd like to use Dancer2's streaming/async capabilities here but am not sure how to send what is printed to STDOUT to the 'content' keyword. Can anyone help? 2) I'm converting the PSGI env into a CGI object using CGI::PSGI; apart from HTTP headers, is there anything else I need to take care of? Thank you for any help and hints! Amelia.

2 1

table records into updateable checkbox list
by Richard Reina 31 Aug '15

31 Aug '15

Does template toolkit provide of any sort of way to iterate a query results like below but to also allow a space to the right (like an addon) for user to type in text? So that I would have: [checkbox] [table columns] [small text area] I have been struggling with how to go about this for about a day and I believe it is beyond my pay-grade. I feel like I am close but have been stuck for so long that I am beginning to question if I am going about this entirely the wrong way and that perhaps there is an easier TT method. <div class="container" style="margin-top:20px;"> <div class="row"> <div class="col-xs-12"> <form role="form" action="openchallenges" method="POST"> <h3 class="text-center">Open To Do</h3> <div class="well" style="max-height: 300px;overflow: auto;"> <ul class="list-group">  <table style="width:100%"> <% FOREACH ID IN Chlngs.keys.sort %> <tr class="list-group-item"> <td width="5"> <input type="checkbox" name="<% Chlngs.$ ID.ID %>"</input> </td> <td width="70"><% Chlngs.$ID.SNAME %></td> <td width="75"><% Chlngs.$ID.ANAME %></td> <td width="35"><% Chlngs.$ID.SSN %></td> <td width="35"><% Chlngs.$ID.YR %></td> <td width="250"><% Chlngs.$ID.CHNAME %></td> <td width="550"><% Chlngs.$ID.DESCRIP %></td> <% END %> </tr> </ul> </table> </div> <hr class="colorgraph"> <div class="row"> <div class="col-xs-12 col-md-12"><input type="submit" value="Submit" class="btn btn-primary btn-block btn-lg"></div> </form> </div> </div> </div> Thanks, Richard

2 2

Reminder on Call for Papers for Perl Dancer Conference in Vienna
by Stefan Hornburg (Racke) 30 Aug '15

30 Aug '15

The submission deadline ends August 31th, midnight CET. Please use http://www.perl.dance/talks/submit for submitting your talk or write to 2015(a)perl.dance if you need help or more time to prepare your proposal. We already confirmed a number of interesting talks and there are a few more prominent speakers like Peter Rabbitson and Russell Jenkins which are going to present at the Perl Dancer Conference. Regards Racke -- Perl and Dancer Development Visit our Perl::Dancer conference 2015. More information on https://www.perl.dance.

1 0

Trapping parameters from a dynamic list of checkboxes.
by Richard Reina 28 Aug '15

28 Aug '15

I am trying to find a way to get values back from a dynamic list of checkboxes. Within my template I have figured out how to create the list of checkboxes based on values from a hash reference. Like so: <% FOREACH ID IN Accomps.keys %> <div> <label><input type="checkbox" name="<% Accomps.$ID.NAME %>" value="<% Accomps.$ID.ID %>"><% Accomps.$ID.NAME %> <% Accomps.$ID.descrip %></label> </div> <% END %> </div> However, I can't figure out how dancer would go about getting back the values from the list of checkboxes as each checkbox input's name is different. I normally get values back in Dancer with: like this: my $input_hash = { Tech => param('tech), Type => param('type'), } But I cannot figure out how to do it in this case since the name of the input type is based on the values in the has ref. I have tried to create them based on the values that are fed into the template from the SQL query like this: my $input_hash = { Tech => param('tech), Type => param('type'), while ($sth->fetch) { $ANAME => param($ANAME), } } But this causes plackup start to crash with: Error while loading /home/richard/Dancer2/MyApp/bin/app.psgi: syntax error at /home/richard/Dancer2/MyApp/bin/../lib/MyApp.pm line 549, near "while" syntax error at /home/richard/Dancer2/MyApp/bin/../lib/MyApp.pm line 555, near "}" So I am beginning to think that I am heading down the wrong path. Any help would be greatly appreciated. Thanks

7 15

Re: [dancer-users] dancer-users Digest, plugins
by Rick Leir 27 Aug '15

27 Aug '15

On Mon, 20 Apr 2015, Yanick Champoux wrote: > On 2015-04-19 07:59 AM, Sawyer X wrote: >> Yanick Champoux and Russell Jenkins have both produces two different >> implementations that resolve our current problems in different ways. >> They are available online. > > Mine is at > https://github.com/PerlDancer/Dancer2/compare/master...yanick:plugins-yanick > > And Russell's is at > https://github.com/PerlDancer/Dancer2/compare/master...veryrusty:playground… What are the pro's and con's of these ways? (and what are the current problems?) Thanks Rick

2 2

2015 Perl Dancer Conference Sponsorship
by Sam Batschelet 27 Aug '15

27 Aug '15

Greetings Dancer Enthusiast, We are closing in fast on the 2015 Perl Dancer Conference held in Vienna, Austria October 19 - 22 . Sponsoring the Perl Dancer Conference is an oppourtunity to present your company or association to an international audience for Perl, Dancer and DBIx:Class related topics. We have a great cast of speakers ( https://www.perl.dance/speakers ) from the #dancer community this year including core developers Stefan Hornburg (racke), Sawyer X, Russell Jenkins (veryrusty) and other names you might remember from the mailing list or IRC. Another exciting community fact is the new conference site https://perl.dance is powered by Dancer and Interchange 6. Feel free to fork our repo https://github.com/interchange/Perl-Dancer-Conference and see the exciting advances in this project. The conference is a great event and with your support will continue to build the sense of community that is the foundation of #dancer. Please take a moment and look over our sponsorship page for ideas or contact us directly at 2015(a)perl.dance and we can come up with a custom package for you. Thank You, Sam Batschelet 2015 Perl Dancer Conference http://perl.dance | 2015(a)perl.dance https://www.facebook.com/pages/Perl-Dancer-Conference/670529456366338

1 0

In-code template configuration - order matters?
by Gabor Szabo 27 Aug '15

27 Aug '15

Hi, given this simple template: <h2><% name %></h2> And this code: #!/usr/bin/env perl use Dancer2; set engines => { template => { template_toolkit => { start_tag => '<%', end_tag => '%>', } } }; set template => "template_toolkit"; get '/' => sub { template 'demo', { name => 'Perl Maven' }; }; dance; I see the expected display, but if I change the order of the two 'set' statements then I just get <h2><% name %></h2> as output. Why is that? Gabor ps. I don't have any configuration files. This is a stand-alone script with an external tt file.

4 4

list order from a hash
by Richard Reina 27 Aug '15

27 Aug '15

I have this table data that I load into a template as follows. $q = "SELECT ID, NAME FROM jobs ORDER BY NAME"; $sth = $dbh->prepare($q); $sth->execute(); my $Jobs_ref = $sth->fetchall_hashref('ID'); template 'sport_add.tt', { 'Jobs' => $Jobs_ref, 'Testing' => "This is text to test to make sure this will come through", # to test, use this like <% Testing %> on your template page }, {}; To display it in the template as a drop-down select I do: <select class="selectpicker" name="jobselect" id="jobselect" style="width: 500px;"> <% FOREACH ID IN Jobs.keys %> <option value="<% Jobs.$ID.ID %>"><% Jobs.$ID.NAME %></option> <% END %> And it works great. Except for one thing, the list is not in order by name. I have read more than a few posts about how once you save a query as a hashref that the order is lost. Most of those posts suggested fetching as a arrayref instead. However, I have no idea how to do that and then display it in a select like the above code does. So I wanted to see if somebody perhaps knows of a not too complicated of a solution to get the select list into alphabetical order by name. Thanks

5 9