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

Diff for /loncom/interface/lonmeta.pm between versions 1.254 and 1.255

version 1.254, 2014/06/22 19:46:48 version 1.255, 2023/03/28 23:17:18
Line 550  sub direct { Line 550  sub direct {
 }  }
   
 sub selectbox {  sub selectbox {
     my ($name,$value,$functionref,@idlist)=@_;      my ($name,$value,$readonly,$functionref,@idlist)=@_;
     if (! defined($functionref)) {      if (! defined($functionref)) {
         $functionref=\&direct;          $functionref=\&direct;
     }      }
       my $disabled;
       if ($readonly) {
           $disabled = ' disabled="disabled"';
       }
     my $selout='<select name="'.$name.'">';      my $selout='<select name="'.$name.'">';
     foreach my $id (@idlist) {      foreach my $id (@idlist) {
         $selout.='<option value="'.$id.'"';          $selout.='<option value="'.$id.'"'.$disabled;
         if ($id eq $value) {          if ($id eq $value) {
     $selout.=' selected="selected">'.&{$functionref}($id).'</option>';      $selout.=' selected="selected">'.&{$functionref}($id).'</option>';
         } else {          } else {
Line 582  sub relatedfield { Line 586  sub relatedfield {
 }  }
   
 sub prettyinput {  sub prettyinput {
     my ($type,$value,$fieldname,$formname,      my ($type,$value,$readonly,$fieldname,$formname,
  $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;   $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
     if (! defined($size)) {      if (! defined($size)) {
         $size = 80;          $size = 80;
Line 661  sub prettyinput { Line 665  sub prettyinput {
     # Language      # Language
     if ($type eq 'language') {      if ($type eq 'language') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,'',
   \&Apache::loncommon::languagedescription,    \&Apache::loncommon::languagedescription,
   (&Apache::loncommon::languageids)).    (&Apache::loncommon::languageids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 669  sub prettyinput { Line 673  sub prettyinput {
     # Copyright      # Copyright
     if ($type eq 'copyright') {      if ($type eq 'copyright') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,$readonly,
   \&Apache::loncommon::copyrightdescription,    \&Apache::loncommon::copyrightdescription,
   (&Apache::loncommon::copyrightids)).    (&Apache::loncommon::copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 677  sub prettyinput { Line 681  sub prettyinput {
     # Source Copyright      # Source Copyright
     if ($type eq 'sourceavail') {      if ($type eq 'sourceavail') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,'',
   \&Apache::loncommon::source_copyrightdescription,    \&Apache::loncommon::source_copyrightdescription,
   (&Apache::loncommon::source_copyrightids)).    (&Apache::loncommon::source_copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 704  sub prettyinput { Line 708  sub prettyinput {
     }      }
     # Customdistribution file      # Customdistribution file
     if ($type eq 'customdistributionfile') {      if ($type eq 'customdistributionfile') {
  return '<input type="text" name="'.$fieldname.          my $disabled;
     '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.          if ($readonly) {
     "('".$formname."','".$fieldname."'".              $disabled = ' disabled="disabled"';
     ",'rights')\">".&mt('Select').'</a>'.          }
             &relatedfield(0,$relatedsearchflag,$relatedsep);           my $output;
    $output = '<input type="text" name="'.$fieldname.
       '" size="60" value="'.$value.'"'.$disabled.' />';
           unless ($readonly) {
               $output .= '<a href="javascript:openbrowser'.
                  "('".$formname."','".$fieldname."'".
                  ",'rights')\">".&mt('Select').'</a>';
           }
           $output .= &relatedfield(0,$relatedsearchflag,$relatedsep);
           return $output;
     }      }
     # Source Customdistribution file      # Source Customdistribution file
     if ($type eq 'sourcerights') {      if ($type eq 'sourcerights') {
Line 1312  sub present_editable_metadata { Line 1325  sub present_editable_metadata {
     # Authoring Space Call      # Authoring Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
       my ($courseauthor,$crsaurights,$readonly);
       if ($env{'request.course.id'}) {
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           if ($uri =~ m{^\Q/priv/$cdom/$cnum/\E}) {
               $courseauthor = $cnum.':'.$cdom;
               $crsaurights = "/res/$cdom/$cnum/default.rights";
               $readonly = 1;
           }
       }
     my $fn=&Apache::lonnet::filelocation('',$uri);      my $fn=&Apache::lonnet::filelocation('',$uri);
     $disuri=~s{^/\~}{/priv/};      $disuri=~s{^/\~}{/priv/};
     $disuri=~s/\.meta$//;      $disuri=~s/\.meta$//;
Line 1473  ENDEDIT Line 1496  ENDEDIT
        'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',         'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
        'obsolete','obsoletereplacement');         'obsolete','obsoletereplacement');
         }          }
           if ($courseauthor) {
               $Apache::lonpublisher::metadatafields{'copyright'}='custom';
               $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights;
           }
         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
     'default';      'default';
Line 1554  ENDEDIT Line 1581  ENDEDIT
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})                      $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,                                .&prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                     'new_'.$field_name,'defaultmeta',                      $readonly,'new_'.$field_name,'defaultmeta',
                     undef,undef,undef,undef,                      undef,undef,undef,undef,
                                                     $Apache::lonpublisher::metadatafields{'courserestricted'});                                                      $Apache::lonpublisher::metadatafields{'courserestricted'});
                     $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);                      $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                  }                   }
             } else {              } else {
   
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})                      $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,                                .&prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                                            'new_'.$field_name,'defaultmeta')                                             $readonly,'new_'.$field_name,'defaultmeta')
                               .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);                                .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                                 
             }              }
Removed from v.1.254  
changed lines
  Added in v.1.255

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