[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.333 and 1.334

version 1.333, 2006/08/18 22:39:37 version 1.334, 2006/09/07 21:57:52
Line 3210  sub output_row { Line 3210  sub output_row {
     }      }
     return ($output);      return ($output);
 }  }
   sub addmetafield {
       my ($r)=@_;
       $r->print(&Apache::loncommon::start_page('Add Metadata Field'));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
       if (exists($env{'form.fieldname'})) {
           $r->print('Here is a field');
       }
       $r->print('<form method="post" action="/adm/parmset?action=addmetadata"');
       $r->print('<input type="text" name="fieldname" /><br />');
       $r->print('<input type="submit" value="Add Metadata Field" />');
       $r->print('</form>');
   }
 sub setrestrictmeta {  sub setrestrictmeta {
     my ($r)=@_;      my ($r)=@_;
     my $next_meta;      my $next_meta;
     my $output;      my $output;
     my $item_num;      my $item_num;
     my $put_result;      my $put_result;
           &Apache::lonnet::logthis("restricting metadata");    
     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));      $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 3264  sub setrestrictmeta { Line 3275  sub setrestrictmeta {
         <p>          <p>
         $output          $output
         <input type="submit" name="restrictmeta" value="Update Metadata Restrictions">          <input type="submit" name="restrictmeta" value="Update Metadata Restrictions">
           </form><br />
           <form method="post" action="/adm/parmset?action=addmetadata" name="form">
           <input type="submit" name="restrictmeta" value="Add a Metadata Field">
         </form>          </form>
 ENDenv  ENDenv
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Line 3715  sub handler { Line 3729  sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
     &overview($r);      &overview($r);
    } elsif ($env{'form.action'} eq 'addmetadata' && $parm_permission) {
               &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
       text=>"Add Metadata Field"});
       &addmetafield($r);
         } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {          } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
     text=>"Restrict Metadata"});      text=>"Restrict Metadata"});
Removed from v.1.333  
changed lines
  Added in v.1.334

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>