loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.185, 2006/10/23 21:09:21
+version 1.186, 2006/11/04 01:50:31
  Line 746  sub handler {
          if ($env{'form.store'}) {
              &present_editable_metadata($r,$uri,'portfolio');
          } else {
-             &pre_select_course($r,$uri);
+             my $fn=&Apache::lonnet::filelocation('',$uri);
+             %Apache::lonpublisher::metadatafields=();
+             %Apache::lonpublisher::metadatakeys=();
+             my $result=&Apache::lonnet::getfile($fn);
+             &Apache::lonpublisher::metaeval($result);
+             &Apache::lonnet::logthis("restricted is: ".$Apache::lonpublisher::metadatafields{'courserestricted'});
+             if (!$Apache::lonpublisher::metadatafields{'courserestricted'}) {
+                 &pre_select_course($r,$uri);
+             } else {
+                 &present_editable_metadata($r,$uri,'portfolio');
+             }
          }
      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
          $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',