/[suikacvs]/test/suika-accounts/edit.cgi
Suika

Diff of /test/suika-accounts/edit.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Thu Oct 30 12:05:49 2008 UTC revision 1.5 by wakaba, Thu Oct 30 12:11:51 2008 UTC
# Line 442  name=user-pass2 size=10 required pattern Line 442  name=user-pass2 size=10 required pattern
442  <title>];  <title>];
443        print_text ('Group %s', sub { print $e_group_id });        print_text ('Group %s', sub { print $e_group_id });
444        print q[</title>        print q[</title>
445  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/www/style/html/xhtml">];
446  <h1>];        if (defined $group_prop->{favicon_url}) {
447            print q[<link rel=icon href="], htescape ($group_prop->{favicon_url});
448            print q[">];
449          }
450          print q[<h1>];
451          if (defined $group_prop->{favicon_url}) {
452            print q[<img src="], htescape ($group_prop->{favicon_url});
453            print q[" alt="">];
454          }
455        print_text ('Group %s', sub { print $e_group_id });        print_text ('Group %s', sub { print $e_group_id });
456        print q[</h1>];        print q[</h1>];
457                
# Line 463  name=user-pass2 size=10 required pattern Line 471  name=user-pass2 size=10 required pattern
471              label => 'Administrative group',              label => 'Administrative group',
472              field_type => 'text',              field_type => 'text',
473             },             },
474               {
475                name => 'favicon_url',
476                label => 'Group icon URL',
477                field_type => 'url',
478               },
479            );            );
480    
481        print q[</section><section id=members><h2>];        print q[</section><section id=members><h2>];
# Line 631  maxlength=20 size=10 required pattern="[ Line 644  maxlength=20 size=10 required pattern="[
644    
645          my $prop_name = $cgi->get_parameter ('name');          my $prop_name = $cgi->get_parameter ('name');
646          if (defined $prop_name and          if (defined $prop_name and
647              {desc => 1, admin_group => 1}->{$prop_name}) {              {desc => 1, admin_group => 1,
648                 favicon_url => 1}->{$prop_name}) {
649            $group_prop->{$prop_name} = $cgi->get_parameter ('value');            $group_prop->{$prop_name} = $cgi->get_parameter ('value');
650    
651            set_group_prop ($group_id, $group_prop);            set_group_prop ($group_id, $group_prop);
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24