'[Mason] Project Completion!'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason
Subject:    [Mason] Project Completion!
From:       Evan Carew <ecarew () emagtechnologies ! com>
Date:       2000-09-28 18:43:55
[Download RAW message or body]

I'd like to thank those who took the time to help me get started with my
little project here at EMAG Technologies. I was trying to put together
the first of what I hope will be many internal applications that will
help in our software development department. What I put together was a
component based bug tracking system that turned out to be a little too
messy for my likes in straight mod_perl. The trick was that I needed a
bug creation / edit screen that could manage a number of dynamic fields.
With mod_perl it was a real pain in the rear, in HTML::Mason, once I got
used to the idea of how it worked, things really started to happen. As
an example, I've attached a copy of our create / edit screen which was
at the core of this application.

--
Linux, where do you want to go tomorrow?

["create_bug.html" (text/html)]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<%doc>
$Id: create_bug.html,v 1.1 2000/09/28 18:20:08 ecarew Exp ecarew $
$Log: create_bug.html,v $
Revision 1.1  2000/09/28 18:20:08  ecarew
Initial revision

</%doc>
  <head>
    <title><% $title %> Bug</title>
  </head>

  <body>
    <& /internal/bugs/Template,top=>1 &>
    <h1><% $title %> Bug</h1>
    <form action="<% $action %>" method="post">
      <input type="hidden" name="id" value="<% $reqid %>">
      Change Request Category: <& category, type=>$title, id=>$reqid &> <!-- Ok -->
      <br>
      <table>
	<tbody>
	  <tr>
	    <td>Short Description: </td>
	    <td><& short_desc, type=>$title, id=>$reqid &></td> <!-- Ok -->
	  </tr>
	  <tr>
	    <td>Full Description: </td>
	    <td><& long_desc, type=>$title, id=>$reqid &></td> <!-- Ok -->
	  </tr>
	  <tr>
	    <td>Priority: </td>
	    <td><& priority, type=>$title, id=>$reqid &></td> <!-- Ok -->
	  </tr>
	</tbody>
      </table>
      <table>
	<tbody>
	  <tr>
	    <td>User / Contributor: </td>
	    <td><& contributor,  type=>$title, id=>$reqid &></td> <!-- Ok -->
	    <td>Date Submitted On (eg. 1/1/2000): </td>
	    <td><& submitted_on, type=>$title, id=>$reqid &></td></tr> <!-- Ok -->
	  <tr>
	    <td>Status: </td>
	    <td><& status,  type=>$title, id=>$reqid &></td> <!-- Ok -->
	    <td>Request Type: </td>
	    <td><& request_type, type=>$title, id=>$reqid &></td></tr> <!-- Ok -->
	  <tr>
	    <td>Target Release: </td>
	    <td><& target_release,  type=>$title, id=>$reqid &></td> <!-- Ok -->
	    <td>Resolved On (eg. 1/1/2000): </td>
	    <td><& resolved_on, type=>$title, id=>$reqid &></td></tr> <!-- Ok -->
	  <tr>
	    <td>Release Level: </td>
	    <td><& release_level, type=>$title, id=>$reqid &></td> <!-- Ok -->
	    <td>Fixed In: </td>
	    <td><& fixed_in,  type=>$title, id=>$reqid &></td></tr> <!-- Ok -->
	</tbody>
      </table>
      <center><& submit, type=>$title, id=>$reqid &></center> <!-- Ok -->
    </form>
    <hr>

<!-- Created: Mon Aug 28 14:40:41 EDT 2000 -->
<& /internal/bugs/Template,bottom=>1 &>
<!-- hhmts start -->
Last modified: Thu Sep 28 14:19:55 EDT 2000
<!-- hhmts end -->
  </body>
</html>

<%init>
my $action = undef;
if ( $title eq 'Edit' ) {
# Configure this page as an Editable bug screen
  $action = '/cgi-bin/bugs/mason_edit.pl';
} else {
# Configure this page as a bug create screen
  $action = '/cgi-bin/bugs/create_bug.pl';
}
</%init>
<%Args>
$title=>'Create'
$reqid=>undef
</%Args>
["ecarew.vcf" (text/x-vcard)]
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
http://lists.sourceforge.net/mailman/listinfo/mason-users

[prev in list] [next in list] [prev in thread] [next in thread] 