--- lib/Arh/View.pm	2007/11/29 15:13:10	7
+++ lib/Arh/View.pm	2007/11/29 16:08:13	8
@@ -17,23 +17,23 @@
 			while ( my $f = $fc->next ) {
 				$present->{ $f->filename }++;
 				my $delete = new_action( class => 'DeletePicture' );
+				my $update = new_action( class => 'UpdatePicture', record => $f );
 				row {
 					cell {
 						img { attr { src => "static/pics/" . $f->filename } }
 						div { tt{ $f->filename } }
 					}
 					cell {
-						ul {
-							li { _("Part of campaign"), ': ',  $f->campaign->name; }
-							li { _("Type of picture"), ': ', $f->type->name }
-							div { $delete->button(
-									submit => $delete,
-									label => _('Delete'),
-									arguments => {
-										id => $f->id,
-									}
-								)
-							}
+						render_param( $update => 'campaign', render_mode => 'read' );
+						render_param( $update => 'type', render_mode => 'read' );
+						div {
+							$delete->button(
+								submit => $delete,
+								label => _('Delete'),
+								arguments => {
+									id => $f->id,
+								}
+							)
 						}
 					}
 				}
@@ -68,4 +68,33 @@
 
 };
 
+template '/units' => page {
+	h1 { _("Units available in system") };
+
+	my $units = Arh::Model::UnitCollection->new;
+	$units->unlimit;
+
+	while ( my $u = $units->next ) {
+		unit( $u );
+	}
+};
+
+sub unit {
+	my $unit = shift || die "no unit?";
+	my $a = new_action( class => 'UpdateUnit', record => $unit );
+	form {
+		foreach my $f ( qw/name number material dimensions position description chronology/ ) {
+			if ( $f eq 'material' ) {
+				my $material = $unit->material;
+				while ( my $um = $material->next ) {
+					my $m = new_action( class => 'UpdateMaterial', record => $um->material );
+					render_param( $m => 'name', label => _("Material"), render_mode => 'read' );
+				}
+			} else {
+				render_param( $a => $f, render_mode => 'read' );
+			}
+		}
+	}
+}
+
 1;