/[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.6 by wakaba, Sat Nov 1 10:13:14 2008 UTC revision 1.7 by wakaba, Thu Nov 6 14:51:54 2008 UTC
# Line 48  if (@path == 3 and Line 48  if (@path == 3 and
48        print q[Content-Type: text/html; charset=utf-8        print q[Content-Type: text/html; charset=utf-8
49    
50  <!DOCTYPE HTML>  <!DOCTYPE HTML>
51  <html lang=en>  <html lang=en class=account-user-info>
52  <title>];  <title>];
53        print_text ('User %s', sub { print $e_user_id });        print_text ('User %s', sub { print $e_user_id });
54        print q[</title>        print q[</title>
55  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/admin/style/common">
56  <h1>];  <h1>];
57        print_text ('User %s', sub { print $e_user_id });        print_text ('User %s', sub { print $e_user_id });
58        print q[</h1>];        print q[</h1>];
# Line 297  name=user-pass2 size=10 required pattern Line 297  name=user-pass2 size=10 required pattern
297              print q[Content-Type: text/html; charset=utf-8              print q[Content-Type: text/html; charset=utf-8
298    
299  <!DOCTYPE HTML>  <!DOCTYPE HTML>
300  <html lang=en>  <html lang=en class=account-group-misc>
301  <title>];  <title>];
302              print_text ('Joining the group %s', sub { print $e_group_id });              print_text ('Joining the group %s', sub { print $e_group_id });
303              print q[</title>              print q[</title>
304  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/admin/style/common">
305  <h1>];  <h1>];
306              print_text ('Joining the group %s', sub { print $e_group_id });              print_text ('Joining the group %s', sub { print $e_group_id });
307              print q[</h1>              print q[</h1>
# Line 444  name=user-pass2 size=10 required pattern Line 444  name=user-pass2 size=10 required pattern
444        print q[Content-Type: text/html; charset=utf-8        print q[Content-Type: text/html; charset=utf-8
445    
446  <!DOCTYPE HTML>  <!DOCTYPE HTML>
447  <html lang=en>  <html lang=en class=account-group-info>
448  <title>];  <title>];
449        print_text ('Group %s', sub { print $e_group_id });        print_text ('Group %s', sub { print $e_group_id });
450        print q[</title>        print q[</title>
451  <link rel=stylesheet href="/www/style/html/xhtml">];  <link rel=stylesheet href="/admin/style/common">];
452        if (defined $group_prop->{favicon_url}) {        if (defined $group_prop->{favicon_url}) {
453          print q[<link rel=icon href="], htescape ($group_prop->{favicon_url});          print q[<link rel=icon href="], htescape ($group_prop->{favicon_url});
454          print q[">];          print q[">];
# Line 766  Location: $group_url Line 766  Location: $group_url
766  Content-Type: text/html; charset=utf-8  Content-Type: text/html; charset=utf-8
767    
768  <!DOCTYPE HTML>  <!DOCTYPE HTML>
769  <html lang=en>  <html lang=en class=account-group-misc>
770  <title>];  <title>];
771      print_text ('Group %s registered', sub { print '', htescape ($group_id) });      print_text ('Group %s registered', sub { print '', htescape ($group_id) });
772      print q[</title>      print q[</title>
773  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/admin/style/common">
774  <h1>];  <h1>];
775      print_text ('Group %s registered', sub { print '', htescape ($group_id) });      print_text ('Group %s registered', sub { print '', htescape ($group_id) });
776      print q[</h1><p>];      print q[</h1><p>];
# Line 787  Content-Type: text/html; charset=utf-8 Line 787  Content-Type: text/html; charset=utf-8
787      print q[Content-Type: text/html; charset=utf-8      print q[Content-Type: text/html; charset=utf-8
788    
789  <!DOCTYPE HTML>  <!DOCTYPE HTML>
790  <html lang=en>  <html lang=en class=account-group-misc>
791  <title>];  <title>];
792      print_text ('Create a new group');      print_text ('Create a new group');
793      print q[</title>      print q[</title>
794  <link rel=stylesheet href="/www/style/html/xhtml">  <link rel=stylesheet href="/admin/style/common">
795  <h1>];  <h1>];
796      print_text ('Create a new group');      print_text ('Create a new group');
797      print q[</h1>      print q[</h1>
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24