Select Code to Download

#!/usr/bin/perl -T
use strict;
...
}

1;

sub _render_online_household_form {
  my $self = shift;
...
  }

}

[Wed May 14 21:03:31 2008] [error] [client 127.0.0.1] line 185 of ->_o
+btain_next_household() checked out record with code: Now Assigned.
[Wed May 14 21:03:32 2008] [error] [client 127.0.0.1] Our mode is 'can
+vas'.
[Wed May 14 21:03:32 2008] [error] [client 127.0.0.1] OK, we'll render
+ form for first time for this household.
[Wed May 14 21:03:32 2008] [error] [client 127.0.0.1] $form->submitted
+ is now: 0
[Wed May 14 21:03:32 2008] [error] [client 127.0.0.1] We made it back 
+to cgi script.

[Wed May 14 21:07:15 2008] [error] [client 127.0.0.1] line 185 of ->_o
+btain_next_household() checked out record with code: Now Assigned., r
+eferer: http://localhost/cgi-bin/canvas_hh_screen.cgi
[Wed May 14 21:07:16 2008] [error] [client 127.0.0.1] Our mode is 'can
+vas'.  , referer: http://localhost/cgi-bin/canvas_hh_screen.cgi
...

[Wed May 14 21:07:16 2008] [error] [client 127.0.0.1]           };, re
+ferer: http://localhost/cgi-bin/canvas_hh_screen.cgi
[Wed May 14 21:07:16 2008] [error] [client 127.0.0.1] We made it back 
+to cgi script., referer: http://localhost/cgi-bin/canvas_hh_screen.cg
+i

#!/usr/bin/perl -T
use strict;
...
}

1;