/[webpac2]/branches/Sack/web/browse.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/Sack/web/browse.cgi

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

revision 57 by dpavlin, Tue Nov 15 14:30:11 2005 UTC revision 58 by dpavlin, Tue Nov 15 14:30:26 2005 UTC
# Line 48  if ($q->path_info =~ m#xml#) { Line 48  if ($q->path_info =~ m#xml#) {
48          if (@ds && $#ds > 0) {          if (@ds && $#ds > 0) {
49                  print qq{<response>                  print qq{<response>
50  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
51                  }, $out->apply(                  }, $iconv_utf8->convert( $out->apply(
52                          template => $template,                          template => $template,
53                          data => \@ds,                          data => \@ds,
54                  ), qq{                  ) ), qq{
55    
56  </action>  </action>
57  <action type='javascript' errorCode='' errorMessage='' >  <action type='javascript' errorCode='' errorMessage='' >
# Line 88  if ($q->path_info =~ m#xml#) { Line 88  if ($q->path_info =~ m#xml#) {
88    
89                  if ($q->param('save_template')) {                  if ($q->param('save_template')) {
90    
91                          my $tmpl = $q->param('tt_template') || die "no template?";                          my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?";
92                            sub _conv_js {
93                                    my $t = shift || return;
94                                    return $iconv_loc->convert(chr(hex($t)));
95                            }
96                            $tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
97    
98                          my $tmpl_file = $out->{'include_path'} . '/' . $template;                          my $tmpl_file = $out->{'include_path'} . '/' . $template;
99                          write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!";                          write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!";
100                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";
101    
102                          print qq{<response>                          print qq{<response>
Legend:
Removed from v.57  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26