# setup part
#-------------------------------------------------------------------------------
-my %profile_cols = ( qw/id SysID code Name/ );
+my %profile_cols = ( qw/id SysID code Name description Description/ );
-my @col_display_order = ( qw/id cod3/ );
+my @col_display_order = ( qw/id code description/ );
#-------------------------------------------------------------------------------
# Logic part
for my $id ( ($cgi->param('id')) ) {
my $u = permission::perm_list->retrieve($id);
$u->code( $cgi->param("code_$id") );
+ $u->description( $cgi->param("description_$id") );
$u->update;
}
} elsif ( $action eq 'Add New' ) {
- permission::perm_list->create( { code => $cgi->param("code") } );
+ permission::perm_list->create(
+ { code => $cgi->param("code"),
+ description => $cgi->param("description")
+ }
+ );
}
}
print Tr(
td( $row->id() ),
td("<input type='text' name='code_$row' value='". $row->code() ."'>"),
+ td("<input type='text' name='description_$row' value='". $row->description() ."'>"),
td("<input type='checkbox' value='$row' name='id'>"),
);
}
print "<tr class='new_row_class'>",
td(),
td("<input type='text' name='code'>"),
+ td("<input type='text' name='description'>"),
td(),
"</tr>";
print "</table>";
# setup part
#-------------------------------------------------------------------------------
-my %org_cols = ( qw/id GroupID name Name parent ParentGroup/ );
+my %org_cols = ( qw/id GroupID name Name parent ParentGroup description Description/ );
-my @col_display_order = ( qw/id name parent/ );
+my @col_display_order = ( qw/id name parent description/ );
if (my $action = $cgi->param('action')) {
if ( $action eq 'Update' ) {
$out;
}."</select><input type='hidden' value='$node' name='id'>"),
);
+ print Tr(
+ th($org_cols{description}),
+ td("<input type='text' name='description_$node' value=\"". $node->description() ."\">"),
+ );
print Tr( "<td colspan='2'><input type='submit' name='action' value='Update'/></td>" );
th($org_cols{name}),
td("<input type='text' name='name'>"),
);
+ print Tr(
+ th($org_cols{description}),
+ td("<input type='text' name='description'>"),
+ );
print Tr( "<td colspan='2'><input type='hidden' value='$node' name='parent'>",
"<input type='submit' name='action' value='Add New'/></td>" );
print "</table></form><hr/>";