--- loncom/interface/lonmeta.pm 2006/03/02 20:57:15 1.152 +++ loncom/interface/lonmeta.pm 2006/03/16 22:12:17 1.153 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.152 2006/03/02 20:57:15 www Exp $ +# $Id: lonmeta.pm,v 1.153 2006/03/16 22:12:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -701,19 +701,17 @@ sub handler { # my ($resdomain,$resuser)= (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//); - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.''. - 'Catalog Information'. - ''); + if ($uri=~m:/adm/bombs/(.*)$:) { - $r->print(&Apache::loncommon::bodytag('Error Messages')); + $r->print(&Apache::loncommon::start_page('Error Messages')); # Looking for all bombs? &report_bombs($r,$uri); } elsif ($uri=~/\/portfolio\//) { ($resdomain,$resuser)= (&Apache::lonnet::declutter($uri)=~m|^(\w+)/(\w+)/portfolio|); - $r->print(&Apache::loncommon::bodytag - ('Edit Portfolio File Information','','','',$resdomain)); + $r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information', + undef, + {'domain' => $resdomain,})); if ($env{'form.store'}) { &present_editable_metadata($r,$uri,'portfolio'); } else { @@ -721,15 +719,17 @@ sub handler { } } elsif ($uri=~/^\/\~/) { # Construction space - $r->print(&Apache::loncommon::bodytag - ('Edit Catalog Information','','','',$resdomain)); + $r->print(&Apache::loncommon::start_page('Edit Catalog nformation', + undef, + {'domain' => $resdomain,})); &present_editable_metadata($r,$uri); } else { - $r->print(&Apache::loncommon::bodytag - ('Catalog Information','','','',$resdomain)); + $r->print(&Apache::loncommon::start_page('Catalog Information', + undef, + {'domain' => $resdomain,})); &present_uneditable_metadata($r,$uri); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }